martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor fixes

Browse Source 
* lisp/frame.el (set-frame-property--interactive): Remove '(point)'
that makes no sense as the default value.  (Bug#9970)

* lisp/simple.el (next-error-found-function): Move defcustom
closer to function 'next-error-found' where it's used.
This commit is contained in:
Juri Linkov
2021-03-16 20:03:55 +02:00
parent 6199cdc78b
commit 2ebd950239
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/frame.el
View File

@@ -2739,7 +2739,7 @@ Offer NUMBER as default value, if it is a natural number."
(if (and current-prefix-arg (not (consp current-prefix-arg)))
(list (selected-frame) (prefix-numeric-value current-prefix-arg))
(let ((default (and (natnump number) number)))
(list (selected-frame) (read-number prompt (list default (point)))))))
(list (selected-frame) (read-number prompt default)))))
;; Variables whose change of value should trigger redisplay of the
;; current buffer.

18
lisp/simple.el
View File

@@ -238,15 +238,6 @@ all other buffers."
:group 'next-error
:version "28.1")
(defcustom next-error-found-function #'ignore
"Function called when a next locus is found and displayed.
Function is called with two arguments: a FROM-BUFFER buffer
from which next-error navigated, and a target buffer TO-BUFFER."
:type '(choice (const :tag "No default" ignore)
(function :tag "Other function"))
:group 'next-error
:version "27.1")
(defun next-error-buffer-on-selected-frame (&optional _avoid-current
extra-test-inclusive
extra-test-exclusive)
@@ -386,6 +377,15 @@ To control which errors are matched, customize the variable
(not (eq prev next-error-last-buffer)))
(message "Current locus from %s" next-error-last-buffer)))))
(defcustom next-error-found-function #'ignore
"Function called when a next locus is found and displayed.
Function is called with two arguments: a FROM-BUFFER buffer
from which next-error navigated, and a target buffer TO-BUFFER."
:type '(choice (const :tag "No default" ignore)
(function :tag "Other function"))
:group 'next-error
:version "27.1")
(defun next-error-found (&optional from-buffer to-buffer)
"Function to call when the next locus is found and displayed.
FROM-BUFFER is a buffer from which next-error navigated,