From: Juri Linkov <juri@linkov.net>
Date: Tue, 16 Mar 2021 18:03:55 +0000 (+0200)
Subject: Minor fixes
X-Git-Tag: emacs-28.0.90~3255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ebd9502391b2be7dc750aa2947ae75b5ec59ba7;p=emacs.git

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 409ce0563b5..b5a8e0ed72a 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 98fccf4ff23..37aa650b30e 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,