mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

Minor text-quoting-style fixes

Browse source 
* lisp/cus-edit.el (custom-buffer-create-internal):
* lisp/recentf.el (recentf-edit-list):
Follow text-quoting-style preference when quoting in UI strings.
* src/doc.c (Fsubstitute_command_keys): Don’t say that curved
quotes are substituted for, as this is no longer true.
This commit is contained in:
Paul Eggert 2016-08-13 23:30:55 -05:00
parent 2791580f5e
commit 66ae4cada5
3 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/cus-edit.el
View file

@ -1617,7 +1617,9 @@ Otherwise use brackets."
;; Insert verbose help at the top of the custom buffer. ;; Insert verbose help at the top of the custom buffer.
(when custom-buffer-verbose-help (when custom-buffer-verbose-help
(unless init-file (unless init-file
(widget-insert "Custom settings cannot be saved; maybe you started Emacs with `-q'.\n")) (widget-insert
(format-message
"Custom settings cannot be saved; maybe you started Emacs with `-q'.\n")))
(widget-insert "For help using this buffer, see ") (widget-insert "For help using this buffer, see ")
(widget-create 'custom-manual (widget-create 'custom-manual
:tag "Easy Customization" :tag "Easy Customization"

5
lisp/recentf.el
View file

@ -1124,8 +1124,9 @@ IGNORE arguments."
(recentf-dialog (format "*%s - Edit list*" recentf-menu-title) (recentf-dialog (format "*%s - Edit list*" recentf-menu-title)
(set (make-local-variable 'recentf-edit-list) nil) (set (make-local-variable 'recentf-edit-list) nil)
(widget-insert (widget-insert
"Click on OK to delete selected files from the recent list. (format-message
Click on Cancel or type `q' to cancel.\n") "Click on OK to delete selected files from the recent list.
Click on Cancel or type `q' to cancel.\n"))
;; Insert the list of files as checkboxes ;; Insert the list of files as checkboxes
(dolist (item recentf-list) (dolist (item recentf-list)
(widget-create 'checkbox (widget-create 'checkbox

8
src/doc.c
View file

@ -714,13 +714,13 @@ summary).
Each substring of the form \\=\\<MAPVAR> specifies the use of MAPVAR Each substring of the form \\=\\<MAPVAR> specifies the use of MAPVAR
as the keymap for future \\=\\[COMMAND] substrings. as the keymap for future \\=\\[COMMAND] substrings.
Each \\=‘ and \\=` is replaced by left quote, and each \\=’ and \\=' Each grave accent \\=` is replaced by left quote, and each apostrophe \\='
is replaced by right quote. Left and right quote characters are is replaced by right quote. Left and right quote characters are
specified by `text-quoting-style'. specified by `text-quoting-style'.
\\=\\= quotes the following character and is discarded; thus, \\=\\= quotes the following character and is discarded; thus, \\=\\=\\=\\= puts \\=\\=
\\=\\=\\=\\= puts \\=\\= into the output, \\=\\=\\=\\[ puts \\=\\[ into the output, and into the output, \\=\\=\\=\\[ puts \\=\\[ into the output, and \\=\\=\\=` puts \\=` into the
\\=\\=\\=` puts \\=` into the output. output.
Return the original STRING if no substitutions are made. Return the original STRING if no substitutions are made.
Otherwise, return a new string. */) Otherwise, return a new string. */)