[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 9ba8a9e287 3/3: Formatting
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 9ba8a9e287 3/3: Formatting |
Date: |
Mon, 26 Jun 2023 09:57:50 -0400 (EDT) |
branch: externals/consult
commit 9ba8a9e287a9b6381338218077ec07cb77819684
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Formatting
---
consult.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/consult.el b/consult.el
index 99326df166..d744da90ac 100644
--- a/consult.el
+++ b/consult.el
@@ -3637,21 +3637,21 @@ INITIAL is the initial input."
"Transform input STR to line number.
Print an error message with MSG function."
(save-match-data
- (if (and str (string-match "\\`\\([[:digit:]]+\\):?\\([[:digit:]]*\\)\\'"
str))
- (let ((line (string-to-number (match-string 1 str)))
- (col (string-to-number (match-string 2 str))))
- (save-excursion
- (save-restriction
- (when consult-line-numbers-widen
- (widen))
- (goto-char (point-min))
- (forward-line (1- line))
- (when (> col 0)
- (goto-char (min (+ (point) (1- col)) (pos-eol))))
- (point))))
- (when (and str (not (equal str "")))
- (funcall msg "Please enter a number."))
- nil)))
+ (if (and str (string-match "\\`\\([[:digit:]]+\\):?\\([[:digit:]]*\\)\\'"
str))
+ (let ((line (string-to-number (match-string 1 str)))
+ (col (string-to-number (match-string 2 str))))
+ (save-excursion
+ (save-restriction
+ (when consult-line-numbers-widen
+ (widen))
+ (goto-char (point-min))
+ (forward-line (1- line))
+ (when (> col 0)
+ (goto-char (min (+ (point) (1- col)) (pos-eol))))
+ (point))))
+ (when (and str (not (equal str "")))
+ (funcall msg "Please enter a number."))
+ nil)))
;;;###autoload
(defun consult-goto-line (&optional arg)