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

16
lisp/simple.el
View file

@ -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.