From 875a5d0ead827d3da32ecbd30e739a29f07bbc87 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 24 Aug 2015 23:39:33 -0700 Subject: [PATCH] Prefer directed to neutral quotes Prefer directed to neutral quotes in docstings and diagnostics. In docstrings, escape apostrophes that would otherwise be translated to curved quotes using the newer, simpler rules. * admin/unidata/unidata-gen.el (unidata-gen-table): * lisp/align.el (align-region): * lisp/allout.el (allout-mode, allout-solicit-alternate-bullet): * lisp/bookmark.el (bookmark-default-annotation-text): * lisp/calc/calc-aent.el (math-read-if, math-read-factor): * lisp/calc/calc-lang.el (math-read-giac-subscr) (math-read-math-subscr): * lisp/calc/calc-misc.el (report-calc-bug): * lisp/calc/calc-prog.el (calc-fix-token-name) (calc-read-parse-table-part): * lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules): * lisp/cedet/semantic/complete.el (semantic-displayor-show-request): * lisp/dabbrev.el (dabbrev-expand): * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): * lisp/emacs-lisp/elint.el (elint-get-top-forms): * lisp/emacs-lisp/lisp-mnt.el (lm-verify): * lisp/emulation/viper-cmd.el (viper-toggle-search-style): * lisp/erc/erc-button.el (erc-nick-popup): * lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login): * lisp/eshell/em-dirs.el (eshell/cd): * lisp/eshell/em-glob.el (eshell-glob-regexp): * lisp/eshell/em-pred.el (eshell-parse-modifiers): * lisp/eshell/esh-arg.el (eshell-parse-arguments): * lisp/eshell/esh-opt.el (eshell-show-usage): * lisp/files-x.el (modify-file-local-variable): * lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer) (filesets-update-pre010505): * lisp/find-cmd.el (find-generic, find-to-string): * lisp/gnus/auth-source.el (auth-source-netrc-parse-entries): * lisp/gnus/gnus-agent.el (gnus-agent-check-overview-buffer) (gnus-agent-fetch-headers): * lisp/gnus/gnus-int.el (gnus-start-news-server): * lisp/gnus/gnus-registry.el: (gnus-registry--split-fancy-with-parent-internal): * lisp/gnus/gnus-score.el (gnus-summary-increase-score): * lisp/gnus/gnus-start.el (gnus-convert-old-newsrc): * lisp/gnus/gnus-topic.el (gnus-topic-rename): * lisp/gnus/legacy-gnus-agent.el (gnus-agent-unlist-expire-days): * lisp/gnus/nnmairix.el (nnmairix-widget-create-query): * lisp/gnus/spam.el (spam-check-blackholes): * lisp/mail/feedmail.el (feedmail-run-the-queue): * lisp/mpc.el (mpc-playlist-rename): * lisp/net/ange-ftp.el (ange-ftp-shell-command): * lisp/net/mairix.el (mairix-widget-create-query): * lisp/net/tramp-cache.el: * lisp/obsolete/otodo-mode.el (todo-more-important-p): * lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region): * lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region): * lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region): * lisp/org/ob-core.el (org-babel-goto-named-src-block) (org-babel-goto-named-result): * lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap): * lisp/org/ob-ref.el (org-babel-ref-resolve): * lisp/org/org-agenda.el (org-agenda-prepare): * lisp/org/org-bibtex.el (org-bibtex-fields): * lisp/org/org-clock.el (org-clock-notify-once-if-expired) (org-clock-resolve): * lisp/org/org-feed.el (org-feed-parse-atom-entry): * lisp/org/org-habit.el (org-habit-parse-todo): * lisp/org/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org/org-table.el (org-table-edit-formulas): * lisp/org/ox.el (org-export-async-start): * lisp/play/dunnet.el (dun-score, dun-help, dun-endgame-question) (dun-rooms, dun-endgame-questions): * lisp/progmodes/ada-mode.el (ada-goto-matching-start): * lisp/progmodes/ada-xref.el (ada-find-executable): * lisp/progmodes/antlr-mode.el (antlr-options-alists): * lisp/progmodes/flymake.el (flymake-parse-err-lines) (flymake-start-syntax-check-process): * lisp/progmodes/python.el (python-define-auxiliary-skeleton): * lisp/progmodes/sql.el (sql-comint): * lisp/progmodes/verilog-mode.el (verilog-load-file-at-point): * lisp/server.el (server-get-auth-key): * lisp/subr.el (version-to-list): * lisp/textmodes/reftex-ref.el (reftex-label): * lisp/textmodes/reftex-toc.el (reftex-toc-rename-label): * lisp/vc/ediff-diff.el (ediff-same-contents): * lisp/vc/vc-cvs.el (vc-cvs-mode-line-string): * test/automated/tramp-tests.el (tramp-test33-asynchronous-requests): Use directed rather than neutral quotes in diagnostics. --- admin/unidata/unidata-gen.el | 2 +- lisp/align.el | 2 +- lisp/allout-widgets.el | 6 +- lisp/allout.el | 51 +++++----- lisp/autoinsert.el | 2 +- lisp/autorevert.el | 4 +- lisp/bookmark.el | 15 +-- lisp/bs.el | 2 +- lisp/calc/calc-aent.el | 4 +- lisp/calc/calc-lang.el | 4 +- lisp/calc/calc-misc.el | 2 +- lisp/calc/calc-prog.el | 10 +- lisp/calc/calc.el | 6 +- lisp/calendar/cal-tex.el | 4 +- lisp/calendar/calendar.el | 2 +- lisp/calendar/diary-lib.el | 6 +- lisp/calendar/icalendar.el | 4 +- lisp/calendar/timeclock.el | 2 +- lisp/cedet/cedet-global.el | 2 +- lisp/cedet/ede/base.el | 4 +- lisp/cedet/ede/cpp-root.el | 2 +- lisp/cedet/ede/pconf.el | 4 +- lisp/cedet/ede/pmake.el | 3 +- lisp/cedet/ede/proj-archive.el | 2 +- lisp/cedet/ede/project-am.el | 16 +-- lisp/cedet/semantic/bovine/c.el | 20 ++-- lisp/cedet/semantic/complete.el | 4 +- lisp/cedet/semantic/ctxt.el | 2 +- lisp/cedet/semantic/db.el | 6 +- lisp/cedet/semantic/java.el | 2 +- lisp/cedet/semantic/senator.el | 4 +- lisp/cedet/semantic/wisent/comp.el | 2 +- lisp/cedet/semantic/wisent/python.el | 4 +- lisp/cedet/srecode/compile.el | 4 +- lisp/cedet/srecode/dictionary.el | 2 +- lisp/cedet/srecode/document.el | 2 +- lisp/cedet/srecode/insert.el | 8 +- lisp/cedet/srecode/texi.el | 2 +- lisp/comint.el | 6 +- lisp/dabbrev.el | 2 +- lisp/delim-col.el | 4 +- lisp/dired-x.el | 2 +- lisp/emacs-lisp/byte-run.el | 6 +- lisp/emacs-lisp/bytecomp.el | 6 +- lisp/emacs-lisp/checkdoc.el | 2 +- lisp/emacs-lisp/crm.el | 4 +- lisp/emacs-lisp/edebug.el | 2 +- lisp/emacs-lisp/elint.el | 2 +- lisp/emacs-lisp/ert-x.el | 2 +- lisp/emacs-lisp/lisp-mnt.el | 6 +- lisp/emacs-lisp/pcase.el | 4 +- lisp/emacs-lisp/rx.el | 4 +- lisp/emacs-lisp/shadow.el | 2 +- lisp/emulation/viper-cmd.el | 28 +++--- lisp/emulation/viper-init.el | 2 +- lisp/epa.el | 16 +-- lisp/epg.el | 4 +- lisp/erc/erc-button.el | 3 +- lisp/erc/erc-dcc.el | 16 +-- lisp/erc/erc-match.el | 34 +++---- lisp/erc/erc-services.el | 11 +-- lisp/erc/erc-speedbar.el | 7 +- lisp/erc/erc-track.el | 8 +- lisp/erc/erc.el | 38 ++++---- lisp/eshell/em-dirs.el | 16 +-- lisp/eshell/em-glob.el | 4 +- lisp/eshell/em-pred.el | 12 +-- lisp/eshell/em-script.el | 4 +- lisp/eshell/em-term.el | 2 +- lisp/eshell/em-unix.el | 10 +- lisp/eshell/esh-arg.el | 6 +- lisp/eshell/esh-cmd.el | 16 +-- lisp/eshell/esh-ext.el | 2 +- lisp/eshell/esh-io.el | 2 +- lisp/eshell/esh-opt.el | 4 +- lisp/eshell/esh-var.el | 10 +- lisp/files-x.el | 2 +- lisp/filesets.el | 38 ++++---- lisp/find-cmd.el | 22 ++--- lisp/find-dired.el | 2 +- lisp/finder.el | 2 +- lisp/font-core.el | 2 +- lisp/font-lock.el | 6 +- lisp/gnus/auth-source.el | 64 ++++++------ lisp/gnus/gnus-agent.el | 4 +- lisp/gnus/gnus-art.el | 2 +- lisp/gnus/gnus-int.el | 8 +- lisp/gnus/gnus-registry.el | 12 +-- lisp/gnus/gnus-score.el | 2 +- lisp/gnus/gnus-sieve.el | 12 +-- lisp/gnus/gnus-start.el | 6 +- lisp/gnus/gnus-sum.el | 2 +- lisp/gnus/gnus-topic.el | 2 +- lisp/gnus/gnus-util.el | 5 + lisp/gnus/gnus-uu.el | 6 +- lisp/gnus/gnus.el | 6 +- lisp/gnus/legacy-gnus-agent.el | 11 ++- lisp/gnus/mail-source.el | 2 +- lisp/gnus/message.el | 6 +- lisp/gnus/nnheader.el | 2 +- lisp/gnus/nnmail.el | 10 +- lisp/gnus/nnmairix.el | 6 +- lisp/gnus/nntp.el | 2 +- lisp/gnus/registry.el | 4 +- lisp/gnus/spam.el | 2 +- lisp/help-fns.el | 2 +- lisp/hilit-chg.el | 2 +- lisp/htmlfontify.el | 20 ++-- lisp/ibuf-ext.el | 2 +- lisp/ibuffer.el | 184 +++++++++++++++++------------------ lisp/icomplete.el | 2 +- lisp/ido.el | 2 +- lisp/ielm.el | 6 +- lisp/info.el | 2 +- lisp/international/mule-cmds.el | 2 +- lisp/ldefs-boot.el | 24 ++--- lisp/leim/quail/cyrillic.el | 14 +-- lisp/leim/quail/greek.el | 8 +- lisp/leim/quail/hebrew.el | 8 +- lisp/leim/quail/latin-alt.el | 44 ++++----- lisp/leim/quail/latin-post.el | 70 ++++++------- lisp/leim/quail/latin-pre.el | 32 +++--- lisp/leim/quail/tibetan.el | 16 +-- lisp/leim/quail/viqr.el | 2 +- lisp/mail/feedmail.el | 6 +- lisp/mail/metamail.el | 2 +- lisp/mail/rfc2368.el | 10 +- lisp/mh-e/mh-mime.el | 2 +- lisp/mh-e/mh-search.el | 2 +- lisp/mh-e/mh-seq.el | 4 +- lisp/mh-e/mh-utils.el | 12 +-- lisp/mpc.el | 2 +- lisp/net/ange-ftp.el | 4 +- lisp/net/mairix.el | 9 +- lisp/net/newst-backend.el | 4 +- lisp/net/newst-plainview.el | 4 +- lisp/net/rcirc.el | 2 +- lisp/net/tramp-sh.el | 2 +- lisp/newcomment.el | 4 +- lisp/nxml/nxml-rap.el | 8 +- lisp/obsolete/iso-acc.el | 6 +- lisp/obsolete/iswitchb.el | 4 +- lisp/obsolete/landmark.el | 2 +- lisp/obsolete/lmenu.el | 6 +- lisp/obsolete/old-whitespace.el | 2 +- lisp/obsolete/otodo-mode.el | 4 +- lisp/obsolete/pgg-gpg.el | 2 +- lisp/obsolete/pgg-pgp.el | 2 +- lisp/obsolete/pgg-pgp5.el | 10 +- lisp/obsolete/scribe.el | 8 +- lisp/obsolete/sregex.el | 10 +- lisp/obsolete/tpu-edt.el | 6 +- lisp/obsolete/vc-arch.el | 2 +- lisp/obsolete/vi.el | 10 +- lisp/org/ob-core.el | 12 +-- lisp/org/ob-exp.el | 2 +- lisp/org/ob-fortran.el | 2 +- lisp/org/ob-python.el | 2 +- lisp/org/ob-ref.el | 2 +- lisp/org/ob-scheme.el | 2 +- lisp/org/org-agenda.el | 8 +- lisp/org/org-bibtex.el | 8 +- lisp/org/org-clock.el | 17 ++-- lisp/org/org-element.el | 10 +- lisp/org/org-feed.el | 3 +- lisp/org/org-habit.el | 2 +- lisp/org/org-irc.el | 4 +- lisp/org/org-list.el | 2 +- lisp/org/org-mouse.el | 10 +- lisp/org/org-plot.el | 2 +- lisp/org/org-protocol.el | 2 +- lisp/org/org-src.el | 4 +- lisp/org/org-table.el | 2 +- lisp/org/org.el | 30 +++--- lisp/org/ox-latex.el | 14 +-- lisp/org/ox-publish.el | 4 +- lisp/org/ox-texinfo.el | 4 +- lisp/org/ox.el | 12 +-- lisp/pcmpl-cvs.el | 4 +- lisp/pcmpl-x.el | 2 +- lisp/pcomplete.el | 6 +- lisp/play/bubbles.el | 10 +- lisp/play/dunnet.el | 44 ++++----- lisp/play/gomoku.el | 2 +- lisp/play/morse.el | 2 +- lisp/progmodes/ada-mode.el | 36 +++---- lisp/progmodes/ada-prj.el | 6 +- lisp/progmodes/ada-xref.el | 6 +- lisp/progmodes/antlr-mode.el | 2 +- lisp/progmodes/bug-reference.el | 2 +- lisp/progmodes/cc-align.el | 6 +- lisp/progmodes/cc-defs.el | 32 +++--- lisp/progmodes/cc-engine.el | 4 +- lisp/progmodes/cc-langs.el | 12 +-- lisp/progmodes/cfengine.el | 2 +- lisp/progmodes/compile.el | 4 +- lisp/progmodes/cperl-mode.el | 10 +- lisp/progmodes/dcl-mode.el | 2 +- lisp/progmodes/flymake.el | 8 +- lisp/progmodes/gdb-mi.el | 4 +- lisp/progmodes/idlw-shell.el | 18 ++-- lisp/progmodes/prog-mode.el | 4 +- lisp/progmodes/python.el | 4 +- lisp/progmodes/sql.el | 8 +- lisp/progmodes/verilog-mode.el | 60 ++++++------ lisp/recentf.el | 4 +- lisp/server.el | 2 +- lisp/skeleton.el | 2 +- lisp/subr.el | 6 +- lisp/textmodes/bib-mode.el | 4 +- lisp/textmodes/flyspell.el | 2 +- lisp/textmodes/ispell.el | 12 +-- lisp/textmodes/reftex-ref.el | 2 +- lisp/textmodes/reftex-toc.el | 2 +- lisp/textmodes/tex-mode.el | 8 +- lisp/textmodes/texinfmt.el | 6 +- lisp/textmodes/texinfo.el | 2 +- lisp/textmodes/texnfo-upd.el | 2 +- lisp/time-stamp.el | 2 +- lisp/vc/add-log.el | 2 +- lisp/vc/ediff-diff.el | 2 +- lisp/vc/vc-cvs.el | 4 +- lisp/vc/vc-svn.el | 2 +- 223 files changed, 961 insertions(+), 940 deletions(-) diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el index 583d492495c..8d3f5b71557 100644 --- a/admin/unidata/unidata-gen.el +++ b/admin/unidata/unidata-gen.el @@ -445,7 +445,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)." ;; (4) possibly update the switch cases in ;; bidi.c:bidi_get_type and bidi.c:bidi_get_category. (bidi-warning "\ -** Found new bidi-class '%s', please update bidi.c and dispextern.h") +** Found new bidi-class ‘%s’, please update bidi.c and dispextern.h") tail elt range val val-code idx slot prev-range-data) (setq val-list (cons nil (copy-sequence val-list))) diff --git a/lisp/align.el b/lisp/align.el index ad5be2ae74d..3020b6a1750 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1348,7 +1348,7 @@ aligner would have dealt with are." (if real-beg (goto-char beg) (if (or (not thissep) (eq thissep 'entire)) - (error "Cannot determine alignment region for '%s'" + (error "Cannot determine alignment region for ‘%s’" (symbol-name (cdr (assq 'title rule))))) (beginning-of-line) (while (and (not (eobp)) diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index 578510d6919..f0a1cab0cb6 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -481,9 +481,9 @@ text in allout item bodies.") \(That space is used to convey selected cues indicating body qualities, including things like: - - encryption '~' - - numbering '#' - - indirect reference '@' + - encryption ‘~’ + - numbering ‘#’ + - indirect reference ‘@’ - distinctive bullets - see `allout-distinctive-bullets-string'.)") ;;;_ = allout-span-to-category (defvar allout-span-to-category diff --git a/lisp/allout.el b/lisp/allout.el index 5c43f9bb5d4..9f790871eed 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -176,7 +176,7 @@ respective allout-mode keybinding variables, `allout-command-prefix', (defcustom allout-command-prefix "\C-c " "Key sequence to be used as prefix for outline mode command key bindings. -Default is '\C-c'; just '\C-c' is more short-and-sweet, if you're +Default is `\C-c'; just `\C-c' is more short-and-sweet, if you're willing to let allout use a bunch of \C-c keybindings." :type 'string :group 'allout-keybindings @@ -229,7 +229,7 @@ See `allout-unprefixed-keybindings' for the list of keybindings that are not prefixed. Use vector format for the keys: - - put literal keys after a '?' question mark, eg: '?a', '?.' + - put literal keys after a ‘?’ question mark, eg: ‘?a’, ‘?.’ - enclose control, shift, or meta-modified keys as sequences within parentheses, with the literal key, as above, preceded by the name(s) of the modifiers, eg: [(control ?a)] @@ -257,7 +257,7 @@ This is in contrast to the majority of allout-mode bindings on preceding command key. Use vector format for the keys: - - put literal keys after a '?' question mark, eg: '?a', '?.' + - put literal keys after a ‘?’ question mark, eg: ‘?a’, ‘?.’ - enclose control, shift, or meta-modified keys as sequences within parentheses, with the literal key, as above, preceded by the name(s) of the modifiers, eg: [(control ?a)] @@ -610,7 +610,7 @@ strings." Allout outline mode will use the mode-specific `allout-mode-leaders' or comment-start string, if any, to lead the topic prefix string, so topic headers look like comments in the programming language. It will also use -the comment-start string, with an '_' appended, for `allout-primary-bullet'. +the comment-start string, with an `_' appended, for `allout-primary-bullet'. String values are used as literals, not regular expressions, so do not escape any regular-expression characters. @@ -1012,9 +1012,9 @@ determination of aberrance is according to the mistaken item being followed by a legitimate item of excessively greater depth. The classic example of a mistaken item, for a standard allout -outline configuration, is a body line that begins with an '...' +outline configuration, is a body line that begins with an ‘...’ ellipsis. This happens to contain a legitimate depth-2 header -prefix, constituted by two '..' dots at the beginning of the +prefix, constituted by two ‘..’ dots at the beginning of the line. The only thing that can distinguish it *in principle* from a legitimate one is if the following real header is at a depth that is discontinuous from the depth of 2 implied by the @@ -1326,7 +1326,7 @@ scope of the variable is restored along with its value. If it was a void buffer-local value, then it is left as nil on resumption. The pairs are lists whose car is the name of the variable and car of the -cdr is the new value: '(some-var some-value)'. The pairs can actually be +cdr is the new value: `(some-var some-value)'. The pairs can actually be triples, where the third element qualifies the disposition of the setting, as described further below. @@ -1339,7 +1339,7 @@ extended from the existing one by `append'ing a list containing the second element of the pair onto the end of the existing value. Extension, and resumptions in general, should not be used for hook -functions -- use the 'local mode of `add-hook' for that, instead. +functions -- use the `local' mode of `add-hook' for that, instead. The settings are stored on `allout-mode-prior-settings'." (while pairs @@ -1862,7 +1862,7 @@ symmetric decryption keys, preventing entry of the correct key on subsequent decryption attempts until the cache times-out. That can take several minutes. (Decryption of other entries is not affected.) Upgrade your EasyPG version, if you can, and you can -deliberately clear your gpg-agent's cache by sending it a '-HUP' +deliberately clear your gpg-agent's cache by sending it a `-HUP' signal. See `allout-toggle-current-subtree-encryption' function docstring @@ -2080,21 +2080,21 @@ OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be." use-layout (and (not (string= allout-auto-activation "activate")) (if (string= allout-auto-activation "ask") - (if (y-or-n-p (format "Expose %s with layout '%s'? " - (buffer-name) - use-layout)) + (if (y-or-n-p (format-message + "Expose %s with layout ‘%s’? " + (buffer-name) use-layout)) t (message "Skipped %s layout." (buffer-name)) nil) t))) (save-excursion - (message "Adjusting '%s' exposure..." (buffer-name)) + (message "Adjusting ‘%s’ exposure..." (buffer-name)) (goto-char 0) (allout-this-or-next-heading) (condition-case err (progn (apply 'allout-expose-topic (list use-layout)) - (message "Adjusting '%s' exposure... done." + (message "Adjusting ‘%s’ exposure... done." (buffer-name))) ;; Problem applying exposure -- notify user, but don't ;; interrupt, eg, file visit: @@ -3483,9 +3483,10 @@ Offer one suitable for current depth DEPTH as default." (save-excursion (goto-char (allout-current-bullet-pos)) (setq choice (solicit-char-in-string - (format "Select bullet: %s ('%s' default): " - sans-escapes - (allout-substring-no-properties default-bullet)) + (format-message + "Select bullet: %s (‘%s’ default): " + sans-escapes + (allout-substring-no-properties default-bullet)) sans-escapes t))) (message "") @@ -5134,15 +5135,15 @@ Simple (numeric and null-list) specs are interpreted as follows: - - exposes the body of the corresponding topic. Examples: -\(allout-expose-topic '(-1 : 0)) +\(allout-expose-topic \\='(-1 : 0)) Close this and all following topics at current level, exposing only their immediate children, but close down the last topic at this current level completely. -\(allout-expose-topic '(-1 () : 1 0)) +\(allout-expose-topic \\='(-1 () : 1 0)) Close current topic so only the immediate subtopics are shown; show the children in the second to last topic, and completely close the last one. -\(allout-expose-topic '(-2 : -1 *)) +\(allout-expose-topic \\='(-2 : -1 *)) Expose children and grandchildren of all topics at current level except the last two; expose children of the second to last and completely open the last one." @@ -5878,7 +5879,7 @@ With repeat count, copy the exposed portions of entire buffer." (defun allout-toggle-current-subtree-encryption (&optional keymode-cue) "Encrypt clear or decrypt encoded topic text. -Allout uses Emacs 'epg' library to perform encryption. Symmetric +Allout uses Emacs ‘epg’ library to perform encryption. Symmetric and keypair encryption are supported. All encryption is ascii armored. @@ -5940,7 +5941,7 @@ associated with it. This can be used to dissociate any recipients with the file, by selecting no recipients in the dialog. -Encryption and decryption uses the Emacs 'epg' library. +Encryption and decryption uses the Emacs ‘epg’ library. Encrypted text will be ascii-armored. @@ -6093,7 +6094,7 @@ symmetric decryption keys, preventing entry of the correct key on subsequent decryption attempts until the cache times-out. That can take several minutes. (Decryption of other entries is not affected.) Upgrade your EasyPG version, if you can, and you can -deliberately clear your gpg-agent's cache by sending it a '-HUP' +deliberately clear your gpg-agent's cache by sending it a `-HUP' signal." (require 'epg) @@ -6263,7 +6264,7 @@ the decryption." "Return the point of the next topic pending encryption, or nil if none. Such a topic has the `allout-topic-encryption-bullet' without an -immediately following '*' that would mark the topic as being encrypted. +immediately following `*' that would mark the topic as being encrypted. It must also have content." (let (done got content-beg) (save-match-data @@ -6544,7 +6545,7 @@ Optional arg DO-DEFAULTING indicates to accept empty input (CR)." (defun regexp-sans-escapes (regexp &optional successive-backslashes) "Return a copy of REGEXP with all character escapes stripped out. -Representations of actual backslashes -- '\\\\\\\\' -- are left as a +Representations of actual backslashes -- ‘\\\\\\\\’ -- are left as a single backslash. Optional arg SUCCESSIVE-BACKSLASHES is used internally for recursion." diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 985ae242453..255ec9b169f 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -67,7 +67,7 @@ Insertion is possible when something appropriate is found in `auto-insert-alist'. When the insertion is marked as unmodified, you can save it with \\[write-file] RET. This variable is used when the function `auto-insert' is called, e.g. -when you do (add-hook 'find-file-hook 'auto-insert). +when you do (add-hook \\='find-file-hook \\='auto-insert). With \\[auto-insert], this is always treated as if it were t." :type '(choice (const :tag "Insert if possible" t) (const :tag "Do nothing" nil) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 0081419acbf..37ee8eedcfd 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -367,7 +367,7 @@ without being changed in the part that is already in the buffer." "Turn on Auto-Revert Mode. This function is designed to be added to hooks, for example: - (add-hook 'c-mode-hook #'turn-on-auto-revert-mode)" + (add-hook \\='c-mode-hook #\\='turn-on-auto-revert-mode)" (auto-revert-mode 1)) @@ -431,7 +431,7 @@ Perform a full revert? ") "Turn on Auto-Revert Tail mode. This function is designed to be added to hooks, for example: - (add-hook 'my-logfile-mode-hook #'turn-on-auto-revert-tail-mode)" + (add-hook \\='my-logfile-mode-hook #\\='turn-on-auto-revert-tail-mode)" (auto-revert-tail-mode 1)) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 4baf00b647b..308d1cab585 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -842,8 +842,11 @@ whose annotation is being edited.") "Return default annotation text for BOOKMARK-NAME. The default annotation text is simply some text explaining how to use annotations." - (concat "# Type the annotation for bookmark '" bookmark-name "' here.\n" - "# All lines which start with a '#' will be deleted.\n" + (concat (format-message + "# Type the annotation for bookmark ‘%s’ here.\n" + bookmark-name) + (format-message + "# All lines which start with a ‘#’ will be deleted.\n") "# Type C-c C-c when done.\n#\n" "# Author: " (user-full-name) " <" (user-login-name) "@" (system-name) ">\n" @@ -1540,7 +1543,7 @@ deletion, or > if it is flagged for displaying." (let ((inhibit-read-only t)) (erase-buffer) (if (not bookmark-bmenu-use-header-line) - (insert "% Bookmark\n- --------\n")) + (insert "% Bookmark\n- --------\n")) (add-text-properties (point-min) (point) '(font-lock-face bookmark-menu-heading)) (dolist (full-record (bookmark-maybe-sort-alist)) @@ -1581,9 +1584,9 @@ deletion, or > if it is flagged for displaying." (defun bookmark-bmenu-set-header () "Sets the immutable header line." (let ((header (concat "%% " "Bookmark"))) - (when bookmark-bmenu-toggle-filenames - (setq header (concat header - (make-string (- bookmark-bmenu-file-column + (when bookmark-bmenu-toggle-filenames + (setq header (concat header + (make-string (- bookmark-bmenu-file-column (- (length header) 3)) ?\s) "File"))) (let ((pos 0)) diff --git a/lisp/bs.el b/lisp/bs.el index c7a20b40489..6314bbb024e 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -1314,7 +1314,7 @@ ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu." (format-mode-line mode-name nil nil start-buffer)) (defun bs--get-file-name (_start-buffer _all-buffers) - "Return string for column 'File' in Buffer Selection Menu. + "Return string for column ‘File’ in Buffer Selection Menu. This is the variable `buffer-file-name' of current buffer. If not visiting a file, `list-buffers-directory' is returned instead. START-BUFFER is the buffer where we started buffer selection. diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index 2fa8f19163d..2c588c15287 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el @@ -1057,7 +1057,7 @@ If the current Calc language does not use placeholders, return nil." (defun math-read-if (cond op) (let ((then (math-read-expr-level 0))) (or (equal math-expr-data ":") - (throw 'syntax "Expected ':'")) + (throw 'syntax "Expected ‘:’")) (math-read-token) (list 'calcFunc-if cond then (math-read-expr-level (nth 3 op))))) @@ -1177,7 +1177,7 @@ If the current Calc language does not use placeholders, return nil." (setq el (cdr el)))) (if (equal math-expr-data "]") (math-read-token) - (throw 'syntax "Expected ']'"))) + (throw 'syntax "Expected ‘]’"))) val))))) ((eq math-exp-token 'dollar) (let ((abs (if (> math-expr-data 0) math-expr-data (- math-expr-data)))) diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el index 7f5588b6d09..70a9ff8a402 100644 --- a/lisp/calc/calc-lang.el +++ b/lisp/calc/calc-lang.el @@ -1817,7 +1817,7 @@ order to Calc's." (defun math-read-giac-subscr (x op) (let ((idx (math-read-expr-level 0))) (or (equal math-expr-data "]") - (throw 'syntax "Expected ']'")) + (throw 'syntax "Expected ‘]’")) (math-read-token) (list 'calcFunc-subscr x (calc-normalize (list '+ idx 1))))) @@ -1954,7 +1954,7 @@ order to Calc's." (progn (math-read-token) (equal math-expr-data "]"))) - (throw 'syntax "Expected ']]'")) + (throw 'syntax "Expected ‘]]’")) (math-read-token) (list 'calcFunc-subscr x idx))) diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index e5d4b6b0607..4d84146af94 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -952,7 +952,7 @@ Prompts for bug subject. Leaves you in a mail buffer." nil nil nil "Please describe exactly what actions triggered the bug and the precise symptoms of the bug. If possible, include a backtrace by -doing 'M-x toggle-debug-on-error', then reproducing the bug. +doing ‘\\[toggle-debug-on-error]’, then reproducing the bug. " ))) ;;;###autoload (defalias 'calc-report-bug 'report-calc-bug) diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index df2eb764f3b..cc1d27032ef 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -597,9 +597,9 @@ ",") ((equal name "#") (search-backward "#") - (error "Token '#' is reserved")) + (error "Token ‘#’ is reserved")) ((and unquoted (string-match "#" name)) - (error "Tokens containing '#' must be quoted")) + (error "Tokens containing ‘#’ must be quoted")) ((not (string-match "[^ ]" name)) (search-backward "\"" nil t) (error "Blank tokens are not allowed")) @@ -610,7 +610,7 @@ (quoted nil)) (while (progn (skip-chars-forward "\n\t ") - (if (eobp) (error "Expected '%s'" eterm)) + (if (eobp) (error "Expected ‘%s’" eterm)) (not (looking-at term))) (cond ((looking-at "%%") (end-of-line)) @@ -618,7 +618,7 @@ (forward-char 2) (let ((p (calc-read-parse-table-part "}" "}"))) (or (looking-at "[+*?]") - (error "Expected '+', '*', or '?'")) + (error "Expected ‘+’, ‘*’, or ‘?’")) (let ((sym (intern (buffer-substring (point) (1+ (point)))))) (forward-char 1) (looking-at "[^\n\t ]*") @@ -650,7 +650,7 @@ (match-end 1))))))) (goto-char (match-end 0))) ((looking-at ":=[\n\t ]") - (error "Misplaced ':='")) + (error "Misplaced ‘:=’")) (t (looking-at "[^\n\t ]*") (let ((end (match-end 0))) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index b0046dcaf4b..8e4df58793d 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -989,11 +989,11 @@ Used by `calc-user-invocation'.") (defvar calc-last-kill nil "The last number killed in calc-mode.") (defvar calc-dollar-values nil - "Values to be used for '$'.") + "Values to be used for ‘$’.") (defvar calc-dollar-used nil - "The highest order of '$' that occurred.") + "The highest order of ‘$’ that occurred.") (defvar calc-hashes-used nil - "The highest order of '#' that occurred.") + "The highest order of ‘#’ that occurred.") (defvar calc-quick-prev-results nil "Previous results from Quick Calc.") (defvar calc-said-hello nil diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el index d3c503e9791..e2e9182d626 100644 --- a/lisp/calendar/cal-tex.el +++ b/lisp/calendar/cal-tex.el @@ -100,7 +100,7 @@ At present, this only affects the daily filofax calendar." (format "%d/%d" day days-remaining)) "Lisp expression giving the date format to use in the LaTeX calendars. This should be an expression involving the variable `date'. When -this expression is called, `date' is a list of the form '(MONTH DAY YEAR)'. +this expression is called, `date' is a list of the form `(MONTH DAY YEAR)'. The string resulting from evaluating this expression is placed at the bottom center of each date in monthly calendars, next to the @@ -151,7 +151,7 @@ For example, to include extra packages: "List of functions called after any LaTeX calendar buffer is generated. You can use this to do post-processing on the buffer. For example, to change characters with diacritical marks to their LaTeX equivalents, use - (add-hook 'cal-tex-hook + (add-hook \\='cal-tex-hook (lambda () (iso-iso2tex (point-min) (point-max))))" :type 'hook :group 'calendar-tex) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 078da3d186c..c35bd38bb64 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -360,7 +360,7 @@ See also `calendar-today-visible-hook'." "List of functions called whenever the cursor moves in the calendar. For example, - (add-hook 'calendar-move-hook (lambda () (diary-view-entries 1))) + (add-hook \\='calendar-move-hook (lambda () (diary-view-entries 1))) redisplays the diary for whatever date the cursor is moved to." :type 'hook diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index dd068196adc..ec02900f495 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -185,9 +185,9 @@ diary buffer to be displayed with diary entries from various included files, each day's entries sorted into lexicographic order, add the following to your init file: - (setq diary-display-function 'diary-fancy-display) - (add-hook 'diary-list-entries-hook 'diary-include-other-diary-files) - (add-hook 'diary-list-entries-hook 'diary-sort-entries t) + (setq diary-display-function \\='diary-fancy-display) + (add-hook \\='diary-list-entries-hook \\='diary-include-other-diary-files) + (add-hook \\='diary-list-entries-hook \\='diary-sort-entries t) Note how the sort function is placed last, so that it can sort the entries included from other files. diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index bd78ba33b98..b75e4423080 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -261,7 +261,7 @@ If non-nil all sexp diary entries are enumerated for `icalendar-export-sexp-enumeration-days' days instead of translating into an icalendar equivalent. This affects the following sexp diary entries: `diary-anniversary', -`diary-cyclic', `diary-date', `diary-float',`diary-block'. All +`diary-cyclic', `diary-date', `diary-float', `diary-block'. All other sexp entries are enumerated in any case." :version "25.1" :type 'boolean @@ -482,7 +482,7 @@ children." result)) (defun icalendar--split-value (value-string) - "Split VALUE-STRING at ';='." + "Split VALUE-STRING at ‘;=’." (let ((result '()) param-name param-value) (when value-string diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index e9a11668f23..797f2173e52 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el @@ -919,7 +919,7 @@ following format: (DEBT ENTRIES-BY-DAY ENTRIES-BY-PROJECT) DEBT is a floating point number representing the number of seconds -\"owed\" before any work was done. For a new file (one without a 'b' +“owed” before any work was done. For a new file (one without a ‘b’ entry), this is always zero. The two entries lists have similar formats. They are both alists, diff --git a/lisp/cedet/cedet-global.el b/lisp/cedet/cedet-global.el index 99bffcb16b5..9e311776261 100644 --- a/lisp/cedet/cedet-global.el +++ b/lisp/cedet/cedet-global.el @@ -36,7 +36,7 @@ (defcustom cedet-global-gtags-command "gtags" "Command name for the GNU Global gtags executable. -GTAGS is used to create the tags table queried by the 'global' command." +GTAGS is used to create the tags table queried by the ‘global’ command." :type 'string :group 'cedet) diff --git a/lisp/cedet/ede/base.el b/lisp/cedet/ede/base.el index 6d5e242de03..f49cb5bdb16 100644 --- a/lisp/cedet/ede/base.el +++ b/lisp/cedet/ede/base.el @@ -105,7 +105,7 @@ which files this object is interested in." :accessor ede-object-menu) ) "A target is a structure that describes a file set that produces something. -Targets, as with 'Make', is an entity that will manage a file set +Targets, as with `Make', is an entity that will manage a file set and knows how to compile or otherwise transform those files into some other desired outcome.") @@ -626,7 +626,7 @@ instead of the current project." (defun ede-normalize-file/directory (this project-file-name) "Fills :directory or :file slots if they're missing in project THIS. The other slot will be used to calculate values. -PROJECT-FILE-NAME is a name of project file (short name, like 'pom.xml', etc." +PROJECT-FILE-NAME is a name of project file (short name, like `pom.xml', etc." (when (and (or (not (slot-boundp this :file)) (not (oref this :file))) (slot-boundp this :directory) diff --git a/lisp/cedet/ede/cpp-root.el b/lisp/cedet/ede/cpp-root.el index 81c6737531a..22e24c8b67f 100644 --- a/lisp/cedet/ede/cpp-root.el +++ b/lisp/cedet/ede/cpp-root.el @@ -262,7 +262,7 @@ exist, it should return nil." :documentation "Compilation command that will be used for this project. It could be string or function that will accept proj argument and should return string. -The string will be passed to 'compile' function that will be issued in root +The string will be passed to `compile' function that will be issued in root directory of project." ) ) diff --git a/lisp/cedet/ede/pconf.el b/lisp/cedet/ede/pconf.el index 6545b858eff..a8310870745 100644 --- a/lisp/cedet/ede/pconf.el +++ b/lisp/cedet/ede/pconf.el @@ -31,8 +31,8 @@ (defvar ede-pconf-create-file-query 'ask "Controls if queries are made while creating project files. -A value of 'ask means to always ask the user before creating -a file, such as AUTHORS. A value of 'never means don't ask, and +A value of `ask' means to always ask the user before creating +a file, such as AUTHORS. A value of `never' means don't ask, and don't do it. A value of nil means to just do it.") ;;; Code: diff --git a/lisp/cedet/ede/pmake.el b/lisp/cedet/ede/pmake.el index 3307202bf73..1318fde6e3d 100644 --- a/lisp/cedet/ede/pmake.el +++ b/lisp/cedet/ede/pmake.el @@ -598,7 +598,8 @@ Argument THIS is the target that should insert stuff." "\t@echo Makefile is out of date! " "It needs to be regenerated by EDE.\n" "\t@echo If you have not modified Project.ede, you can" - " use 'touch' to update the Makefile time stamp.\n" + (format-message + " use ‘touch’ to update the Makefile time stamp.\n") "\t@false\n\n" "\n\n# End of Makefile\n"))) diff --git a/lisp/cedet/ede/proj-archive.el b/lisp/cedet/ede/proj-archive.el index 0c7ffdd1560..8aa5477cea5 100644 --- a/lisp/cedet/ede/proj-archive.el +++ b/lisp/cedet/ede/proj-archive.el @@ -55,7 +55,7 @@ Makefile.am generator, so use it to add this important bin program." (cl-defmethod ede-proj-makefile-garbage-patterns ((this ede-proj-target-makefile-archive)) "Add archive name to the garbage patterns. -This makes sure that the archive is removed with 'make clean'." +This makes sure that the archive is removed with `make clean'." (let ((garb (cl-call-next-method))) (append garb (list (concat "lib" (ede-name this) ".a"))))) diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index 462369621ec..48bec3c49d8 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el @@ -731,35 +731,35 @@ Strip out duplicates, and recurse on variables." (oset this :source (makefile-macro-file-list "EXTRA_DIST"))) (cl-defmethod project-am-macro ((this project-am-objectcode)) - "Return the default macro to 'edit' for this object type." + "Return the default macro to `edit' for this object type." (concat (subst-char-in-string ?- ?_ (oref this :name)) "_SOURCES")) (cl-defmethod project-am-macro ((this project-am-header-noinst)) - "Return the default macro to 'edit' for this object." + "Return the default macro to `edit' for this object." "noinst_HEADERS") (cl-defmethod project-am-macro ((this project-am-header-inst)) - "Return the default macro to 'edit' for this object." + "Return the default macro to `edit' for this object." "include_HEADERS") (cl-defmethod project-am-macro ((this project-am-header-pkg)) - "Return the default macro to 'edit' for this object." + "Return the default macro to `edit' for this object." "pkginclude_HEADERS") (cl-defmethod project-am-macro ((this project-am-header-chk)) - "Return the default macro to 'edit' for this object." + "Return the default macro to `edit' for this object." "check_HEADERS") (cl-defmethod project-am-macro ((this project-am-texinfo)) - "Return the default macro to 'edit' for this object type." + "Return the default macro to `edit' for this object type." (concat (file-name-sans-extension (oref this :name)) "_TEXINFOS")) (cl-defmethod project-am-macro ((this project-am-man)) - "Return the default macro to 'edit' for this object type." + "Return the default macro to `edit' for this object type." (oref this :name)) (cl-defmethod project-am-macro ((this project-am-lisp)) - "Return the default macro to 'edit' for this object." + "Return the default macro to `edit' for this object." "lisp_LISP") (defun project-am-buffer-object (amf buffer) diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index e86f09c114d..6639f178e86 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -225,7 +225,7 @@ to store your global macros in a more natural way." ) (defcustom semantic-c-member-of-autocast 't - "Non-nil means classes with a '->' operator will cast to its return type. + "Non-nil means classes with a `->' operator will cast to its return type. For Examples: @@ -1049,8 +1049,8 @@ now. return-list)) (defun semantic-expand-c-extern-C (tag) - "Expand TAG containing an 'extern \"C\"' statement. -This will return all members of TAG with 'extern \"C\"' added to + "Expand TAG containing an `extern \"C\"' statement. +This will return all members of TAG with `extern \"C\"' added to the typemodifiers attribute." (when (eq (semantic-tag-class tag) 'extern) (let* ((mb (semantic-tag-get-attribute tag :members)) @@ -1065,7 +1065,7 @@ the typemodifiers attribute." (defun semantic-expand-c-complex-type (tag) "Check if TAG has a full :type with a name on its own. If so, extract it, and replace it with a reference to that type. -Thus, 'struct A { int a; } B;' will create 2 toplevel tags, one +Thus, `struct A { int a; } B;' will create 2 toplevel tags, one is type A, and the other variable B where the :type of B is just a type tag A that is a prototype, and the actual struct info of A is its own toplevel tag. This function will return (cons A B)." @@ -1656,7 +1656,7 @@ SPEC-LIST is the template specifier of the datatype instantiated." (defun semantic-c--template-name-1 (spec-list) "Return a string used to compute template class name. -Based on SPEC-LIST, for ref it will return 'Foo,Bar'." +Based on SPEC-LIST, for ref it will return `Foo,Bar'." (when (car spec-list) (let* ((endpart (semantic-c--template-name-1 (cdr spec-list))) (separator (and endpart ","))) @@ -1665,7 +1665,7 @@ Based on SPEC-LIST, for ref it will return 'Foo,Bar'." (defun semantic-c--template-name (type spec-list) "Return a template class name for TYPE based on SPEC-LIST. For a type `ref' with a template specifier of (Foo Bar) it will -return 'ref'." +return `ref'." (concat (semantic-tag-name type) "<" (semantic-c--template-name-1 (cdr spec-list)) ">")) @@ -1693,7 +1693,7 @@ instantiated as specified in TYPE-DECLARATION." ;;; Patch here by "Raf" for instantiating templates. (defun semantic-c-dereference-member-of (type scope &optional type-declaration) "Dereference through the `->' operator of TYPE. -Uses the return type of the '->' operator if it is contained in TYPE. +Uses the return type of the `->' operator if it is contained in TYPE. SCOPE is the current local scope to perform searches in. TYPE-DECLARATION is passed through." (if semantic-c-member-of-autocast @@ -1709,8 +1709,8 @@ TYPE-DECLARATION is passed through." ;; tests 5 and following. (defun semantic-c-dereference-namespace (type scope &optional type-declaration) - "Dereference namespace which might hold an 'alias' for TYPE. -Such an alias can be created through 'using' statements in a + "Dereference namespace which might hold an `alias' for TYPE. +Such an alias can be created through `using' statements in a namespace declaration. This function checks the namespaces in SCOPE for such statements." (let ((scopetypes (oref scope scopetypes)) @@ -1826,7 +1826,7 @@ or nil if it cannot be found." (define-mode-local-override semantic-analyze-dereference-metatype c-mode (type scope &optional type-declaration) "Dereference TYPE as described in `semantic-analyze-dereference-metatype'. -Handle typedef, template instantiation, and '->' operator." +Handle typedef, template instantiation, and `->' operator." (let* ((dereferencer-list '(semantic-c-dereference-typedef semantic-c-dereference-template semantic-c-dereference-member-of diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index ce9e3252ec8..9c32388669b 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -1491,7 +1491,7 @@ Not meaningful return value." "Display completions in *Completions* buffer, with focus highlight. A traditional displayor which can focus on a tag by showing it. Same as `semantic-displayor-traditional', but with selection between -multiple tags with the same name done by 'focusing' on the source +multiple tags with the same name done by focusing on the source location of the different tags to differentiate them.") (cl-defmethod semantic-displayor-focus-request @@ -1684,7 +1684,7 @@ Display mechanism using tooltip for a list of possible completions.") (setq msg-tail (concat "\n[ " (number-to-string (- numcompl max-tags)) " more]")) (setq msg-tail (concat "\n[ " (number-to-string (- numcompl max-tags)) " more]")) (when (>= (oref obj typing-count) 2) - (message "Refine search to display results beyond the '%s' limit" + (message "Refine search to display results beyond the ‘%s’ limit" (symbol-name 'semantic-complete-inline-max-tags-extended))))) ((= numcompl 1) ;; two possible cases diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el index 456ef8d0ac1..33b9a2e6037 100644 --- a/lisp/cedet/semantic/ctxt.el +++ b/lisp/cedet/semantic/ctxt.el @@ -362,7 +362,7 @@ This skips forward over symbols in a complex reference. For example, in the C statement: this.that().entry; -If the cursor is on 'this', will move point to the ; after entry.") +If the cursor is on `this', will move point to the ; after entry.") (defun semantic-ctxt-end-of-symbol-default (&optional point) "Move point to the end of the current symbol under POINT. diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 7380bddd2bb..e4ac56cdab4 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el @@ -142,7 +142,7 @@ Abstract tables do not have file names associated with them." nil) (cl-defmethod semanticdb-dirty-p ((obj semanticdb-abstract-table)) - "Return non-nil if OBJ is 'dirty'." + "Return non-nil if OBJ is dirty." nil) (cl-defmethod semanticdb-set-dirty ((obj semanticdb-abstract-table)) @@ -313,7 +313,7 @@ If OBJ's file is not loaded, read it in first." (oref (oref obj parent-db) reference-directory))) (cl-defmethod semanticdb-dirty-p ((obj semanticdb-table)) - "Return non-nil if OBJ is 'dirty'." + "Return non-nil if OBJ is dirty." (oref obj dirty)) (cl-defmethod semanticdb-set-dirty ((obj semanticdb-table)) @@ -369,7 +369,7 @@ Abstract tables do not have file names associated with them." nil) (cl-defmethod semanticdb-dirty-p ((DB semanticdb-project-database)) - "Return non-nil if DB is 'dirty'. + "Return non-nil if DB is dirty. A database is dirty if the state of the database changed in a way where it may need to resynchronize with some persistent storage." (let ((dirty nil) diff --git a/lisp/cedet/semantic/java.el b/lisp/cedet/semantic/java.el index 7dcd7f1be85..fc02d034dca 100644 --- a/lisp/cedet/semantic/java.el +++ b/lisp/cedet/semantic/java.el @@ -369,7 +369,7 @@ That is @NAME." (defsubst semantic-java-doc-tag-name (tag) "Return name of the doc TAG symbol. -That is TAG `symbol-name' without the leading '@'." +That is TAG `symbol-name' without the leading ‘@’." (substring (symbol-name tag) 1)) (defun semantic-java-doc-keyword-before-p (k1 k2) diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el index c58def60585..372e1d920e7 100644 --- a/lisp/cedet/semantic/senator.el +++ b/lisp/cedet/semantic/senator.el @@ -507,7 +507,7 @@ filters in `senator-search-tag-filter-functions' remain active." (define-overloadable-function semantic-up-reference (tag) "Return a tag that is referred to by TAG. A \"reference\" could be any interesting feature of TAG. -In C++, a function may have a 'parent' which is non-local. +In C++, a function may have a `parent' which is non-local. If that parent which is only a reference in the function tag is found, we can jump to it. Some tags such as includes have other reference features.") @@ -516,7 +516,7 @@ Some tags such as includes have other reference features.") (defun senator-go-to-up-reference (&optional tag) "Move up one reference from the current TAG. A \"reference\" could be any interesting feature of TAG. -In C++, a function may have a 'parent' which is non-local. +In C++, a function may have a `parent' which is non-local. If that parent which is only a reference in the function tag is found, we can jump to it. Some tags such as includes have other reference features." diff --git a/lisp/cedet/semantic/wisent/comp.el b/lisp/cedet/semantic/wisent/comp.el index 90c5ebd0095..6730e8e5bc7 100644 --- a/lisp/cedet/semantic/wisent/comp.el +++ b/lisp/cedet/semantic/wisent/comp.el @@ -2892,7 +2892,7 @@ Also warn if X is a $N or $regionN symbol with N < 1 or N > M." "Parse BODY of semantic action. N is the maximum number of $N variables that can be referenced in BODY. Warn on references out of permitted range. -Optional argument FOUND is the accumulated list of '$N' references +Optional argument FOUND is the accumulated list of $N references encountered so far. Return a cons (FOUND . XBODY), where FOUND is the list of $N references found in BODY, and XBODY is BODY expression with diff --git a/lisp/cedet/semantic/wisent/python.el b/lisp/cedet/semantic/wisent/python.el index 6abeb4a2440..2dc3dd3c2ad 100644 --- a/lisp/cedet/semantic/wisent/python.el +++ b/lisp/cedet/semantic/wisent/python.el @@ -130,7 +130,7 @@ curly braces." (defun wisent-python-forward-balanced-expression () "Move point to the end of the balanced expression at point. -Here 'balanced expression' means anything matched by Emacs' +Here “balanced expression” means anything matched by Emacs's open/close parenthesis syntax classes. We can't use forward-sexp for this because that Emacs built-in can't parse Python's triple-quoted string syntax." @@ -490,7 +490,7 @@ Return nil if there is nothing relevant." ;; (define-mode-local-override semantic-format-tag-abbreviate python-mode (tag &optional parent color) "Format an abbreviated tag for python. -Shortens 'code' tags, but passes through for others." +Shortens `code' tags, but passes through for others." (cond ((semantic-tag-of-class-p tag 'code) ;; Just take the first line. (let ((name (semantic-tag-name tag))) diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el index a8d6a5008bb..c6b3b53f24d 100644 --- a/lisp/cedet/srecode/compile.el +++ b/lisp/cedet/srecode/compile.el @@ -75,7 +75,7 @@ any incoming dictionaries values.") :initform nil :documentation "During template insertion, this is the stack of active templates. -The top-most template is the 'active' template. Use the accessor methods +The top-most template is the `active' template. Use the accessor methods for push, pop, and peek for the active template.") (table :initarg :table :documentation @@ -290,7 +290,7 @@ Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use." ) ;; Continue (setq tags (cdr tags))) - + ;; MSG - Before install since nreverse whacks our list. (when (called-interactively-p 'interactive) (message "%d templates compiled for %s" diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 27e730f9d6a..b95d45ebc86 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el @@ -417,7 +417,7 @@ searched for NAME if it is not found in DICT. This recursive lookup can be disabled by the optional argument NON-RECURSIVE. This function derives values for some special NAMEs, such as -'FIRST' and 'LAST'." +`FIRST' and `LAST'." (if (not (slot-boundp dict 'namehash)) nil ;; Get the value of this name from the dictionary or its parent diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el index 47577844c74..f0fe498cbba 100644 --- a/lisp/cedet/srecode/document.el +++ b/lisp/cedet/srecode/document.el @@ -655,7 +655,7 @@ If there is only one tag in the region, complain." "Create documentation for the function defined in TAG. If we can identify a verb in the list followed by some name part then check the return value to see if we can use that to -finish off the sentence. That is, any function with 'alloc' in it will be +finish off the sentence. That is, any function with `alloc' in it will be allocating something based on its type." (let ((al srecode-document-autocomment-return-first-alist) (dropit nil) diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el index c24bd99c79c..d1b00157648 100644 --- a/lisp/cedet/srecode/insert.el +++ b/lisp/cedet/srecode/insert.el @@ -377,9 +377,9 @@ Can't be blank, or it might be used by regular variable insertion.") (where :initform 'begin :initarg :where :documentation - "This should be 'begin or 'end, indicating where to insert a CR. -When set to 'begin, it will insert a CR if we are not at 'bol'. -When set to 'end it will insert a CR if we are not at 'eol'.") + "This should be `begin' or `end', indicating where to insert a CR. +When `begin', insert a CR if not at 'bol'. +When `end', insert a CR if not at 'eol'.") ;; @TODO - Add slot and control for the number of blank ;; lines before and after point. ) @@ -762,7 +762,7 @@ Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use." (cl-defmethod srecode-insert-method ((sti srecode-template-inserter-point) dictionary) "Insert the STI inserter. -Save point in the class allocated 'point' slot. +Save point in the class allocated `point' slot. If `srecode-template-inserter-point-override' non-nil then this generalized marker will do something else. See `srecode-template-inserter-include-wrap' as an example." diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el index 6c8f7a6e3ca..38bdc9a2f72 100644 --- a/lisp/cedet/srecode/texi.el +++ b/lisp/cedet/srecode/texi.el @@ -245,7 +245,7 @@ that class. variable => @code{variable} class => @code{class} @xref{class} unknown => @code{unknown} - \"text\" => \\=`\\=`text'' + \"text\" => \\=`\\=`text\\='\\=' 'quoteme => @code{quoteme} non-nil => non-@code{nil} t => @code{t} diff --git a/lisp/comint.el b/lisp/comint.el index 7db297a1427..b840a22bc84 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -184,11 +184,11 @@ narrowing in effect. This way you will be certain that none of the remaining prompts will be accidentally messed up. You may wish to put something like the following in your init file: -\(add-hook 'comint-mode-hook +\(add-hook \\='comint-mode-hook (lambda () - (define-key comint-mode-map [remap kill-region] 'comint-kill-region) + (define-key comint-mode-map [remap kill-region] \\='comint-kill-region) (define-key comint-mode-map [remap kill-whole-line] - 'comint-kill-whole-line))) + \\='comint-kill-whole-line))) If you sometimes use comint-mode on text-only terminals or with `emacs -nw', you might wish to use another binding for `comint-kill-whole-line'." diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 50c52071b08..42d7fd369ed 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -534,7 +534,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." (if (not (or (eq dabbrev--last-buffer dabbrev--last-buffer-found) (minibuffer-window-active-p (selected-window)))) (progn - (message "Expansion found in '%s'" + (message "Expansion found in `%s'" (buffer-name dabbrev--last-buffer)) (setq dabbrev--last-buffer-found dabbrev--last-buffer)) (message nil)) diff --git a/lisp/delim-col.el b/lisp/delim-col.el index d16a03cc8d0..bb4b5f4ab66 100644 --- a/lisp/delim-col.el +++ b/lisp/delim-col.el @@ -179,11 +179,11 @@ Valid values are: `delimit-columns-separator' and then followed by spaces. For example, the result is: \": : \" - 'separator align separators. That is, `delimit-columns-after' is followed + `separator' align separators. That is, `delimit-columns-after' is followed by spaces and then followed by `delimit-columns-separator'. For example, the result is: \" : :\" - 'padding format column by filling with spaces before + `padding' format column by filling with spaces before `delimit-columns-after'. That is, spaces are followed by `delimit-columns-after' and then followed by `delimit-columns-separator'. diff --git a/lisp/dired-x.el b/lisp/dired-x.el index c90306aacbf..4e5da0dd1b5 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -149,7 +149,7 @@ regexp `dired-omit-files', nor files ending with extensions in To enable omitting in every Dired buffer, you can put this in your init file: - (add-hook 'dired-mode-hook (lambda () (dired-omit-mode))) + (add-hook \\='dired-mode-hook (lambda () (dired-omit-mode))) See Info node `(dired-x) Omitting Variables' for more information." :group 'dired-x diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 2022e1d3e58..3c561db4b81 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -355,12 +355,12 @@ was first made obsolete, for example a date or a release number." &optional when docstring) "Set OBSOLETE-NAME's function definition to CURRENT-NAME and mark it obsolete. -\(define-obsolete-function-alias 'old-fun 'new-fun \"22.1\" \"old-fun's doc.\") +\(define-obsolete-function-alias \\='old-fun \\='new-fun \"22.1\" \"old-fun's doc.\") is equivalent to the following two lines of code: -\(defalias 'old-fun 'new-fun \"old-fun's doc.\") -\(make-obsolete 'old-fun 'new-fun \"22.1\") +\(defalias \\='old-fun \\='new-fun \"old-fun's doc.\") +\(make-obsolete \\='old-fun \\='new-fun \"22.1\") See the docstrings of `defalias' and `make-obsolete' for more details." (declare (doc-string 4) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2ac926f1879..8b8b667f596 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3825,11 +3825,11 @@ discarding." "Execute forms in BODY, potentially guarded by CONDITION. CONDITION is a variable whose value is a test in an `if' or `cond'. BODY is the code to compile in the first arm of the if or the body of -the cond clause. If CONDITION's value is of the form (fboundp 'foo) -or (boundp 'foo), the relevant warnings from BODY about foo's +the cond clause. If CONDITION's value is of the form (fboundp \\='foo) +or (boundp \\='foo), the relevant warnings from BODY about foo's being undefined (or obsolete) will be suppressed. -If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs), +If CONDITION's value is (not (featurep \\='emacs)) or (featurep \\='xemacs), that suppresses all warnings during execution of BODY." (declare (indent 1) (debug t)) `(let* ((fbound-list (byte-compile-find-bound-condition diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index ebe21d06b8d..8a845f9b5b5 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1419,7 +1419,7 @@ regexp short cuts work. FP is the function defun information." (when (re-search-forward "^(" e t) (if (checkdoc-autofix-ask-replace (match-beginning 0) (match-end 0) - "Escape this '('? " + "Escape this ‘(’? " "\\(") nil (checkdoc-create-error diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index f516e78c8cf..61cb3c3af4e 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el @@ -128,8 +128,8 @@ A value of nil specifies `try-completion'. A value of t specifies `all-completions'. A value of lambda specifies a test for an exact match. For more information on STRING, PREDICATE, and FLAG, see the Elisp -Reference sections on 'Programmed Completion' and 'Basic Completion -Functions'." +Reference sections on “Programmed Completion” and “Basic Completion +Functions”." (let ((beg 0)) (while (string-match crm-separator string beg) (setq beg (match-end 0))) diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 7cc789f7129..3ad496ac203 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -85,7 +85,7 @@ This applies to `eval-defun', `eval-region', `eval-buffer', and You can use the command `edebug-all-defs' to toggle the value of this variable. You may wish to make it local to each buffer with -\(make-local-variable 'edebug-all-defs) in your +\(make-local-variable \\='edebug-all-defs) in your `emacs-lisp-mode-hook'." :type 'boolean :group 'edebug) diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index 8c67d8cd791..15eeb49707b 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -383,7 +383,7 @@ Returns the forms." tops)) (end-of-file (goto-char elint-current-pos) - (error "Missing ')' in top form: %s" + (error "Missing ‘)’ in top form: %s" (buffer-substring elint-current-pos (line-end-position)))))))) (nreverse tops)))) diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el index 647784b8552..cae3fa2d460 100644 --- a/lisp/emacs-lisp/ert-x.el +++ b/lisp/emacs-lisp/ert-x.el @@ -214,7 +214,7 @@ property list, or no properties if there is no plist before it. As a simple example, -\(ert-propertized-string \"foo \" '(face italic) \"bar\" \" baz\" nil \ +\(ert-propertized-string \"foo \" \\='(face italic) \"bar\" \" baz\" nil \ \" quux\"\) would return the string \"foo bar baz quux\" where the substring diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index b37d0134810..6fdd348caab 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -552,11 +552,11 @@ copyright notice is allowed." ((not (lm-keywords-finder-p)) "‘Keywords:’ has no valid finder keywords (see ‘finder-known-keywords’)") ((not (lm-commentary-mark)) - "Can't find a 'Commentary' section marker") + "Can't find a ‘Commentary’ section marker") ((not (lm-history-mark)) - "Can't find a 'History' section marker") + "Can't find a ‘History’ section marker") ((not (lm-code-mark)) - "Can't find a 'Code' section marker") + "Can't find a ‘Code’ section marker") ((progn (goto-char (point-max)) (not diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 72684579176..5fe36bb92d4 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -115,8 +115,8 @@ Patterns can take the following forms: SYMBOL matches anything and binds it to SYMBOL. (or PAT...) matches if any of the patterns matches. (and PAT...) matches if all the patterns match. - 'VAL matches if the object is `equal' to VAL - ATOM is a shorthand for 'ATOM. + \\='VAL matches if the object is `equal' to VAL + ATOM is a shorthand for \\='ATOM. ATOM can be a keyword, an integer, or a string. (pred FUN) matches if FUN applied to the object returns non-nil. (guard BOOLEXP) matches if BOOLEXP evaluates to non-nil. diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index 0129d930ca1..7b0de6edb69 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -815,9 +815,9 @@ of all atomic regexps." (defun rx-greedy (form) "Parse and produce code from FORM. -If FORM is '(minimal-match FORM1)', non-greedy versions of `*', +If FORM is `(minimal-match FORM1)', non-greedy versions of `*', `+', and `?' operators will be used in FORM1. If FORM is -'(maximal-match FORM1)', greedy operators will be used." +`(maximal-match FORM1)', greedy operators will be used." (rx-check form) (let ((rx-greedy-flag (eq (car form) 'maximal-match))) (rx-form (cadr form) rx-parent))) diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index 59bf6345f88..c7a95e4e5f3 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el @@ -213,7 +213,7 @@ For example, suppose `load-path' is set to and that each of these directories contains a file called XXX.el. Then XXX.el in the site-lisp directory is referred to by all of: -\(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc. +\(require \\='XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc. The first XXX.el file prevents Emacs from seeing the second (unless the second is loaded explicitly via `load-file'). diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 14f424e9344..4fe948a2918 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -3639,24 +3639,26 @@ the Emacs binding of `/'." (let (msg) (cond ((or (eq arg 1) (and (null arg) - (y-or-n-p (format "Search style: '%s'. Want '%s'? " - (if viper-case-fold-search - "case-insensitive" "case-sensitive") - (if viper-case-fold-search - "case-sensitive" - "case-insensitive"))))) + (y-or-n-p (format-message + "Search style: ‘%s’. Want ‘%s’? " + (if viper-case-fold-search + "case-insensitive" "case-sensitive") + (if viper-case-fold-search + "case-sensitive" + "case-insensitive"))))) (setq viper-case-fold-search (null viper-case-fold-search)) (if viper-case-fold-search (setq msg "Search becomes case-insensitive") (setq msg "Search becomes case-sensitive"))) ((or (eq arg 2) (and (null arg) - (y-or-n-p (format "Search style: '%s'. Want '%s'? " - (if viper-re-search - "regexp-search" "vanilla-search") - (if viper-re-search - "vanilla-search" - "regexp-search"))))) + (y-or-n-p (format-message + "Search style: ‘%s’. Want ‘%s’? " + (if viper-re-search + "regexp-search" "vanilla-search") + (if viper-re-search + "vanilla-search" + "regexp-search"))))) (setq viper-re-search (null viper-re-search)) (if viper-re-search (setq msg "Search becomes regexp-style") @@ -4400,7 +4402,7 @@ and regexp replace." ;; etc. (defun viper-cycle-through-mark-ring () "Visit previous locations on the mark ring. -One can use \\=`\\=` and '' to temporarily jump 1 step back." +One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back." (let* ((sv-pt (point))) ;; if repeated `m,' command, pop the previously saved mark. ;; Prev saved mark is actually prev saved point. It is used if the diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index d03d703c1ed..e28c67a5315 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -583,7 +583,7 @@ the Insert state." (defcustom viper-keep-point-on-repeat t "If t, don't move point when repeating previous command. -This is useful for doing repeated changes with the '.' key. +This is useful for doing repeated changes with the ‘.’ key. The user can change this to nil, if she likes when the cursor moves to a new place after repeating previous Vi command." :type 'boolean diff --git a/lisp/epa.el b/lisp/epa.el index 47452af13e0..9f112c4eb83 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -841,10 +841,10 @@ should consider using the string based counterpart For example: -\(let ((context (epg-make-context 'OpenPGP))) +\(let ((context (epg-make-context \\='OpenPGP))) (decode-coding-string (epg-decrypt-string context (buffer-substring start end)) - 'utf-8))" + \\='utf-8))" (interactive "r") (save-excursion (let ((context (epg-make-context epa-protocol)) @@ -939,10 +939,10 @@ should consider using the string based counterpart For example: -\(let ((context (epg-make-context 'OpenPGP))) +\(let ((context (epg-make-context \\='OpenPGP))) (decode-coding-string (epg-verify-string context (buffer-substring start end)) - 'utf-8))" + \\='utf-8))" (declare (interactive-only t)) (interactive "r") (let ((context (epg-make-context epa-protocol)) @@ -1028,10 +1028,10 @@ based counterpart `epg-sign-file' instead. For example: -\(let ((context (epg-make-context 'OpenPGP))) +\(let ((context (epg-make-context \\='OpenPGP))) (epg-sign-string context - (encode-coding-string (buffer-substring start end) 'utf-8)))" + (encode-coding-string (buffer-substring start end) \\='utf-8)))" (declare (interactive-only t)) (interactive (let ((verbose current-prefix-arg)) @@ -1114,10 +1114,10 @@ file based counterpart `epg-encrypt-file' instead. For example: -\(let ((context (epg-make-context 'OpenPGP))) +\(let ((context (epg-make-context \\='OpenPGP))) (epg-encrypt-string context - (encode-coding-string (buffer-substring start end) 'utf-8) + (encode-coding-string (buffer-substring start end) \\='utf-8) nil))" (declare (interactive-only t)) (interactive diff --git a/lisp/epg.el b/lisp/epg.el index 0c8f5c9b0ae..ed71e966853 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -1614,7 +1614,7 @@ handle the case where SIGNATURE has multiple signature. To check the verification results, use `epg-context-result-for' as follows: -\(epg-context-result-for context 'verify) +\(epg-context-result-for context \\='verify) which will return a list of `epg-signature' object." (unwind-protect @@ -1649,7 +1649,7 @@ handle the case where SIGNATURE has multiple signature. To check the verification results, use `epg-context-result-for' as follows: -\(epg-context-result-for context 'verify) +\(epg-context-result-for context \\='verify) which will return a list of `epg-signature' object." (let ((coding-system-for-write 'binary) diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 3530a31ea05..6139e939924 100644 --- a/lisp/erc/erc-button.el +++ b/lisp/erc/erc-button.el @@ -511,7 +511,8 @@ Examples: (defun erc-nick-popup (nick) (let* ((completion-ignore-case t) - (action (completing-read (concat "What action to take on '" nick "'? ") + (action (completing-read (format-message + "What action to take on ‘%s’? " nick) erc-nick-popup-alist)) (code (cdr (assoc action erc-nick-popup-alist)))) (when code diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index d4d005d8345..bb6e3115b49 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el @@ -166,7 +166,7 @@ All values of the list must be uppercase strings.") "Return the first matching entry in `erc-dcc-list' which satisfies the constraints given as a plist in ARGS. Returns nil on no match. -The property :nick is treated specially, if it contains a '!' character, +The property :nick is treated specially, if it contains a ‘!’ character, it is treated as a nick!user@host string, and compared with the :nick property value of the individual elements using string-equal. Otherwise it is compared with `erc-nick-equal-p' which is IRC case-insensitive." @@ -315,10 +315,10 @@ Should be set to a string or nil. If nil, use the value of (defcustom erc-dcc-send-request 'ask "How to treat incoming DCC Send requests. -'ask - Report the Send request, and wait for the user to manually accept it - You might want to set `erc-dcc-auto-masks' for this. -'auto - Automatically accept the request and begin downloading the file -'ignore - Ignore incoming DCC Send requests completely." +`ask' - Report the Send request, and wait for the user to manually accept it + You might want to set `erc-dcc-auto-masks' for this. +`auto' - Automatically accept the request and begin downloading the file +`ignore' - Ignore incoming DCC Send requests completely." :group 'erc-dcc :type '(choice (const ask) (const auto) (const ignore))) @@ -713,9 +713,9 @@ match, returns that regexp and nil otherwise." (defcustom erc-dcc-chat-request 'ask "How to treat incoming DCC Chat requests. -'ask - Report the Chat request, and wait for the user to manually accept it -'auto - Automatically accept the request and open a new chat window -'ignore - Ignore incoming DCC chat requests completely." +`ask' - Report the Chat request, and wait for the user to manually accept it +`auto' - Automatically accept the request and open a new chat window +`ignore' - Ignore incoming DCC chat requests completely." :group 'erc-dcc :type '(choice (const ask) (const auto) (const ignore))) diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el index 776231f80aa..55f298bbf69 100644 --- a/lisp/erc/erc-match.el +++ b/lisp/erc/erc-match.el @@ -88,13 +88,13 @@ Useful to mark nicks from dangerous hosts." The following values are allowed: - nil - do not highlight the message at all - 'keyword - highlight all instances of current nickname in message - 'nick - highlight the nick of the user who typed your nickname - 'nick-or-keyword - highlight the nick of the user who typed your nickname, - or all instances of the current nickname if there was - no sending user - 'all - highlight the entire message where current nickname occurs + nil - do not highlight the message at all + `keyword' - highlight all instances of current nickname in message + `nick' - highlight the nick of the user who typed your nickname + `nick-or-keyword' - highlight the nick of the user who typed your nickname, + or all instances of the current nickname if there was + no sending user + `all' - highlight the entire message where current nickname occurs Any other value disables highlighting of current nickname altogether." :group 'erc-match @@ -110,9 +110,9 @@ See `erc-pals'. The following values are allowed: - nil - do not highlight the message at all - 'nick - highlight pal's nickname only - 'all - highlight the entire message from pal + nil - do not highlight the message at all + `nick' - highlight pal's nickname only + `all' - highlight the entire message from pal Any other value disables pal highlighting altogether." :group 'erc-match @@ -126,9 +126,9 @@ See `erc-fools'. The following values are allowed: - nil - do not highlight the message at all - 'nick - highlight fool's nickname only - 'all - highlight the entire message from fool + nil - do not highlight the message at all + `nick' - highlight fool's nickname only + `all' - highlight the entire message from fool Any other value disables fool highlighting altogether." :group 'erc-match @@ -142,8 +142,8 @@ See variable `erc-keywords'. The following values are allowed: - 'keyword - highlight keyword only - 'all - highlight the entire message containing keyword + `keyword' - highlight keyword only + `all' - highlight the entire message containing keyword Any other value disables keyword highlighting altogether." :group 'erc-match @@ -157,8 +157,8 @@ See `erc-dangerous-hosts'. The following values are allowed: - 'nick - highlight nick from dangerous-host only - 'all - highlight the entire message from dangerous-host + `nick' - highlight nick from dangerous-host only + `all' - highlight the entire message from dangerous-host Any other value disables dangerous-host highlighting altogether." :group 'erc-match diff --git a/lisp/erc/erc-services.el b/lisp/erc/erc-services.el index b37427f839d..07a4274dcb6 100644 --- a/lisp/erc/erc-services.el +++ b/lisp/erc/erc-services.el @@ -83,11 +83,11 @@ communication with those Services." Possible settings are:. -'autodetect - Identify when the real Nickserv sends an identify request. -'nick-change - Identify when you log in or change your nickname. -'both - Do the former if the network supports it, otherwise do the - latter. -nil - Disables automatic Nickserv identification. +`autodetect' - Identify when the real Nickserv sends an identify request. +`nick-change' - Identify when you log in or change your nickname. +`both' - Do the former if the network supports it, otherwise do the + latter. +nil - Disables automatic Nickserv identification. You can also use M-x erc-nickserv-identify-mode to change modes." :group 'erc-services @@ -447,4 +447,3 @@ When called interactively, read the password using `read-passwd'." ;; indent-tabs-mode: t ;; tab-width: 8 ;; End: - diff --git a/lisp/erc/erc-speedbar.el b/lisp/erc/erc-speedbar.el index a1bf32baa4d..6015a6ac9fb 100644 --- a/lisp/erc/erc-speedbar.el +++ b/lisp/erc/erc-speedbar.el @@ -48,9 +48,9 @@ (defcustom erc-speedbar-sort-users-type 'activity "How channel nicknames are sorted. -'activity - Sort users by channel activity -'alphabetical - Sort users alphabetically -nil - Do not sort users" +`activity' - Sort users by channel activity +`alphabetical' - Sort users alphabetically +nil - Do not sort users" :group 'erc-speedbar :type '(choice (const :tag "Sort users by channel activity" activity) (const :tag "Sort users alphabetically" alphabetical) @@ -364,4 +364,3 @@ The INDENT level is ignored." ;; indent-tabs-mode: t ;; tab-width: 8 ;; End: - diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index 1a9aee199a3..2ebc1f22c09 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el @@ -248,10 +248,10 @@ The effect may be disabled by setting this variable to nil." Setting this variable only has effects in GNU Emacs versions above 21.3. Choices are: -'before-modes - add to the beginning of `mode-line-modes', -'after-modes - add to the end of `mode-line-modes', -t - add to the end of `global-mode-string', -nil - don't add to mode line." +`before-modes' - add to the beginning of `mode-line-modes', +`after-modes' - add to the end of `mode-line-modes', +t - add to the end of `global-mode-string', +nil - don't add to mode line." :group 'erc-track :type '(choice (const :tag "Just before mode information" before-modes) (const :tag "Just after mode information" after-modes) diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 460accd3be3..f2821798103 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -230,7 +230,7 @@ prompt you for it.") (defcustom erc-hide-prompt nil "If non-nil, do not display the prompt for commands. -\(A command is any input starting with a '/'). +\(A command is any input starting with a ‘/’). See also the variables `erc-prompt' and `erc-command-indicator'." :group 'erc-display @@ -667,7 +667,7 @@ See also the variable `erc-prompt'." "Indicator used by ERC for showing commands. If non-nil, this will be used in the ERC buffer to indicate -commands (i.e., input starting with a '/'). +commands (i.e., input starting with a ‘/’). If nil, the prompt will be constructed from the variable `erc-prompt'." :group 'erc-display @@ -696,8 +696,8 @@ See `erc-notice-prefix'. The following values are allowed: - 'prefix - highlight notice prefix only - 'all - highlight the entire notice + `prefix' - highlight notice prefix only + `all' - highlight the entire notice Any other value disables notice's highlighting altogether." :group 'erc-display @@ -1258,13 +1258,13 @@ erc-NAME-enable, and erc-NAME-disable. Example: - ;;;###autoload (autoload 'erc-replace-mode \"erc-replace\") + ;;;###autoload (autoload \\='erc-replace-mode \"erc-replace\") (define-erc-module replace nil \"This mode replaces incoming text according to `erc-replace-alist'.\" - ((add-hook 'erc-insert-modify-hook - 'erc-replace-insert)) - ((remove-hook 'erc-insert-modify-hook - 'erc-replace-insert)))" + ((add-hook \\='erc-insert-modify-hook + \\='erc-replace-insert)) + ((remove-hook \\='erc-insert-modify-hook + \\='erc-replace-insert)))" (declare (doc-string 3)) (let* ((sn (symbol-name name)) (mode (intern (format "erc-%s-mode" (downcase sn)))) @@ -1476,11 +1476,11 @@ Defaults to the server buffer." The available choices are: - 'window - in another window, - 'window-noselect - in another window, but don't select that one, - 'frame - in another frame, - 'bury - bury it in a new buffer, - 'buffer - in place of the current buffer, + `window' - in another window, + `window-noselect' - in another window, but don't select that one, + `frame' - in another frame, + `bury' - bury it in a new buffer, + `buffer' - in place of the current buffer, any other value - in place of the current buffer." :group 'erc-buffers :type '(choice (const :tag "Split window and select" window) @@ -2789,7 +2789,7 @@ this function from interpreting the line as a command." (defun erc-cmd-SAY (line) "Send LINE to the current query or channel as a message, not a command. -Use this when you want to send a message with a leading '/'. Note +Use this when you want to send a message with a leading ‘/’. Note that since multi-line messages are never a command, you don't need this when pasting multiple lines of text." (if (string-match "^\\s-*$" line) @@ -3119,9 +3119,9 @@ a script after exceeding the flood threshold." (erc-display-message nil 'error (current-buffer) 'cannot-read-file ?f file)) (t - (message "Loading \'%s\'..." file) + (message "Loading ‘%s’..." file) (erc-load-script file) - (message "Loading \'%s\'...done" file)))) + (message "Loading ‘%s’...done" file)))) t) (t nil))) @@ -4466,7 +4466,7 @@ See also: `erc-echo-notice-in-user-buffers', "Handle the logging in process of connection." (unless erc-logged-in (setq erc-logged-in t) - (message "Logging in as \'%s\'... done" (erc-current-nick)) + (message "Logging in as ‘%s’... done" (erc-current-nick)) ;; execute a startup script (let ((f (erc-select-startup-file))) (when f @@ -6512,7 +6512,7 @@ All windows are opened in the current frame." . "\n\nConnection failed! Not re-establishing connection.\n") (finished . "\n\n*** ERC finished ***\n") (terminated . "\n\n*** ERC terminated: %e\n") - (login . "Logging in as \'%n\'...") + (login . "Logging in as ‘%n’...") (nick-in-use . "%n is in use. Choose new nickname: ") (nick-too-long . "WARNING: Nick length (%i) exceeds max NICKLEN(%l) defined by server") diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el index 8a3b5817d5f..ac1616d504f 100644 --- a/lisp/eshell/em-dirs.el +++ b/lisp/eshell/em-dirs.el @@ -71,7 +71,7 @@ they lack somewhat in feel from the typical shell equivalents." "The function used to normalize the value of Eshell's `pwd'. The value returned by `pwd' is also used when recording the last-visited directory in the last-dir-ring, so it will affect the -form of the list used by 'cd ='." +form of the list used by `cd ='." :type '(radio (function-item file-truename) (function-item expand-file-name) (function-item identity) @@ -115,7 +115,7 @@ calls \"ls\" and references `eshell-last-arguments'." :group 'eshell-dirs) (defcustom eshell-pushd-tohome nil - "If non-nil, make pushd with no arg behave as 'pushd ~' (like `cd'). + "If non-nil, make pushd with no arg behave as `pushd ~' (like `cd'). This mirrors the optional behavior of tcsh." :type 'boolean :group 'eshell-dirs) @@ -150,11 +150,11 @@ If it is nil, the last-dir-ring will not be written to disk." "If non-nil, the size of the directory history ring. This ring is added to every time `cd' or `pushd' is used. It simply stores the most recent directory locations Eshell has been in. To -return to the most recent entry, use 'cd -' (equivalent to 'cd -0'). -To return to an older entry, use 'cd -N', where N is an integer less +return to the most recent entry, use `cd -' (equivalent to `cd -0'). +To return to an older entry, use `cd -N', where N is an integer less than `eshell-last-dir-ring-size'. To return to the last directory -matching a particular regexp, use 'cd =REGEXP'. To display the -directory history list, use 'cd ='. +matching a particular regexp, use `cd =REGEXP'. To display the +directory history list, use `cd ='. This mechanism is very similar to that provided by `pushd', except it's far more automatic. `pushd' allows the user to decide which @@ -313,7 +313,7 @@ Thus, this does not include the current directory.") path))) (defun eshell-expand-multiple-dots (path) - "Convert '...' to '../..', '....' to '../../..', etc.. + "Convert `...' to `../..', `....' to `../../..', etc.. With the following piece of advice, you can make this functionality available in most of Emacs, with the exception of filename completion @@ -364,7 +364,7 @@ in the minibuffer: (let ((curdir (eshell/pwd))) (if (string-match path curdir) (setq path (replace-match subpath nil nil curdir)) - (error "Path substring '%s' not found" path)))) + (error "Path substring ‘%s’ not found" path)))) ((and path (string-match "^-\\([0-9]*\\)$" path)) (let ((index (match-string 1 path))) (setq path diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el index c7ebbf8c140..8abdd0058fb 100644 --- a/lisp/eshell/em-glob.el +++ b/lisp/eshell/em-glob.el @@ -193,7 +193,7 @@ The basic syntax is: * .* matches any group of characters (or none) # * matches zero or more occurrences of preceding ## + matches one or more occurrences of preceding - (x) \(x\) makes 'x' a regular expression group + (x) \(x\) makes ‘x’ a regular expression group | \| boolean OR within an expression group [a-b] [a-b] matches a character or range [^a] [^a] excludes a character or range @@ -220,7 +220,7 @@ resulting regular expression." matched-in-pattern (1+ op-begin)) (let ((xlat (assq op-char eshell-glob-translate-alist))) (if (not xlat) - (error "Unrecognized globbing character '%c'" op-char) + (error "Unrecognized globbing character ‘%c’" op-char) (if (stringp (cdr xlat)) (setq regexp (concat regexp (cdr xlat)) matched-in-pattern (1+ op-begin)) diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el index 289d37dd580..539080f35c4 100644 --- a/lisp/eshell/em-pred.el +++ b/lisp/eshell/em-pred.el @@ -193,7 +193,7 @@ EXAMPLES: ***/*~f*(-/) recursively (though not traversing symlinks), find all directories (or symlinks referring to directories) whose names do not begin with f. - e*(*Lk+50) executables 50k or larger beginning with 'e'") + e*(*Lk+50) executables 50k or larger beginning with ‘e’") (defvar eshell-modifier-help-string "Eshell modifier quick reference: @@ -318,7 +318,7 @@ resultant list of strings." (if (and func (functionp func)) (setq preds (eshell-add-pred-func func preds negate follow)) - (error "Invalid function predicate '%s'" + (error "Invalid function predicate ‘%s’" (eshell-stringify func)))) (error "Invalid function predicate"))) ((eq char ?^) @@ -336,20 +336,20 @@ resultant list of strings." (cons `(lambda (lst) (mapcar (function ,func) lst)) mods)) - (error "Invalid function modifier '%s'" + (error "Invalid function modifier ‘%s’" (eshell-stringify func)))) (error "Invalid function modifier"))) ((eq char ?:) (forward-char) (let ((mod (assq (char-after) eshell-modifier-alist))) (if (not mod) - (error "Unknown modifier character '%c'" (char-after)) + (error "Unknown modifier character ‘%c’" (char-after)) (forward-char) (setq mods (cons (eval (cdr mod)) mods))))) (t (let ((pred (assq char eshell-predicate-alist))) (if (not pred) - (error "Unknown predicate character '%c'" char) + (error "Unknown predicate character ‘%c’" char) (forward-char) (setq preds (eshell-add-pred-func (eval (cdr pred)) preds @@ -451,7 +451,7 @@ resultant list of strings." (defun eshell-pred-file-type (type) "Return a test which tests that the file is of a certain TYPE. TYPE must be a character, and should be one of the possible options -that 'ls -l' will show in the first column of its display. " +that `ls -l' will show in the first column of its display. " (when (eq type ?%) (setq type (char-after)) (if (memq type '(?b ?c)) diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el index 04f3a9828e2..8e65e440417 100644 --- a/lisp/eshell/em-script.el +++ b/lisp/eshell/em-script.el @@ -45,7 +45,7 @@ commands, as a script file." (defcustom eshell-login-script (expand-file-name "login" eshell-directory-name) "If non-nil, a file to invoke when starting up Eshell interactively. This file should be a file containing Eshell commands, where comment -lines begin with '#'." +lines begin with ‘#’." :type 'file :group 'eshell-script) @@ -89,7 +89,7 @@ This includes when running `eshell-command'." (defun eshell-source-file (file &optional args subcommand-p) "Execute a series of Eshell commands in FILE, passing ARGS. -Comments begin with '#'." +Comments begin with ‘#’." (interactive "f") (let ((orig (point)) (here (point-max)) diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el index 9ac281372cf..a8fa9733b42 100644 --- a/lisp/eshell/em-term.el +++ b/lisp/eshell/em-term.el @@ -40,7 +40,7 @@ ;;;###autoload (progn (defgroup eshell-term nil - "This module causes visual commands (e.g., 'vi') to be executed by + "This module causes visual commands (e.g., `vi') to be executed by the `term' package, which comes with Emacs. This package handles most of the ANSI control codes, allowing curses-based applications to run within an Emacs window. The variable `eshell-visual-commands' defines diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index c50a874629b..210e74dc1b7 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el @@ -168,10 +168,10 @@ Otherwise, Emacs will attempt to use rsh to invoke du on the remote machine." (defun eshell/info (&rest args) "Run the info command in-frame with the same behavior as command-line `info', ie: - 'info' => goes to top info window - 'info arg1' => IF arg1 is a file, then visits arg1 - 'info arg1' => OTHERWISE goes to top info window and then menu item arg1 - 'info arg1 arg2' => does action for arg1 (either visit-file or menu-item) and then menu item arg2 + `info' => goes to top info window + `info arg1' => IF arg1 is a file, then visits arg1 + `info arg1' => OTHERWISE goes to top info window and then menu item arg1 + `info arg1 arg2' => does action for arg1 (either visit-file or menu-item) and then menu item arg2 etc." (eval-and-compile (require 'info)) (let ((file (cond @@ -579,7 +579,7 @@ Copy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.") Create a link to the specified TARGET with optional LINK_NAME. If there is more than one TARGET, the last argument must be a directory; create links in DIRECTORY to each TARGET. Create hard links by default, symbolic links -with '--symbolic'. When creating hard links, each TARGET must exist.") +with `--symbolic'. When creating hard links, each TARGET must exist.") (let ((no-dereference t)) (eshell-mvcpln-template "ln" "linking" (if symbolic diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el index 49ba72735da..93d795b1351 100644 --- a/lisp/eshell/esh-arg.el +++ b/lisp/eshell/esh-arg.el @@ -237,7 +237,7 @@ Point is left at the end of the arguments." (let* ((here (point)) (arg (eshell-parse-argument))) (if (= (point) here) - (error "Failed to parse argument '%s'" + (error "Failed to parse argument `%s'" (buffer-substring here (point-max)))) (and arg (nconc args (list arg))))))) (throw 'eshell-incomplete (if (listp delim) @@ -357,13 +357,13 @@ after are both returned." (goto-char (1+ end))))))) (defun eshell-parse-special-reference () - "Parse a special syntax reference, of the form '#'. + "Parse a special syntax reference, of the form `#'. args := `type' `whitespace' `arbitrary-args' | `arbitrary-args' type := \"buffer\" or \"process\" arbitrary-args := any string of characters. -If the form has no 'type', the syntax is parsed as if 'type' were +If the form has no `type', the syntax is parsed as if `type' were \"buffer\"." (when (and (not eshell-current-argument) (not eshell-current-quoted) diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index d0c8cc422aa..efd85826f27 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -165,13 +165,13 @@ In order to substitute an alternate command form for execution, the hook function should throw it using the tag `eshell-replace-command'. For example: - (add-hook 'eshell-named-command-hook 'subst-with-cd) + (add-hook \\='eshell-named-command-hook \\='subst-with-cd) (defun subst-with-cd (command args) - (throw 'eshell-replace-command + (throw \\='eshell-replace-command (eshell-parse-command \"cd\" args))) Although useless, the above code will cause any non-glob, non-Lisp -command (i.e., 'ls' as opposed to '*ls' or '(ls)') to be replaced by a +command (i.e., `ls' as opposed to `*ls' or `(ls)') to be replaced by a call to `cd' using the arguments that were passed to the function." :type 'hook :group 'eshell-cmd) @@ -243,7 +243,7 @@ return non-nil if the command is complex." "If non-nil, enable Eshell debugging code. This is slow, and only useful for debugging problems with Eshell. If you change this without using customize after Eshell has loaded, -you must re-load 'esh-cmd.el'." +you must re-load `esh-cmd.el'." :initialize 'custom-initialize-default :set (lambda (symbol value) (set symbol value) @@ -390,7 +390,7 @@ hooks should be run before and after the command." (macroexp-progn commands)))) (defun eshell-debug-command (tag subform) - "Output a debugging message to '*eshell last cmd*'." + "Output a debugging message to `*eshell last cmd*'." (let ((buf (get-buffer-create "*eshell last cmd*")) (text (eshell-stringify eshell-current-command))) (with-current-buffer buf @@ -424,14 +424,14 @@ hooks should be run before and after the command." (setq terms (cdr terms)))) (defun eshell-rewrite-sexp-command (terms) - "Rewrite a sexp in initial position, such as '(+ 1 2)'." + "Rewrite a sexp in initial position, such as `(+ 1 2)'." ;; this occurs when a Lisp expression is in first position (if (and (listp (car terms)) (eq (caar terms) 'eshell-command-to-value)) (car (cdar terms)))) (defun eshell-rewrite-initial-subcommand (terms) - "Rewrite a subcommand in initial position, such as '{+ 1 2}'." + "Rewrite a subcommand in initial position, such as `{+ 1 2}'." (if (and (listp (car terms)) (eq (caar terms) 'eshell-as-subcommand)) (car terms))) @@ -634,7 +634,7 @@ For an external command, it means an exit code of 0." final)) (defun eshell-parse-subcommand-argument () - "Parse a subcommand argument of the form '{command}'." + "Parse a subcommand argument of the form `{command}'." (if (and (not eshell-current-argument) (not eshell-current-quoted) (eq (char-after) ?\{) diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index 91c4f4b6095..81ffaa713da 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el @@ -66,7 +66,7 @@ loaded into memory, thus beginning a new process." This can be useful on systems like Windows, where the operating system doesn't support the execution bit for shell scripts; or in cases where you want to associate an interpreter with a particular kind of script -file, but the language won't let you but a '#!' interpreter line in +file, but the language won't let you but a `#!' interpreter line in the file, and you don't want to make it executable since nothing else but Eshell will be able to understand `eshell-interpreter-alist'." diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el index dc731bc928a..749c481da3e 100644 --- a/lisp/eshell/esh-io.el +++ b/lisp/eshell/esh-io.el @@ -182,7 +182,7 @@ not be added to this variable." #'eshell--apply-redirections)) (defun eshell-parse-redirection () - "Parse an output redirection, such as '2>'." + "Parse an output redirection, such as `2>'." (if (and (not eshell-current-quoted) (looking-at "\\([0-9]\\)?\\(<\\|>+\\)&?\\([0-9]\\)?\\s-*")) (if eshell-current-argument diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el index 5b4cdb08830..2e929b05f49 100644 --- a/lisp/eshell/esh-opt.el +++ b/lisp/eshell/esh-opt.el @@ -178,9 +178,9 @@ This code doesn't really need to be macro expanded everywhere." (if extcmd (setq usage (concat usage - (format " + (format-message " This command is implemented in Lisp. If an unrecognized option is -passed to this command, the external version '%s' +passed to this command, the external version ‘%s’ will be called instead." extcmd))))) (throw 'eshell-usage usage))) diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el index 197a8e77cc7..f5110c38475 100644 --- a/lisp/eshell/esh-var.el +++ b/lisp/eshell/esh-var.el @@ -116,7 +116,7 @@ (require 'ring) (defgroup eshell-var nil - "Variable interpolation is introduced whenever the '$' character + "Variable interpolation is introduced whenever the ‘$’ character appears unquoted in any argument (except when that argument is surrounded by single quotes). It may be used to interpolate a variable value, a subcommand, or even the result of a Lisp form." @@ -148,7 +148,7 @@ variable value, a subcommand, or even the result of a Lisp form." (defcustom eshell-variable-name-regexp "[A-Za-z0-9_-]+" "A regexp identifying what constitutes a variable name reference. -Note that this only applies for '$NAME'. If the syntax '$' is +Note that this only applies for `$NAME'. If the syntax `$' is used, then NAME can contain any character, including angle brackets, if they are quoted with a backslash." :type 'regexp @@ -186,12 +186,12 @@ if they are quoted with a backslash." It is very similar in concept to what `eshell-user-aliases-list' does for commands. Each member of this defines the name of a command, and the Lisp value to return for that variable if it is accessed -via the syntax '$NAME'. +via the syntax `$NAME'. If the value is a function, that function will be called with two arguments: the list of the indices that was used in the reference, and whether the user is requesting the length of the ultimate element. -For example, a reference of '$NAME[10][20]' would result in the +For example, a reference of `$NAME[10][20]' would result in the function for alias `NAME' being called (assuming it were aliased to a function), and the arguments passed to this function would be the list '(10 20)', and nil." @@ -231,7 +231,7 @@ function), and the arguments passed to this function would be the list 'eshell-complete-variable-assignment nil t))) (defun eshell-handle-local-variables () - "Allow for the syntax 'VAR=val '." + "Allow for the syntax `VAR=val '." ;; strip off any null commands, which can only happen if a variable ;; evaluates to nil, such as "$var x", where `var' is nil. The ;; command name in that case becomes `x', for compatibility with diff --git a/lisp/files-x.el b/lisp/files-x.el index a130ffcf928..524ad492174 100644 --- a/lisp/files-x.el +++ b/lisp/files-x.el @@ -189,7 +189,7 @@ from the Local Variables list ignoring the input argument VALUE." (unless (let ((case-fold-search t)) (goto-char beg) (search-forward "Local Variables:" nil t)) - (throw 'exit (message "Can't add file-local variables")))) + (throw 'exit (message "Can’t add file-local variables")))) ;; prefix is what comes before "local variables:" in its line. ;; suffix is what comes after "local variables:" in its line. diff --git a/lisp/filesets.el b/lisp/filesets.el index a30c187676b..8e2b145d04c 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el @@ -416,7 +416,7 @@ Possible uses: If you don't want to save `filesets-data' in your normal configuration file, you can add a something like this \(lambda () - \(insert (format \"(setq-default filesets-data '%S)\" + \(insert (format \"(setq-default filesets-data \\='%S)\" filesets-data)) \(newline 2)) @@ -975,7 +975,7 @@ being an association list with the fields: :pattern DIR PATTERN ... a base directory and a regexp matching files in that directory. Usually, - PATTERN has the form '^REGEXP$'. Unlike + PATTERN has the form `^REGEXP$'. Unlike :tree, this form does not descend recursively into subdirectories. @@ -1799,7 +1799,7 @@ User will be queried, if no fileset name is provided." (current-buffer))) (name (or name (completing-read - (format "Add '%s' to fileset: " buffer) + (format-message "Add ‘%s’ to fileset: " buffer) filesets-data nil))) (entry (or (assoc name filesets-data) (when (y-or-n-p @@ -1819,13 +1819,13 @@ User will be queried, if no fileset name is provided." :test 'filesets-files-equalp))) (cond (inlist - (message "Filesets: '%s' is already in '%s'" this name)) + (message "Filesets: ‘%s’ is already in ‘%s’" this name)) ((and (equal (filesets-entry-mode entry) ':files) this) (filesets-entry-set-files entry (cons this files) t) (filesets-set-config name 'filesets-data filesets-data)) (t - (message "Filesets: Can't add '%s' to fileset '%s'" this name))))))) + (message "Filesets: Can't add ‘%s’ to fileset ‘%s’" this name))))))) (defun filesets-remove-buffer (&optional name buffer) "Remove BUFFER (or current buffer) to fileset NAME. @@ -1835,7 +1835,7 @@ User will be queried, if no fileset name is provided." (current-buffer))) (name (or name (completing-read - (format "Remove '%s' from fileset: " buffer) + (format-message "Remove ‘%s’ from fileset: " buffer) filesets-data nil t))) (entry (assoc name filesets-data))) (if entry @@ -1848,7 +1848,7 @@ User will be queried, if no fileset name is provided." (let ((new (list (cons ':files (delete (car inlist) files))))) (setcdr entry new) (filesets-set-config name 'filesets-data filesets-data)) - (message "Filesets: Can't remove '%s' from fileset '%s'" + (message "Filesets: Can't remove ‘%s’ from fileset ‘%s’" this name)))))) @@ -2437,38 +2437,38 @@ fileset thinks this is necessary or not." (filesets-menu-cache-file-load)) (defun filesets-update-pre010505 () - (let ((msg + (let ((msg (format-message "Filesets: manual editing of user data required! Filesets has detected that you were using an older version before, -which requires some manual updating. Type 'y' for editing the startup +which requires some manual updating. Type ‘y’ for editing the startup file now. -The layout of `filesets-data' has changed. Please delete your cache file +The layout of ‘filesets-data’ has changed. Please delete your cache file and edit your startup file as shown below: -1. `filesets-data': Edit all :pattern filesets in your startup file and +1. ‘filesets-data’: Edit all :pattern filesets in your startup file and transform all entries as shown in this example: \(\"Test\" (:pattern \"~/dir/^pattern$\")) --> \(\"Test\" (:pattern \"~/dir/\" \"^pattern$\")) -2. `filesets-data': Change all occurrences of \":document\" to \":ingroup\": +2. ‘filesets-data’: Change all occurrences of \":document\" to \":ingroup\": \(\(\"Test\" \(:document \"~/dir/file\")) --> \(\(\"Test\" \(:ingroup \"~/dir/file\")) -3. `filesets-subdocument-patterns': If you already modified the variable -previously called `filesets-subdocument-patterns', change its name to -`filesets-ingroup-patterns'. +3. ‘filesets-subdocument-patterns’: If you already modified the variable +previously called ‘filesets-subdocument-patterns’, change its name to +‘filesets-ingroup-patterns’. -4. `filesets-menu-cache-contents': If you already modified this -variable, change the entry `filesets-subdocument--cache' to -`filesets-ingroup-cache'. +4. ‘filesets-menu-cache-contents’: If you already modified this +variable, change the entry ‘filesets-subdocument--cache’ to +‘filesets-ingroup-cache’. 5. Type M-x filesets-update-cleanup and restart Emacs. -We apologize for the inconvenience.")) +We apologize for the inconvenience."))) (let* ((cf (or custom-file user-init-file))) (switch-to-buffer-other-frame "*Filesets update*") (insert msg) diff --git a/lisp/find-cmd.el b/lisp/find-cmd.el index 7230761f657..8e419064c1b 100644 --- a/lisp/find-cmd.el +++ b/lisp/find-cmd.el @@ -140,8 +140,8 @@ the string will be quoted).") "Initiate the building of a find command. For example: -\(find-cmd '\(prune \(name \".svn\" \".git\" \".CVS\"\)\) - '\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\) +\(find-cmd \\='\(prune \(name \".svn\" \".git\" \".CVS\"\)\) + \\='\(and \(or \(name \"*.pl\" \"*.pm\" \"*.t\"\) \(mtime \"+1\"\)\) \(fstype \"nfs\" \"ufs\"\)\)\)\) @@ -161,7 +161,7 @@ result is a string that should be ready for the command line." "And FORMs together, so: \(and \(mtime \"+1\"\) \(name \"something\"\)\) will produce: - find . \\\( -mtime '+1' -and -name 'something' \\\)" + find . \\\( -mtime +1 -and -name something \\\)" (if (< (length form) 2) (find-to-string (car form)) (concat "\\( " @@ -172,7 +172,7 @@ will produce: "Or FORMs together, so: \(or \(mtime \"+1\"\) \(name \"something\"\)\) will produce: - find . \\\( -mtime '+1' -or -name 'something' \\\)" + find . \\\( -mtime +1 -or -name something \\\)" (if (< (length form) 2) (find-to-string (car form)) (concat "\\( " @@ -183,19 +183,19 @@ will produce: "Or FORMs together and prefix with a -not, so: \(not \(mtime \"+1\"\) \(name \"something\"\)\) will produce: - -not \\\( -mtime '+1' -or -name 'something' \\\) + -not \\\( -mtime +1 -or -name something \\\) If you wanted the FORMs -and(ed) together instead then this would suffice: \(not \(and \(mtime \"+1\"\) \(name \"something\"\)\)\)" (concat "-not " (find-or (mapcar #'find-to-string form)))) (defun find-prune (form) - "-or together FORMs postfix '-prune' and then -or that with a + "-or together FORMs postfix `-prune' and then -or that with a -true, so: - \(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\) + \(\(prune \(name \".svn\" \".git\"\)\) \(name \"*.pm\"\)\) will produce (unwrapped): - \\\( \\\( \\\( -name '.svn' -or -name '.git' \\\) / - -prune -or -true \\\) -and -name '*.pm' \\\)" + \\\( \\\( \\\( -name .svn -or -name .git \\\) / + -prune -or -true \\\) -and -name *.pm \\\)" (find-or (list (concat (find-or (mapcar #'find-to-string form)) (find-generic "prune")) @@ -209,7 +209,7 @@ args that OPTION can receive and ARGS are the arguments for OPTION. If DONT-QUOTE is non-nil, arguments are quoted for passing them to the shell." (when (and (numberp argcount) (< (length args) argcount)) - (error "'%s' needs at least %d arguments" option argcount)) + (error "‘%s’ needs at least %d arguments" option argcount)) (let ((oper (or oper 'find-or))) (if (and args (length args)) (funcall oper (mapcar (lambda (x) @@ -247,7 +247,7 @@ them into valid switches. The result is -and(ed) together." (find-to-string (find-generic option oper argcnt (cdr form) dont-quote)))) (t - (error "Sorry I don't know how to handle '%s'" (car form)))))))) + (error "Sorry I don't know how to handle ‘%s’" (car form)))))))) (provide 'find-cmd) diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 0dc98dee585..c5b88281888 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -238,7 +238,7 @@ and run Dired on those files. PATTERN is a shell wildcard (not an Emacs regexp) and need not be quoted. The default command run (after changing into DIR) is - find . -name 'PATTERN' -ls + find . -name \\='PATTERN\\=' -ls See `find-name-arg' to customize the arguments." (interactive diff --git a/lisp/finder.el b/lisp/finder.el index 715dd9499fa..51226aebb50 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -393,7 +393,7 @@ FILE should be in a form suitable for passing to `locate-library'." (if (locate-library (match-string 1)) (make-text-button (match-beginning 1) (match-end 1) 'xref (match-string-no-properties 1) - 'help-echo "Read this file's commentary" + 'help-echo "Read this file’s commentary" :type 'finder-xref))) (goto-char (point-min)) (setq buffer-read-only t) diff --git a/lisp/font-core.el b/lisp/font-core.el index 5dd6ad3a17f..6d8588bfa33 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -106,7 +106,7 @@ fontifying different parts of buffer text, use \\[customize-face]. You can enable Font Lock mode in any major mode automatically by turning on in the major mode's hook. For example, put in your ~/.emacs: - (add-hook 'c-mode-hook 'turn-on-font-lock) + (add-hook \\='c-mode-hook \\='turn-on-font-lock) Alternatively, you can use Global Font Lock mode to automagically turn on Font Lock mode in buffers whose major mode supports it and whose major mode is one diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 2fba6a80a23..5f12c6c129f 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -696,12 +696,12 @@ pass nil for MODE and add the call to c-mode-hook. For example: - (add-hook 'c-mode-hook + (add-hook \\='c-mode-hook (lambda () (font-lock-add-keywords nil - '((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 'font-lock-warning-face prepend) + \\='((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 \\='font-lock-warning-face prepend) (\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" . - 'font-lock-keyword-face))))) + \\='font-lock-keyword-face))))) The above procedure may fail to add keywords to derived modes if some involved major mode does not follow the standard conventions. diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 0c0e63b100a..367ef6a64e6 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -577,25 +577,25 @@ port keys. Here's an example: -\(let ((auth-source-creation-defaults '((user . \"defaultUser\") +\(let ((auth-source-creation-defaults \\='((user . \"defaultUser\") (A . \"default A\")))) - (auth-source-search :host \"mine\" :type 'netrc :max 1 + (auth-source-search :host \"mine\" :type \\='netrc :max 1 :P \"pppp\" :Q \"qqqq\" :create t)) which says: -\"Search for any entry matching host 'mine' in backends of type - 'netrc', maximum one result. +\"Search for any entry matching host `mine' in backends of type + `netrc', maximum one result. Create a new entry if you found none. The netrc backend will automatically require host, user, and port. The host will be - 'mine'. We prompt for the user with default 'defaultUser' and + `mine'. We prompt for the user with default `defaultUser' and for the port without a default. We will not prompt for A, Q, or P. The resulting token will only have keys user, host, and port.\" -:create '(A B C) also means to create a token if possible. +:create \\='(A B C) also means to create a token if possible. The behavior is like :create t but if the list contains any parameter, that parameter will be required in the resulting @@ -604,32 +604,32 @@ search parameters or from user input. If any queries are needed, the alist `auth-source-creation-defaults' will be checked for the default value. If the user, host, or port are missing, the alist `auth-source-creation-prompts' will be used to look up the -prompts IN THAT ORDER (so the 'user prompt will be queried first, -then 'host, then 'port, and finally 'secret). Each prompt string +prompts IN THAT ORDER (so the `user' prompt will be queried first, +then `host', then `port', and finally `secret'). Each prompt string can use %u, %h, and %p to show the user, host, and port. Here's an example: -\(let ((auth-source-creation-defaults '((user . \"defaultUser\") +\(let ((auth-source-creation-defaults \\='((user . \"defaultUser\") (A . \"default A\"))) (auth-source-creation-prompts - '((password . \"Enter IMAP password for %h:%p: \")))) - (auth-source-search :host '(\"nonesuch\" \"twosuch\") :type 'netrc :max 1 + \\='((password . \"Enter IMAP password for %h:%p: \")))) + (auth-source-search :host \\='(\"nonesuch\" \"twosuch\") :type \\='netrc :max 1 :P \"pppp\" :Q \"qqqq\" - :create '(A B Q))) + :create \\='(A B Q))) which says: -\"Search for any entry matching host 'nonesuch' - or 'twosuch' in backends of type 'netrc', maximum one result. +\"Search for any entry matching host `nonesuch' + or `twosuch' in backends of type `netrc', maximum one result. Create a new entry if you found none. The netrc backend will automatically require host, user, and port. The host will be - 'nonesuch' and Q will be 'qqqq'. We prompt for the password + `nonesuch' and Q will be `qqqq'. We prompt for the password with the shown prompt. We will not prompt for Q. The resulting token will have keys user, host, port, A, B, and Q. It will not have P with any value, even though P is used in the search to - find only entries that have P set to 'pppp'.\" + find only entries that have P set to `pppp'.\" When multiple values are specified in the search parameter, the user is prompted for which one. So :host (X Y Z) would ask the @@ -650,8 +650,8 @@ property. Use `auth-source-delete' in ELisp code instead of calling `auth-source-search' directly with this parameter. -:type (X Y Z) will check only those backend types. 'netrc and -'secrets are the only ones supported right now. +:type (X Y Z) will check only those backend types. `netrc' and +`secrets' are the only ones supported right now. :max N means to try to return at most N items (defaults to 1). More than N items may be returned, depending on the search and @@ -1097,7 +1097,7 @@ Note that the MAX parameter is used so we can exit the parse early." (if (equal item2 "machine") (progn (gnus-error 1 - "%s: Unexpected 'machine' token at line %d" + "%s: Unexpected ‘machine’ token at line %d" "auth-source-netrc-parse-entries" (auth-source-current-line)) (forward-line 1)) @@ -1554,23 +1554,23 @@ matching, do a wider search and narrow it down yourself. You'll get back all the properties of the token as a plist. -Here's an example that looks for the first item in the 'Login' +Here's an example that looks for the first item in the `Login' Secrets collection: - \(let ((auth-sources '(\"secrets:Login\"))) + \(let ((auth-sources \\='(\"secrets:Login\"))) (auth-source-search :max 1) -Here's another that looks for the first item in the 'Login' -Secrets collection whose label contains 'gnus': +Here's another that looks for the first item in the `Login' +Secrets collection whose label contains `gnus': - \(let ((auth-sources '(\"secrets:Login\"))) + \(let ((auth-sources \\='(\"secrets:Login\"))) (auth-source-search :max 1 :label \"gnus\") -And this one looks for the first item in the 'Login' Secrets +And this one looks for the first item in the `Login' Secrets collection that's a Google Chrome entry for the git.gnus.org site authentication tokens: - \(let ((auth-sources '(\"secrets:Login\"))) + \(let ((auth-sources \\='(\"secrets:Login\"))) (auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\")) " @@ -1674,8 +1674,8 @@ matching, do a wider search and narrow it down yourself. You'll get back all the properties of the token as a plist. -The :type key is either 'macos-keychain-internet or -'macos-keychain-generic. +The :type key is either `macos-keychain-internet' or +`macos-keychain-generic'. For the internet keychain type, the :label key searches the item's labels (\"-l LABEL\" passed to \"/usr/bin/security\"). @@ -1691,19 +1691,19 @@ field), :user maps to \"-a USER\", and :port maps to \"-s PORT\". Here's an example that looks for the first item in the default generic MacOS Keychain: - \(let ((auth-sources '(macos-keychain-generic))) + \(let ((auth-sources \\='(macos-keychain-generic))) (auth-source-search :max 1) Here's another that looks for the first item in the internet -MacOS Keychain collection whose label is 'gnus': +MacOS Keychain collection whose label is `gnus': - \(let ((auth-sources '(macos-keychain-internet))) + \(let ((auth-sources \\='(macos-keychain-internet))) (auth-source-search :max 1 :label \"gnus\") And this one looks for the first item in the internet keychain entries for git.gnus.org: - \(let ((auth-sources '(macos-keychain-internet\"))) + \(let ((auth-sources \\='(macos-keychain-internet\"))) (auth-source-search :max 1 :host \"git.gnus.org\")) " ;; TODO diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index f779f3c7415..5f1ffe7a3b4 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -1721,7 +1721,7 @@ and that there are no duplicates." (or backed-up (setq backed-up (gnus-agent-backup-overview-buffer))) (gnus-message 1 - "Overview buffer contains garbage '%s'." + "Overview buffer contains garbage ‘%s’." (buffer-substring p (point-at-eol)))) ((= cur prev-num) @@ -1901,7 +1901,7 @@ article numbers will be returned." (when articles (gnus-message - 10 "gnus-agent-fetch-headers: undownloaded articles are '%s'" + 10 "gnus-agent-fetch-headers: undownloaded articles are ‘%s’" (gnus-compress-sequence articles t))) (with-current-buffer nntp-server-buffer diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index b26fe06735f..1a439ec9940 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -399,7 +399,7 @@ advertisements. For example: "*Alist that says how to fontify certain phrases. Each item looks like this: - (\"_\\\\(\\\\w+\\\\)_\" 0 1 'underline) + (\"_\\\\(\\\\w+\\\\)_\" 0 1 \\='underline) The first element is a regular expression to be matched. The second is a number that says what regular expression grouping used to find diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 4e870bb84bb..1c098fa879a 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -164,8 +164,8 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server." (gnus-open-server gnus-select-method) gnus-batch-mode (gnus-y-or-n-p - (format - "%s (%s) open error: '%s'. Continue? " + (gnus-format-message + "%s (%s) open error: ‘%s’. Continue? " (car gnus-select-method) (cadr gnus-select-method) (gnus-status-message gnus-select-method))) (gnus-error 1 "Couldn't open server on %s" @@ -555,7 +555,7 @@ the group's summary. (let ((saved-display (gnus-group-get-parameter group 'display :allow-list))) - ;; Tell gnus we really don't want any articles + ;; Tell gnus we really don't want any articles (gnus-group-set-parameter group 'display 0) (unwind-protect @@ -573,7 +573,7 @@ the group's summary. ;; Create it now and insert the message (let ((group-is-new (gnus-summary-setup-buffer group))) (condition-case err - (let ((article-number + (let ((article-number (gnus-summary-insert-subject message-id))) (unless article-number (signal 'error "message-id not in group")) diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index 50443973a8d..e91dd980b4f 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/gnus-registry.el @@ -558,7 +558,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." do (gnus-message ;; warn more if gnus-registry-track-extra (if gnus-registry-track-extra 7 9) - "%s (extra tracking) traced subject '%s' to %s" + "%s (extra tracking) traced subject ‘%s’ to %s" log-agent subject group) and collect group)) ;; filter the found groups and return them @@ -585,7 +585,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." do (gnus-message ;; warn more if gnus-registry-track-extra (if gnus-registry-track-extra 7 9) - "%s (extra tracking) traced sender '%s' to %s" + "%s (extra tracking) traced sender ‘%s’ to %s" log-agent sender group) and collect group))) @@ -615,7 +615,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." do (gnus-message ;; warn more if gnus-registry-track-extra (if gnus-registry-track-extra 7 9) - "%s (extra tracking) traced recipient '%s' to %s" + "%s (extra tracking) traced recipient ‘%s’ to %s" log-agent recp group) and collect group))))) @@ -630,7 +630,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (defun gnus-registry-post-process-groups (mode key groups) "Inspects GROUPS found by MODE for KEY to determine which ones to follow. -MODE can be 'subject' or 'sender' for example. The KEY is the +MODE can be `subject' or `sender' for example. The KEY is the value by which MODE was searched. Transforms each group name to the equivalent short name. @@ -712,12 +712,12 @@ possible. Uses `gnus-registry-split-strategy'." ((null out) (gnus-message 5 - "%s: no matches for %s '%s'." + "%s: no matches for %s ‘%s’." log-agent mode key) nil) (t (gnus-message 5 - "%s: too many extra matches (%s) for %s '%s'. Returning none." + "%s: too many extra matches (%s) for %s ‘%s’. Returning none." log-agent out mode key) nil)))) diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index 7f3ab5e27b1..ffd86964f2e 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el @@ -626,7 +626,7 @@ current score file." (if mimic (progn (sit-for 1) (message "%c %c-" prefix hchar)) - (message "%s header '%s' with match type (%s?): " + (message "%s header ‘%s’ with match type (%s?): " (if increase "Increase" "Lower") (nth 1 entry) (mapconcat (lambda (s) (char-to-string (car s))) diff --git a/lisp/gnus/gnus-sieve.el b/lisp/gnus/gnus-sieve.el index 5f8cb327cc1..cde93764cac 100644 --- a/lisp/gnus/gnus-sieve.el +++ b/lisp/gnus/gnus-sieve.el @@ -139,7 +139,7 @@ Return nil if no rule could be guessed." "Convert an elisp string list to a Sieve string list. For example: -\(gnus-sieve-string-list '(\"to\" \"cc\")) +\(gnus-sieve-string-list \\='(\"to\" \"cc\")) => \"[\\\"to\\\", \\\"cc\\\"]\" " (concat "[\"" (mapconcat 'identity list "\", \"") "\"]")) @@ -148,7 +148,7 @@ For example: "Convert an elisp test list to a Sieve test list. For example: -\(gnus-sieve-test-list '((address \"sender\" \"boss@company.com\") (size :over 4K))) +\(gnus-sieve-test-list \\='((address \"sender\" \"boss@company.com\") (size :over 4K))) => \"(address \\\"sender\\\" \\\"boss@company.com\\\", size :over 4K)\"" (concat "(" (mapconcat 'gnus-sieve-test list ", ") ")")) @@ -157,13 +157,13 @@ For example: "Convert an elisp test token to a Sieve test token. For example: -\(gnus-sieve-test-token 'address) +\(gnus-sieve-test-token \\='address) => \"address\" \(gnus-sieve-test-token \"sender\") => \"\\\"sender\\\"\" -\(gnus-sieve-test-token '(\"to\" \"cc\")) +\(gnus-sieve-test-token \\='(\"to\" \"cc\")) => \"[\\\"to\\\", \\\"cc\\\"]\"" (cond ((symbolp token) ;; Keyword @@ -184,10 +184,10 @@ For example: "Convert an elisp test to a Sieve test. For example: -\(gnus-sieve-test '(address \"sender\" \"sieve-admin@extundo.com\")) +\(gnus-sieve-test \\='(address \"sender\" \"sieve-admin@extundo.com\")) => \"address \\\"sender\\\" \\\"sieve-admin@extundo.com\\\"\" -\(gnus-sieve-test '(anyof ((header :contains (\"to\" \"cc\") \"my@address.com\") +\(gnus-sieve-test \\='(anyof ((header :contains (\"to\" \"cc\") \"my@address.com\") (size :over 100K)))) => \"anyof (header :contains [\\\"to\\\", \\\"cc\\\"] \\\"my@address.com\\\", size :over 100K)\"" diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 0c0246a4e14..4f26db45715 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -2369,7 +2369,7 @@ If FORCE is non-nil, the .newsrc file is read." (while (let (c (cursor-in-echo-area t) (echo-keystrokes 0)) - (message "Convert gnus from version '%s' to '%s'? (n/y/?)" + (message "Convert gnus from version ‘%s’ to ‘%s’? (n/y/?)" gnus-newsrc-file-version gnus-version) (setq c (read-char-exclusive)) @@ -2390,8 +2390,8 @@ If FORCE is non-nil, the .newsrc file is read." (funcall func convert-to))) (gnus-dribble-enter - (format ";Converted gnus from version '%s' to '%s'." - gnus-newsrc-file-version gnus-version))))))) + (gnus-format-message ";Converted gnus from version ‘%s’ to ‘%s’." + gnus-newsrc-file-version gnus-version))))))) (defun gnus-convert-mark-converter-prompt (converter no-prompt) "Indicate whether CONVERTER requires gnus-convert-old-newsrc to diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index f98f4851970..e4c144b9237 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -8429,7 +8429,7 @@ articles that are younger than AGE days." (gnus-summary-position-point))) (defun gnus-summary-limit-to-extra (header regexp &optional not-matching) - "Limit the summary buffer to articles that match an 'extra' header." + "Limit the summary buffer to articles that match an `extra' header." (interactive (let ((header (intern diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index 656ef80cc63..cde1d976b3f 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -1525,7 +1525,7 @@ If NON-RECURSIVE (which is the prefix) is t, don't unmark its subtopics." (read-string (format "Rename %s to: " topic) topic)))) ;; Check whether the new name exists. (when (gnus-topic-find-topology new-name) - (error "Topic '%s' already exists" new-name)) + (error "Topic ‘%s’ already exists" new-name)) ;; "nil" is an invalid name, for reasons I'd rather not go ;; into here. Trust me. (when (equal new-name "nil") diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 12b319b0d09..8dd8ea95c04 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1974,6 +1974,11 @@ to case differences." (string-equal (downcase str1) (downcase prefix)) (string-equal str1 prefix)))))) +(if (fboundp 'format-message) + (defalias 'gnus-format-message 'format-message) + ;; for Emacs < 25, and XEmacs, don't worry about quote translation. + (defalias 'gnus-format-message 'format-message)) + ;; Simple check: can be a macro but this way, although slow, it's really clear. ;; We don't use `bound-and-true-p' because it's not in XEmacs. (defun gnus-bound-and-true-p (sym) diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index 94f01c6158d..881ff4ee1ba 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el @@ -79,10 +79,10 @@ To change the behavior, you can either edit this variable or set For example: -To make gnus-uu use 'xli' to display JPEG and GIF files, put the +To make gnus-uu use `xli' to display JPEG and GIF files, put the following in your .emacs file: - (setq gnus-uu-user-view-rules '((\"jpg$\\\\|gif$\" \"xli\"))) + (setq gnus-uu-user-view-rules \\='((\"jpg$\\\\|gif$\" \"xli\"))) Both these variables are lists of lists with two string elements. The first string is a regular expression. If the file name matches this @@ -140,7 +140,7 @@ details." (defcustom gnus-uu-user-archive-rules nil "A list that can be set to override the default archive unpacking commands. -To use, for instance, 'untar' to unpack tar files and 'zip -x' to +To use, for instance, `untar' to unpack tar files and `zip -x' to unpack zip files, say the following: (setq gnus-uu-user-archive-rules '((\"\\\\.tar$\" \"untar\") diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 4545ed0e28a..6362d9a951b 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1308,11 +1308,11 @@ news is to be fetched, the second is the address. For instance, if you want to get your news via \"flab.flab.edu\" using NNTP, you could say: -\(setq gnus-select-method '(nntp \"flab.flab.edu\")) +\(setq gnus-select-method \\='(nntp \"flab.flab.edu\")) If you want to use your local spool, say: -\(setq gnus-select-method (list 'nnspool (system-name))) +\(setq gnus-select-method (list \\='nnspool (system-name))) If you use this variable, you must set `gnus-nntp-server' to nil. @@ -1397,7 +1397,7 @@ This is a list where each element is a complete select method (see If, for instance, you want to read your mail with the nnml back end, you could set this variable: -\(setq gnus-secondary-select-methods '((nnml \"\")))" +\(setq gnus-secondary-select-methods \\='((nnml \"\")))" :group 'gnus-server :type '(repeat gnus-select-method)) diff --git a/lisp/gnus/legacy-gnus-agent.el b/lisp/gnus/legacy-gnus-agent.el index bd69087af09..83310774da2 100644 --- a/lisp/gnus/legacy-gnus-agent.el +++ b/lisp/gnus/legacy-gnus-agent.el @@ -147,14 +147,19 @@ converted to the compressed format." (insert "The definition of gnus-agent-expire-days has been changed.\nYou currently have it set to the list:\n ") (gnus-pp gnus-agent-expire-days) - (insert "\nIn order to use version '" converting-to "' of gnus, you will need to set\n") + (insert + (gnus-format-message + "\nIn order to use version ‘%s’ of gnus, you will need to set\n" + converting-to)) (insert "gnus-agent-expire-days to an integer. If you still wish to set different\n") (insert "expiration days to individual groups, you must instead set the\n") - (insert "'agent-days-until-old group and/or topic parameter.\n") + (insert (gnus-format-message + "‘agent-days-until-old’ group and/or topic parameter.\n")) (insert "\n") (insert "If you would like, gnus can iterate over every group comparing its name to the\n") (insert "regular expressions that you currently have in gnus-agent-expire-days. When\n") - (insert "gnus finds a match, it will update that group's 'agent-days-until-old group\n") + (insert (gnus-format-message + "gnus finds a match, it will update that group's ‘agent-days-until-old’ group\n")) (insert "parameter to the value associated with the regular expression.\n") (insert "\n") (insert "Whether gnus assigns group parameters, or not, gnus will terminate with an\n") diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 94c8950988d..cb74228fdf9 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -934,7 +934,7 @@ authentication. To do that, you need to set the `message-send-mail-function' variable as `message-smtpmail-send-it' and put the following line in your ~/.gnus.el file: -\(add-hook 'message-send-mail-hook 'mail-source-touch-pop) +\(add-hook \\='message-send-mail-hook \\='mail-source-touch-pop) See the Gnus manual for details." (let ((sources (if mail-source-primary-source diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 0a11bf092d4..d74ce43e5ed 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -541,7 +541,7 @@ The provided functions are: newsgroup), in brackets followed by the subject * `message-forward-subject-name-subject' Source of article (name of author or newsgroup), in brackets followed by the subject -* `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended +* `message-forward-subject-fwd' Subject of article with `Fwd:' prepended to it." :group 'message-forwarding :link '(custom-manual "(message)Forwarding") @@ -7210,7 +7210,7 @@ want to get rid of this query permanently.")) (defun message-is-yours-p () "Non-nil means current article is yours. -If you have added 'cancel-messages to `message-shoot-gnksa-feet', all articles +If you have added `cancel-messages' to `message-shoot-gnksa-feet', all articles are yours except those that have Cancel-Lock header not belonging to you. Instead of shooting GNKSA feet, you should modify `message-alternative-emails' regexp to match all of yours addresses." @@ -8177,7 +8177,7 @@ The following arguments may contain lists of values." (defun message-flatten-list (list) "Return a new, flat list that contains all elements of LIST. -\(message-flatten-list '(1 (2 3 (4 5 (6))) 7)) +\(message-flatten-list \\='(1 (2 3 (4 5 (6))) 7)) => (1 2 3 4 5 6 7)" (cond ((consp list) (apply 'append (mapcar 'message-flatten-list list))) diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index 2ce5cb8af5f..c88f4afa7dc 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -114,7 +114,7 @@ Shorter values mean quicker response, but are more CPU intensive.") For instance, if \":\" is invalid as a file character in file names on your system, you could say something like: -\(setq nnheader-file-name-translation-alist '((?: . ?_)))") +\(setq nnheader-file-name-translation-alist \\='((?: . ?_)))") (defvar nnheader-directory-separator-character (string-to-char (substring (file-name-as-directory ".") -1)) diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 71bc916a927..2292849ccb1 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -288,7 +288,7 @@ running (\"xwatch\", etc.) E.g.: -\(add-hook 'nnmail-read-incoming-hook +\(add-hook \\='nnmail-read-incoming-hook (lambda () (call-process \"/local/bin/mailsend\" nil nil nil \"read\" @@ -301,11 +301,11 @@ read. If you use `display-time', you could use something like this: -\(add-hook 'nnmail-read-incoming-hook +\(add-hook \\='nnmail-read-incoming-hook (lambda () ;; Update the displayed time, since that will clear out ;; the flag that says you have mail. - (when (eq (process-status \"display-time\") 'run) + (when (eq (process-status \"display-time\") \\='run) (display-time-filter display-time-process \"\"))))" :group 'nnmail-prepare :type 'hook) @@ -480,12 +480,12 @@ GROUP can contain \\& and \\N which will substitute from matching Example: -\(setq nnmail-split-methods 'nnmail-split-fancy +\(setq nnmail-split-methods \\='nnmail-split-fancy nnmail-split-fancy ;; Messages from the mailer daemon are not crossposted to any of ;; the ordinary groups. Warnings are put in a separate group ;; from real errors. - '(| (\"from\" mail (| (\"subject\" \"warn.*\" \"mail.warning\") + \\='(| (\"from\" mail (| (\"subject\" \"warn.*\" \"mail.warning\") \"mail.misc\")) ;; Non-error messages are crossposted to all relevant ;; groups, but we don't crosspost between the group for the diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el index 0a4dbff9ff4..e34b708a29c 100644 --- a/lisp/gnus/nnmairix.el +++ b/lisp/gnus/nnmairix.el @@ -243,7 +243,7 @@ unused nnmairix groups on the back end using (defcustom nnmairix-mairix-update-options '("-F" "-Q") "Options when calling mairix for updating the database. -The default is '-F' and '-Q' for making updates faster. You +The default is \"-F\" and \"-Q\" for making updates faster. You should call mairix without these options from time to time (e.g. via cron job)." :version "23.1" @@ -252,7 +252,7 @@ time (e.g. via cron job)." (defcustom nnmairix-mairix-search-options '("-Q") "Options when calling mairix for searching. -The default is '-Q' for making searching faster." +The default is \"-Q\" for making searching faster." :version "23.1" :type '(repeat string) :group 'nnmairix) @@ -1943,7 +1943,7 @@ Fill in VALUES if based on an article." (kill-all-local-variables) (erase-buffer) (widget-insert "Specify your query for Mairix (check boxes for activating fields):\n\n") - (widget-insert "(Whitespaces will be converted to ',' (i.e. AND). Use '/' for OR.)\n\n") + (widget-insert "(Whitespaces will be converted to ‘,’ (i.e. AND). Use ‘/’ for OR.)\n\n") ; (make-local-variable 'nnmairix-widgets) (setq nnmairix-widgets (nnmairix-widget-build-editable-fields values)) (when (member 'flags nnmairix-widget-other) diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index b617a1beeb2..8d09781cd79 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -291,7 +291,7 @@ update their active files often, this can help.") (defvar nntp-async-process-list nil) (defvar nntp-authinfo-rejected nil -"A custom error condition used to report 'Authentication Rejected' errors. +"A custom error condition used to report `Authentication Rejected' errors. Condition handlers that match just this condition ensure that the nntp backend doesn't catch this error.") (put 'nntp-authinfo-rejected 'error-conditions '(error nntp-authinfo-rejected)) diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el index 7bada9f3095..783ff36172b 100644 --- a/lisp/gnus/registry.el +++ b/lisp/gnus/registry.el @@ -222,9 +222,9 @@ When SET is not nil, set it for VAL (use t for an empty list)." (defmethod registry-search ((db registry-db) &rest spec) "Search for SPEC across the registry-db THIS. -For example calling with :member '(a 1 2) will match entry '((a 3 1)). +For example calling with :member \\='(a 1 2) will match entry \\='((a 3 1)). Calling with :all t (any non-nil value) will match all. -Calling with :regex '\(a \"h.llo\") will match entry '((a \"hullo\" \"bye\"). +Calling with :regex \\='\(a \"h.llo\") will match entry \\='((a \"hullo\" \"bye\"). The test order is to check :all first, then :member, then :regex." (when db (let ((all (plist-get spec :all)) diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index 02ec69516c1..93613a84ad8 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -2054,7 +2054,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (if spam-use-dig (let ((query-result (query-dig query-string))) (when query-result - (gnus-message 6 "(DIG): positive blackhole check '%s'" + (gnus-message 6 "(DIG): positive blackhole check ‘%s’" query-result) (push (list ip server query-result) matches))) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 6ff30b39d46..5f0dc87bc04 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -45,7 +45,7 @@ The functions will receive the function name as argument.") (defvar describe-function-orig-buffer nil "Buffer that was current when `describe-function' was invoked. -Functions on 'help-fns-describe-function-functions' can use this +Functions on `help-fns-describe-function-functions' can use this to get buffer-local values.") ;;;###autoload diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index 8d012947128..2f69bbc104b 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -731,7 +731,7 @@ You can automatically rotate colors when the buffer is saved by adding this function to `write-file-functions' as a buffer-local value. To do this, eval the following in the buffer to be saved: - (add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t)" + (add-hook \\='write-file-functions \\='highlight-changes-rotate-faces nil t)" (interactive) (when (and highlight-changes-mode highlight-changes-visible-mode) (let ((modified (buffer-modified-p)) diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index 97e7d0f4446..310a074adb1 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el @@ -187,13 +187,13 @@ It takes only one argument, the filename." :type '(string)) (defcustom hfy-src-doc-link-style "text-decoration: underline;" - "String to add to the '