Minor fixes

* 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.

diff --git a/lisp/frame.el b/lisp/frame.el
index 409ce0563b5547624bc6db211c193bdbec06f305..b5a8e0ed72a9ca183b81b2c15d58ec47844f2e98 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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.

diff --git a/lisp/simple.el b/lisp/simple.el
index 98fccf4ff23e1b6f01af7f5e7e6aacc55b1725ab..37aa650b30e9e4650db6f3fb87cbe9a4a5fdfaaa 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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,