master 2ebd950: Minor fixes

[Juri Linkov]

branch: master
commit 2ebd9502391b2be7dc750aa2947ae75b5ec59ba7
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    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.
---
 lisp/frame.el  |  2 +-
 lisp/simple.el | 18 +++++++++---------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lisp/frame.el b/lisp/frame.el
index 409ce05..b5a8e0e 100644
--- 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 98fccf4..37aa650 100644
--- 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,