mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/use-package/bind-key.el: Remove ineffective backslashes.

Browse source
This commit is contained in:
Mattias Engdegård 2022-12-10 14:13:39 +01:00
parent 864ed9dfa1
commit 074b7e6f4d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/use-package/bind-key.el
View file

@ -542,13 +542,13 @@ other modes. See `override-global-mode'."
(format (format
(format "%%-%ds%%-%ds%%s\n" (car bind-key-column-widths) (format "%%-%ds%%-%ds%%s\n" (car bind-key-column-widths)
(cdr bind-key-column-widths)) (cdr bind-key-column-widths))
key-name (format "`%s\'" command-desc) key-name (format "`%s'" command-desc)
(if (string= command-desc at-present-desc) (if (string= command-desc at-present-desc)
(if (or (null was-command) (if (or (null was-command)
(string= command-desc was-command-desc)) (string= command-desc was-command-desc))
"" ""
(format "was `%s\'" was-command-desc)) (format "was `%s'" was-command-desc))
(format "[now: `%s\']" at-present))))) (format "[now: `%s']" at-present)))))
(princ (if (string-match "[ \t]+\n" line) (princ (if (string-match "[ \t]+\n" line)
(replace-match "\n" t t line) (replace-match "\n" t t line)
line)))) line))))