aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2016-08-13 23:30:55 -0500
committerPaul Eggert2016-08-13 23:32:36 -0500
commit66ae4cada5bb22737e63e59fdaf0983b12dc29bc (patch)
tree6712348da0af6196a8d0aa9a95c80eaa04662c60
parent2791580f5eaa65948a13ea4ea4952d03b4da795b (diff)
downloademacs-66ae4cada5bb22737e63e59fdaf0983b12dc29bc.tar.gz
emacs-66ae4cada5bb22737e63e59fdaf0983b12dc29bc.zip
Minor text-quoting-style fixes
* 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.
-rw-r--r--lisp/cus-edit.el4
-rw-r--r--lisp/recentf.el5
-rw-r--r--src/doc.c8
3 files changed, 10 insertions, 7 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ef1274534d6..2e39514cac6 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1617,7 +1617,9 @@ Otherwise use brackets."
1617 ;; Insert verbose help at the top of the custom buffer. 1617 ;; Insert verbose help at the top of the custom buffer.
1618 (when custom-buffer-verbose-help 1618 (when custom-buffer-verbose-help
1619 (unless init-file 1619 (unless init-file
1620 (widget-insert "Custom settings cannot be saved; maybe you started Emacs with `-q'.\n")) 1620 (widget-insert
1621 (format-message
1622 "Custom settings cannot be saved; maybe you started Emacs with `-q'.\n")))
1621 (widget-insert "For help using this buffer, see ") 1623 (widget-insert "For help using this buffer, see ")
1622 (widget-create 'custom-manual 1624 (widget-create 'custom-manual
1623 :tag "Easy Customization" 1625 :tag "Easy Customization"
diff --git a/lisp/recentf.el b/lisp/recentf.el
index dc9489752fb..e30e6468ebb 100644
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -1124,8 +1124,9 @@ IGNORE arguments."
1124 (recentf-dialog (format "*%s - Edit list*" recentf-menu-title) 1124 (recentf-dialog (format "*%s - Edit list*" recentf-menu-title)
1125 (set (make-local-variable 'recentf-edit-list) nil) 1125 (set (make-local-variable 'recentf-edit-list) nil)
1126 (widget-insert 1126 (widget-insert
1127 "Click on OK to delete selected files from the recent list. 1127 (format-message
1128Click on Cancel or type `q' to cancel.\n") 1128 "Click on OK to delete selected files from the recent list.
1129Click on Cancel or type `q' to cancel.\n"))
1129 ;; Insert the list of files as checkboxes 1130 ;; Insert the list of files as checkboxes
1130 (dolist (item recentf-list) 1131 (dolist (item recentf-list)
1131 (widget-create 'checkbox 1132 (widget-create 'checkbox
diff --git a/src/doc.c b/src/doc.c
index e591ffca172..37a731bfcec 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -714,13 +714,13 @@ summary).
714Each substring of the form \\=\\<MAPVAR> specifies the use of MAPVAR 714Each substring of the form \\=\\<MAPVAR> specifies the use of MAPVAR
715as the keymap for future \\=\\[COMMAND] substrings. 715as the keymap for future \\=\\[COMMAND] substrings.
716 716
717Each \\=‘ and \\=` is replaced by left quote, and each \\=’ and \\=' 717Each grave accent \\=` is replaced by left quote, and each apostrophe \\='
718is replaced by right quote. Left and right quote characters are 718is replaced by right quote. Left and right quote characters are
719specified by `text-quoting-style'. 719specified by `text-quoting-style'.
720 720
721\\=\\= quotes the following character and is discarded; thus, 721\\=\\= quotes the following character and is discarded; thus, \\=\\=\\=\\= puts \\=\\=
722\\=\\=\\=\\= puts \\=\\= into the output, \\=\\=\\=\\[ puts \\=\\[ into the output, and 722into the output, \\=\\=\\=\\[ puts \\=\\[ into the output, and \\=\\=\\=` puts \\=` into the
723\\=\\=\\=` puts \\=` into the output. 723output.
724 724
725Return the original STRING if no substitutions are made. 725Return the original STRING if no substitutions are made.
726Otherwise, return a new string. */) 726Otherwise, return a new string. */)