procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simplify set-goal-column

Browse source 
* lisp/simple.el (set-goal-column): Simplify the code.
This commit is contained in:
Lars Ingebrigtsen 2022-06-05 22:29:08 +02:00
parent 3f388d7929
commit 50cbb727b5
1 changed files with 4 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/simple.el
View file

@ -8096,18 +8096,10 @@ a buffer-local setting."
(setq goal-column nil) (setq goal-column nil)
(message "No goal column")) (message "No goal column"))
(setq goal-column (current-column)) (setq goal-column (current-column))
;; The older method below can be erroneous if `set-goal-column' is bound (message "Goal column %d %s"
;; to a sequence containing % goal-column
;;(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 (substitute-command-keys
"(use \\[set-goal-column] with an arg to unset it)"))) "(use \\[set-goal-column] with an arg to unset it)")))
)
nil) nil)
;;; Editing based on visual lines, as opposed to logical lines. ;;; Editing based on visual lines, as opposed to logical lines.