From 50cbb727b53ca2e4025a6ac304423a94e26fe17f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 5 Jun 2022 22:29:08 +0200 Subject: [PATCH] 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 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. -- 2.39.2