[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2ebd950: Minor fixes
From: |
Juri Linkov |
Subject: |
master 2ebd950: Minor fixes |
Date: |
Tue, 16 Mar 2021 14:04:05 -0400 (EDT) |
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2ebd950: Minor fixes,
Juri Linkov <=