master 50cbb727b5: Simplify set-goal-column

[Lars Ingebrigtsen]

branch: master
commit 50cbb727b53ca2e4025a6ac304423a94e26fe17f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Simplify set-goal-column
    
    * lisp/simple.el (set-goal-column): Simplify the code.
---
 lisp/simple.el | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index c749e6e41d..ac41b394a7 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.