emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]