diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/bib-mode.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/flyspell.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 12 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-ref.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-toc.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 8 | ||||
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 6 | ||||
| -rw-r--r-- | lisp/textmodes/texinfo.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/texnfo-upd.el | 2 |
9 files changed, 20 insertions, 20 deletions
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el index 12b7fc46b4a..2ed5ad89eab 100644 --- a/lisp/textmodes/bib-mode.el +++ b/lisp/textmodes/bib-mode.el @@ -82,8 +82,8 @@ A uthor T itle D ate J ournal V olume N umber P age K eywords B in book or proceedings E ditor C ity & state I nstitution, school, or publisher -R eport number or 'phd thesis' or 'masters thesis' or 'draft' or - 'unnumbered' or 'unpublished' +R eport number or `phd thesis' or `masters thesis' or `draft' or + `unnumbered' or `unpublished' W here can be found locally (login name, or ailib, etc.) X comments (not used in indexing) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 14f8744077a..6c4a731629c 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -501,7 +501,7 @@ invoking `ispell-change-dictionary'. Consider using the `ispell-parser' to check your text. For instance consider adding: -\(add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex)))) +\(add-hook \\='tex-mode-hook (function (lambda () (setq ispell-parser \\='tex)))) in your init file. \\[flyspell-region] checks all words inside a region. diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 8627404ddfe..76e147a6f93 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1896,7 +1896,7 @@ Currently the only other valid parser is `tex'. You can set this variable in hooks in your init file -- eg: -\(add-hook 'tex-mode-hook (lambda () (setq ispell-parser 'tex)))") +\(add-hook \\='tex-mode-hook (lambda () (setq ispell-parser \\='tex)))") (defvar ispell-region-end (make-marker) "Marker that allows spelling continuations.") @@ -4039,14 +4039,14 @@ The `X' command aborts sending the message so that you can edit the buffer. To spell-check whenever a message is sent, include the appropriate lines in your init file: - (add-hook 'message-send-hook 'ispell-message) ;; GNUS 5 - (add-hook 'news-inews-hook 'ispell-message) ;; GNUS 4 - (add-hook 'mail-send-hook 'ispell-message) - (add-hook 'mh-before-send-letter-hook 'ispell-message) + (add-hook \\='message-send-hook \\='ispell-message) ;; GNUS 5 + (add-hook \\='news-inews-hook \\='ispell-message) ;; GNUS 4 + (add-hook \\='mail-send-hook \\='ispell-message) + (add-hook \\='mh-before-send-letter-hook \\='ispell-message) You can bind this to the key C-c i in GNUS or mail by adding to `news-reply-mode-hook' or `mail-mode-hook' the following lambda expression: - (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))" + (function (lambda () (local-set-key \"\\C-ci\" \\='ispell-message)))" (interactive) (save-excursion (goto-char (point-min)) diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index d0e09bff880..07147230094 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el @@ -228,7 +228,7 @@ This function is controlled by the settings of reftex-insert-label-flags." (symbol-value reftex-docstruct-symbol))) (ding) (if (y-or-n-p - (format "Label '%s' exists. Use anyway? " label)) + (format-message "Label ‘%s’ exists. Use anyway? " label)) (setq valid t))) ;; Label is ok diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el index d51fb9b2d4a..b9d4b7c0f2a 100644 --- a/lisp/textmodes/reftex-toc.el +++ b/lisp/textmodes/reftex-toc.el @@ -876,7 +876,7 @@ label prefix determines the wording of a reference." (setq newlabel (read-string (format "Rename label \"%s\" to:" label))) (if (assoc newlabel (symbol-value reftex-docstruct-symbol)) (if (not (y-or-n-p - (format "Label '%s' exists. Use anyway? " label))) + (format-message "Label ‘%s’ exists. Use anyway? " label))) (error "Abort"))) (save-excursion (save-window-excursion diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 78cfbeaf895..751c8012bf9 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1035,7 +1035,7 @@ says which mode to use." "Major mode for editing files of input for plain TeX. Makes $ and } display the characters they match. Makes \" insert \\=`\\=` when it seems to be the beginning of a quotation, -and '' when it appears to be the end; it inserts \" only after a \\. +and \\='\\=' when it appears to be the end; it inserts \" only after a \\. Use \\[tex-region] to run TeX on the current region, plus a \"header\" copied from the top of the file (containing macro definitions, etc.), @@ -1081,7 +1081,7 @@ special subshell is initiated, the hook `tex-shell-hook' is run." "Major mode for editing files of input for LaTeX. Makes $ and } display the characters they match. Makes \" insert \\=`\\=` when it seems to be the beginning of a quotation, -and '' when it appears to be the end; it inserts \" only after a \\. +and \\='\\=' when it appears to be the end; it inserts \" only after a \\. Use \\[tex-region] to run LaTeX on the current region, plus the preamble copied from the top of the file (containing \\documentstyle, etc.), @@ -1163,7 +1163,7 @@ subshell is initiated, `tex-shell-hook' is run." "Major mode for editing files of input for SliTeX. Makes $ and } display the characters they match. Makes \" insert \\=`\\=` when it seems to be the beginning of a quotation, -and '' when it appears to be the end; it inserts \" only after a \\. +and \\='\\=' when it appears to be the end; it inserts \" only after a \\. Use \\[tex-region] to run SliTeX on the current region, plus the preamble copied from the top of the file (containing \\documentstyle, etc.), @@ -1301,7 +1301,7 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook (defun tex-insert-quote (arg) "Insert the appropriate quote marks for TeX. Inserts the value of `tex-open-quote' (normally \\=`\\=`) or `tex-close-quote' -\(normally '') depending on the context. With prefix argument, always +\(normally \\='\\=') depending on the context. With prefix argument, always inserts \" characters." (interactive "*P") ;; Discover if we'll be inserting normal double quotes. diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 8e4a7e9186d..d08daea0310 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -1287,7 +1287,7 @@ Leave point after argument." (put 'uref 'texinfo-format 'texinfo-format-uref) (defun texinfo-format-uref () "Format URL and optional URL-TITLE. -Insert \\=` ... ' around URL if no URL-TITLE argument; +Insert \\=` ... \\=' around URL if no URL-TITLE argument; otherwise, insert URL-TITLE followed by URL in parentheses." (let ((args (texinfo-format-parse-args))) (texinfo-discard-command) @@ -2447,7 +2447,7 @@ Use only the FILENAME arg; for Info, ignore the other arguments to @image." ;; not lead to inserted ` ... ' in a table, but does elsewhere. (put 'option 'texinfo-format 'texinfo-format-option) (defun texinfo-format-option () - "Insert \\=` ... ' around arg unless inside a table; in that case, no quotes." + "Insert \\=` ... \\=' around arg unless inside a table; in that case, no quotes." ;; `looking-at-backward' not available in v. 18.57, 20.2 (if (not (search-backward "" ; searched-for character is a control-H (line-beginning-position) @@ -2494,7 +2494,7 @@ Enclose the verbatim text, including the delimiters, in braces. Print text exactly as written (but not the delimiters) in a fixed-width. For example, @verb\{|@|\} results in @ and -@verb\{+@'e?\\=`!\\=`+} results in @'e?\\=`!\\=`." +@verb\{+@\\='e?\\=`!\\=`+} results in @\\='e?\\=`!\\=`." (let ((delimiter (buffer-substring-no-properties (1+ texinfo-command-end) (+ 2 texinfo-command-end)))) diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 6b28249c427..2c6d5b3827c 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -690,7 +690,7 @@ Puts point on a blank line between them." (defun texinfo-insert-quote (&optional arg) "Insert the appropriate quote mark for Texinfo. Usually inserts the value of `texinfo-open-quote' (normally \\=`\\=`) or -`texinfo-close-quote' (normally ''), depending on the context. +`texinfo-close-quote' (normally \\='\\='), depending on the context. With prefix argument or inside @code or @example, inserts a plain \"." (interactive "*P") (let ((top (or (save-excursion (re-search-backward "@node\\>" nil t)) diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index eefea1f8493..0ce70644b03 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -1407,7 +1407,7 @@ level in the Texinfo file; when looking for the `Previous' pointer, the section found will be at the same or higher hierarchical level in the Texinfo file; when looking for the `Up' pointer, the section found will be at some level higher in the Texinfo file. The fourth argument -\(one of 'next, 'previous, or 'up\) specifies whether to find the +\(one of `next’, `previous’, or `up'\) specifies whether to find the `Next', `Previous', or `Up' pointer." (let ((case-fold-search t)) (cond ((eq direction 'next) |