From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 5 Jun 2022 20:29:08 +0000 (+0200)
Subject: Simplify set-goal-column
X-Git-Tag: emacs-29.0.90~1910^2~208
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50cbb727b53ca2e4025a6ac304423a94e26fe17f;p=emacs.git

Simplify set-goal-column

* lisp/simple.el (set-goal-column): Simplify the code.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index c749e6e41d6..ac41b394a78 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8096,18 +8096,10 @@ a buffer-local setting."
         (setq goal-column nil)
         (message "No goal column"))
     (setq goal-column (current-column))
-    ;; The older method below can be erroneous if `set-goal-column' is bound
-    ;; to a sequence containing %
-    ;;(message (substitute-command-keys
-    ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
-    ;;goal-column)
-    (message "%s"
-	     (concat
-	      (format "Goal column %d " goal-column)
-	      (substitute-command-keys
-	       "(use \\[set-goal-column] with an arg to unset it)")))
-
-    )
+    (message "Goal column %d %s"
+             goal-column
+	     (substitute-command-keys
+	      "(use \\[set-goal-column] with an arg to unset it)")))
   nil)
 
 ;;; Editing based on visual lines, as opposed to logical lines.