Fix some quoting glitches in doc strings

lisp/calendar/cal-dst.el

@@ -61,11 +61,11 @@ list and for correcting times of day in the solar and lunar calculations.
 For example, if daylight saving time is mandated to start on October 1,
 you would set `calendar-daylight-savings-starts' to
 
-      '(10 1 year)
+      (10 1 year)
 
 If it starts on the first Sunday in April, you would set it to
 
-      '(calendar-nth-named-day 1 0 4 year)
+      (calendar-nth-named-day 1 0 4 year)
 
 If the locale never uses daylight saving time, set this to nil."
   :type 'sexp

lisp/calendar/cal-tex.el

@@ -71,7 +71,7 @@
 (defcustom cal-tex-which-days '(0 1 2 3 4 5 6)
   "The days of the week that are displayed on the portrait monthly calendar.
 Sunday is 0, Monday is 1, and so on.  The default is to print from Sunday to
-Saturday.  For example, use '(1 3 5) to only print Monday, Wednesday, Friday."
+Saturday.  For example, (1 3 5) prints only Monday, Wednesday, Friday."
   :type '(repeat integer)
   :group 'calendar-tex)
 
@@ -109,7 +109,7 @@ date in the weekly calendars, and in the top center of daily calendars.
 The default is ordinal day number of the year and the number of
 days remaining.  As an example, setting this to
 
-    '(calendar-hebrew-date-string date)
+    (calendar-hebrew-date-string date)
 
 will put the Hebrew date at the bottom of each day."
   :type 'sexp

lisp/cedet/cedet-cscope.el

@@ -39,12 +39,12 @@
 (defun cedet-cscope-search (searchtext texttype type scope)
   "Perform a search with CScope, return the created buffer.
 SEARCHTEXT is text to find.
-TEXTTYPE is the type of text, such as 'regexp, 'string, 'tagname,
-'tagregexp, or 'tagcompletions.
+TEXTTYPE is the type of text, such as `regexp', `string', `tagname',
+`tagregexp', or `tagcompletions'.
 TYPE is the type of search, meaning that SEARCHTEXT is compared to
 filename, tagname (tags table), references (uses of a tag) , or
 symbol (uses of something not in the tag table.)
-SCOPE is the scope of the search, such as 'project or 'subdirs."
+SCOPE is the scope of the search, such as `project' or `subdir'."
   ;; CScope is an interactive program.  It uses number flags
   ;; in order to perform command line searches.  Useful for this
   ;; tool are:

lisp/cedet/cedet-global.el

@@ -44,12 +44,12 @@ GTAGS is used to create the tags table queried by the `global' command."
 (defun cedet-gnu-global-search (searchtext texttype type scope)
   "Perform a search with GNU Global, return the created buffer.
 SEARCHTEXT is text to find.
-TEXTTYPE is the type of text, such as 'regexp, 'string, 'tagname,
-'tagregexp, or 'tagcompletions.
+TEXTTYPE is the type of text, such as `regexp', `string', `tagname',
+`tagregexp', or `tagcompletions'.
 TYPE is the type of search, meaning that SEARCHTEXT is compared to
 filename, tagname (tags table), references (uses of a tag) , or
 symbol (uses of something not in the tag table.)
-SCOPE is the scope of the search, such as 'project or 'subdirs."
+SCOPE is the scope of the search, such as `project' or `subdirs'."
   (let ((flgs (cond ((eq type 'file)
 		     "-a")
 		    (t "-xa")))

lisp/cedet/cedet-idutils.el

@@ -52,12 +52,12 @@
 (defun cedet-idutils-search (searchtext texttype type scope)
   "Perform a search with ID Utils, return the created buffer.
 SEARCHTEXT is text to find.
-TEXTTYPE is the type of text, such as 'regexp, 'string, 'tagname,
-'tagregexp, or 'tagcompletions.
+TEXTTYPE is the type of text, such as `regexp', `string', `tagname',
+`tagregexp', or `tagcompletions'.
 TYPE is the type of search, meaning that SEARCHTEXT is compared to
 filename, tagname (tags table), references (uses of a tag) , or
 symbol (uses of something not in the tag table.)
-SCOPE is the scope of the search, such as 'project or 'subdirs.
+SCOPE is the scope of the search, such as `project' or `subdirs'.
 Note: Scope is not yet supported."
   (if (eq type 'file)
       ;; Calls for file stuff is very simple.

lisp/cedet/ede/files.el

@@ -425,7 +425,7 @@ FILENAME should be just a filename which occurs in a directory controlled
 by this project.
 Optional argument FORCE forces the default filename to be provided even if it
 doesn't exist.
-If FORCE equals 'newfile, then the cache is ignored and a new file in THIS
+If FORCE equals `newfile', then the cache is ignored and a new file in THIS
 is returned."
   (require 'ede/locate)
   (let* ((loc (ede-get-locator-object this))

lisp/cedet/ede/srecode.el

@@ -75,7 +75,7 @@ updated in FORMS."
 TEMPLATE should specify a context by using a string format of:
   context:templatename
 Add DICTIONARY-ENTRIES into the dictionary before insertion.
-Note: Just like `srecode-insert', but templates found in 'ede app."
+Note: Just like `srecode-insert', but templates found in `ede' app."
   (require 'srecode/insert)
   (ede-srecode-insert-with-dictionary template
 

lisp/cedet/semantic/analyze.el

@@ -356,7 +356,7 @@ This function knows of flags:
 (defun semantic-analyze-find-tag (name &optional tagclass scope)
   "Return the first tag found with NAME or nil if not found.
 Optional argument TAGCLASS specifies the class of tag to return,
-such as 'function or 'variable.
+such as `function' or `variable'.
 Optional argument SCOPE specifies a scope object which has
 additional tags which are in SCOPE and do not need prefixing to
 find.

lisp/cedet/semantic/ctxt.el

@@ -55,7 +55,7 @@ Used for identifying arguments to functions.")
 Return non-nil if there are no more context levels.
 Overloaded functions using `up-context' take no parameters.
 BOUNDS-TYPE is a symbol representing a tag class to restrict
-movement to.  If this is nil, 'function is used.
+movement to.  If this is nil, `function' is used.
 This will find the smallest tag of that class (function, variable,
 type, etc) and make sure non-nil is returned if you cannot
 go up past the bounds of that tag."

lisp/cedet/semantic/db-find.el

@@ -434,7 +434,7 @@ Default action as described in `semanticdb-find-translate-path'."
   "All include tags scanned, plus action taken on the tag.
 Each entry is an alist:
   (ACTION . TAG)
-where ACTION is one of 'scanned, 'duplicate, 'lost
+where ACTION is one of `scanned', `duplicate', `lost'
 and TAG is a clone of the include tag that was found.")
 (make-variable-buffer-local 'semanticdb-find-scanned-include-tags)
 

lisp/cedet/semantic/db-typecache.el

@@ -412,7 +412,7 @@ found tag to be loaded."
 (defun semanticdb-typecache-find-by-name-helper (name table)
   "Find the tag with NAME in TABLE, which is from a typecache.
 If more than one tag has NAME in TABLE, we will prefer the tag that
-is of class 'type."
+is of class `type'."
   (let* ((names (semantic-find-tags-by-name name table))
 	 (nmerge (semanticdb-typecache-merge-streams names nil))
 	 (types (semantic-find-tags-by-class 'type nmerge)))

lisp/cedet/semantic/edit.el

@@ -464,7 +464,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
 (defun semantic-parse-changes-failed (&rest args)
   "Signal that Semantic failed to parse changes.
 That is, display a message by passing all ARGS to `format-message', then throw
-a 'semantic-parse-changes-failed exception with value t."
+a `semantic-parse-changes-failed' exception with value t."
   (when semantic-edits-verbose-flag
     (message "Semantic parse changes failed: %S"
 	     (apply #'format-message args)))
@@ -516,7 +516,7 @@ the semantic cache to see what needs to be changed."
 (defun semantic-edits-incremental-parser-1 ()
   "Incrementally reparse the current buffer.
 Return the list of tags that changed.
-If the incremental parse fails, throw a 'semantic-parse-changes-failed
+If the incremental parse fails, throw a `semantic-parse-changes-failed'
 exception with value t, that can be caught to schedule a full reparse.
 This function is for internal use by `semantic-edits-incremental-parser'."
   (let* ((changed-tags nil)

lisp/cedet/semantic/find.el

@@ -307,7 +307,7 @@ attempting to do completions."
 (defmacro semantic-find-tags-by-class (class &optional table)
   "Find all tags of class CLASS in TABLE.
 CLASS is a symbol representing the class of the token, such as
-'variable, of 'function..
+`variable' or `function'.
 TABLE is a tag table.  See `semantic-something-to-tag-table'."
   `(semantic--find-tags-by-macro
     (eq ,class (semantic-tag-class (car tags)))
@@ -316,7 +316,7 @@ TABLE is a tag table.  See `semantic-something-to-tag-table'."
 (defmacro semantic-filter-tags-by-class (class &optional table)
   "Find all tags of class not in the list CLASS in TABLE.
 CLASS is a list of symbols representing the class of the token,
-such as 'variable, of 'function..
+such as `variable' or `function'.
 TABLE is a tag table.  See `semantic-something-to-tag-table'."
   `(semantic--find-tags-by-macro
     (not (memq (semantic-tag-class (car tags)) ,class))

lisp/cedet/semantic/grammar.el

@@ -1738,7 +1738,7 @@ Otherwise return nil."
 (define-mode-local-override semantic-tag-boundary-p
   semantic-grammar-mode (tag)
   "Return non-nil for tags that should have a boundary drawn.
-Only tags of type 'nonterminal will be so marked."
+Only tags of type `nonterminal' will be so marked."
   (let ((c (semantic-tag-class tag)))
     (eq c 'nonterminal)))
 

lisp/cedet/semantic/java.el

@@ -281,7 +281,7 @@ Optional argument COLOR indicates that color should be mixed in."
 Java have documentation set in a comment preceding TAG's definition.
 Attempt to strip out comment syntactic sugar, unless optional argument
 NOSNARF is non-nil.
-If NOSNARF is 'lex, then return the semantic lex token."
+If NOSNARF is `lex', then return the semantic lex token."
   (when (or tag (setq tag (semantic-current-tag)))
     (with-current-buffer (semantic-tag-buffer tag)
       (save-excursion

lisp/cedet/semantic/lex-spp.el

@@ -698,7 +698,7 @@ and what valid VAL values are."
 
 (defun semantic-lex-spp-symbol-merge (txt)
   "Merge the tokens listed in TXT.
-TXT might contain further 'spp-symbol-merge, which will
+TXT might contain further `spp-symbol-merge', which will
 be merged recursively."
   ;; We need to merge the tokens in the 'text segment together,
   ;; and produce a single symbol from it.
@@ -1272,7 +1272,7 @@ VALFORM are forms that return the name of the thing being included, and the
 type of include.  The return value should be of the form:
   (NAME . TYPE)
 where NAME is the name of the include, and TYPE is the type of the include,
-where a valid symbol is 'system, or nil."
+where a valid symbol is `system', or nil."
   (let ((start (make-symbol "start"))
 	(end (make-symbol "end"))
 	(val (make-symbol "val"))

lisp/cedet/semantic/mru-bookmark.el

@@ -77,7 +77,7 @@ Set this when the tag gets unlinked from the buffer it belongs to.")
 	   :initform t
 	   :documentation
 	   "The reason this tag is interesting.
-Nice values are 'edit, 'read, 'jump, and 'mark.
+Nice values include the following:
  edit - created because the tag text was edited.
  read - created because point lingered in tag text.
  jump - jumped to another tag from this tag.

lisp/cedet/semantic/scope.el

@@ -461,8 +461,8 @@ implicit \"object\"."
 (define-overloadable-function  semantic-analyze-scope-calculate-access (type scope)
   "Calculate the access class for TYPE as defined by the current SCOPE.
 Access is related to the :parents in SCOPE.  If type is a member of SCOPE
-then access would be 'private.  If TYPE is inherited by a member of SCOPE,
-the access would be 'protected.  Otherwise, access is 'public")
+then access would be `private'.  If TYPE is inherited by a member of SCOPE,
+the access would be `protected'.  Otherwise, access is `public'.")
 
 (defun semantic-analyze-scope-calculate-access-default (type scope)
   "Calculate the access class for TYPE as defined by the current SCOPE."
@@ -545,7 +545,8 @@ tag is not something you can complete from within TYPE."
   "Return all parts of TYPE, a tag representing a TYPE declaration.
 SCOPE is the scope object.
 NOINHERIT turns off searching of inherited tags.
-PROTECTION specifies the type of access requested, such as 'public or 'private."
+PROTECTION specifies the type of access requested,
+such as `public' or `private'."
   (if (not type)
       nil
     (let* ((access (semantic-analyze-scope-calculate-access type scope))
@@ -593,8 +594,8 @@ whose tags can be searched when needed, OR it may be a scope object.
 ACCESS is the level of access we filter on child supplied tags.
 For languages with protection on specific methods or slots,
 it should strip out those not accessible by methods of TYPE.
-An ACCESS of 'public means not in a method of a subclass of type.
-A value of 'private means we can access private parts of the originating
+An ACCESS of `public' means not in a method of a subclass of type.
+A value of `private' means we can access private parts of the originating
 type."
   (let ((ret nil))
     (semantic-analyze-scoped-inherited-tag-map

lisp/cedet/semantic/symref.el

@@ -78,7 +78,7 @@
 ;;; Code:
 (defcustom semantic-symref-tool 'detect
   "The active symbol reference tool name.
-The tool symbol can be 'detect, or a symbol that is the name of
+The tool symbol can be `detect', or a symbol that is the name of
 a tool that can be used for symbol referencing."
   :type 'symbol
   :group 'semantic)
@@ -309,9 +309,9 @@ Can be 'project, 'target, or 'file.")
 	       :type symbol
 	       :documentation
 	       "The kind of search results desired.
-Can be 'line, 'file, or 'tag.
-The type of result can be converted from 'line to 'file, or 'line to 'tag,
-but not from 'file to 'line or 'tag.")
+Can be `line', `file', or `tag'.
+The type of result can be converted from `line' to `file', or `line' to `tag',
+but not from `file' to `line' or `tag'.")
    )
   "Baseclass for all symbol references tools.
 A symbol reference tool supplies functionality to identify the locations of

lisp/cedet/semantic/tag-ls.el

@@ -199,7 +199,7 @@ Other languages qualify names within a Namespace (such as C++) which
 result in a different package like structure.
 
 Languages which do not override this function will just search the
-stream for a tag of class 'package, and return that."
+stream for a tag of class `package', and return that."
   (let ((stream (semantic-something-to-tag-table
                  (or stream-or-buffer tag))))
     (:override-with-args (tag stream))))

lisp/cedet/semantic/texi.el

@@ -300,8 +300,8 @@ can handle the @menu environment.")
   texinfo-mode (&optional point)
   "Determine the class of tags that can be used at POINT.
 For texinfo, there two possibilities returned.
-1) 'function - for a call to a texinfo function
-2) 'word     - indicates an english word.
+1) `function' - for a call to a texinfo function
+2) `word'     - indicates an English word.
 It would be nice to know function arguments too, but not today."
   (let ((sym (semantic-ctxt-current-symbol)))
     (if (and sym (= (aref (car sym) 0) ?@))

lisp/cedet/semantic/wisent/comp.el

@@ -2641,7 +2641,7 @@ Decide what to do for each type of token if seen as the lookahead
 token in specified state.  The value returned is used as the default
 action for the state.  In addition, ACTROW is filled with what to do
 for each kind of token, index by symbol number, with nil meaning do
-the default action.  The value 'error, means this situation is an
+the default action.  The value `error', means this situation is an
 error.  The parser recognizes this value specially.
 
 This is where conflicts are resolved.  The loop over lookahead rules

lisp/cedet/semantic/wisent/javascript.el

@@ -88,8 +88,8 @@ is to return a symbol based on type modifiers."
 (define-mode-local-override semantic-analyze-scope-calculate-access js-mode (type scope)
   "Calculate the access class for TYPE as defined by the current SCOPE.
 Access is related to the :parents in SCOPE.  If type is a member of SCOPE
-then access would be 'private.  If TYPE is inherited by a member of SCOPE,
-the access would be 'protected.  Otherwise, access is 'public."
+then access would be `private'.  If TYPE is inherited by a member of SCOPE,
+the access would be `protected'.  Otherwise, access is `public'."
   nil)
 
 (define-mode-local-override semantic-ctxt-current-symbol js-mode (&optional point)

lisp/cedet/srecode/dictionary.el

@@ -560,7 +560,7 @@ where
 
 ENTRY_N = (NAME ENTRY_N_1 ENTRY_N_2 ...) | TAG
 
-where TAG is a semantic tag of class 'variable.  The (NAME ... )
+where TAG is a semantic tag of class `variable'.  The (NAME ... )
 form creates a child dictionary which is stored under the name
 NAME.  The TAG form creates a value entry or section dictionary
 entry whose name is the name of the tag.

lisp/cedet/srecode/document.el

@@ -385,7 +385,7 @@ It is assumed that the comment occurs just in front of FCN-IN."
 
     (when (or (not fcn-in)
 	      (not (semantic-tag-of-class-p fcn-in 'function)))
-      (error "No tag of class 'function to insert comment for"))
+      (error "No tag of class `function' to insert comment for"))
 
     (if (not (eq (current-buffer) (semantic-tag-buffer fcn-in)))
 	(error "Only insert comments for tags in the current buffer"))
@@ -496,7 +496,7 @@ It is assumed that the comment occurs just after VAR-IN."
 
     (when (or (not var-in)
 	      (not (semantic-tag-of-class-p var-in 'variable)))
-      (error "No tag of class 'variable to insert comment for"))
+      (error "No tag of class `variable' to insert comment for"))
 
     (if (not (eq (current-buffer) (semantic-tag-buffer var-in)))
 	(error "Only insert comments for tags in the current buffer"))

lisp/cedet/srecode/insert.el

@@ -373,8 +373,8 @@ Can't be blank, or it might be used by regular variable insertion.")
 	   :initarg :where
 	   :documentation
 	   "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'.")
+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.
    )

lisp/cedet/srecode/semantic.el

@@ -210,7 +210,7 @@ variable default values, and other things."
 ;;; :tagtype ARGUMENT HANDLING
 ;;
 ;; When a :tagtype argument is required, identify the current tag, of
-;; cf class 'type.  Apply those parameters to the dictionary.
+;; class 'type'.  Apply those parameters to the dictionary.
 
 (defun srecode-semantic-handle-:tagtype (dict)
   "Add macros into the dictionary DICT based on a tag of class type at point.
@@ -218,7 +218,7 @@ Assumes the cursor is in a tag of class type.  If not, throw an error."
   (let ((typetag (or srecode-semantic-selected-tag
 		     (semantic-current-tag-of-class 'type))))
     (when (not typetag)
-      (error "Cursor is not in a TAG of class 'type"))
+      (error "Cursor is not in a TAG of class `type'"))
     (srecode-semantic-apply-tag-to-dict
      typetag
      dict)))
@@ -285,8 +285,8 @@ CTXT is the pre-calculated context."
   "Insert TAG into a buffer using srecode templates at point.
 
 Optional STYLE-OPTION is a list of minor configuration of styles,
-such as the symbol 'prototype for prototype functions, or
-'system for system includes, and 'doxygen, for a doxygen style
+such as the symbol `prototype' for prototype functions, or
+`system' for system includes, and `doxygen', for a doxygen style
 comment.
 
 Optional third argument POINT-INSERT-FCN is a hook that is run after

lisp/dired.el

@@ -107,7 +107,7 @@ Note that `ls-lisp' does not support as many options as GNU ls, though.
 For more details, see Info node `(emacs)ls in Lisp'."
   :group 'dired
   :type '(choice (const :tag
-                        "Use --dired only if 'ls' supports it" unspecified)
+                        "Use --dired only if `ls' supports it" unspecified)
                  (const :tag "Do not use --dired" nil)
                  (other :tag "Always use --dired" t)))
 

lisp/doc-view.el

@@ -1021,7 +1021,7 @@ If PAGE is nil, convert the whole document."
 
 (defun doc-view-pdfdraw-program-subcommand ()
   "Return the mutool subcommand replacing mudraw.
-Recent MuPDF distributions replaced 'mudraw' with 'mutool draw'."
+Recent MuPDF distributions replaced `mudraw' with `mutool draw'."
   (when (string-match "mutool[^/\\]*$" doc-view-pdfdraw-program)
     '("draw")))
 

lisp/emacs-lisp/package.el

@@ -2622,7 +2622,7 @@ Helper function for `describe-package'."
 
 (defun package-install-button-action (button)
   "Run `package-install' on the package BUTTON points to.
-Used for the 'action property of buttons in the buffer created by
+Used for the `action' property of buttons in the buffer created by
 `describe-package'."
   (let ((pkg-desc (button-get button 'package-desc)))
     (when (y-or-n-p (format-message "Install package `%s'? "
@@ -2633,7 +2633,7 @@ Used for the 'action property of buttons in the buffer created by
 
 (defun package-delete-button-action (button)
   "Run `package-delete' on the package BUTTON points to.
-Used for the 'action property of buttons in the buffer created by
+Used for the `action' property of buttons in the buffer created by
 `describe-package'."
   (let ((pkg-desc (button-get button 'package-desc)))
     (when (y-or-n-p (format-message "Delete package `%s'? "
@@ -2645,7 +2645,7 @@ Used for the 'action property of buttons in the buffer created by
 (defun package-keyword-button-action (button)
   "Show filtered \"*Packages*\" buffer for BUTTON.
 The buffer is filtered by the `package-keyword' property of BUTTON.
-Used for the 'action property of buttons in the buffer created by
+Used for the `action' property of buttons in the buffer created by
 `describe-package'."
   (let ((pkg-keyword (button-get button 'package-keyword)))
     (package-show-package-list t (list pkg-keyword))))

lisp/erc/erc-autoaway.el

@@ -37,7 +37,7 @@ yourself back when you type something."
 
 (defvar erc-autoaway-idletimer nil
   "The Emacs idletimer.
-This is only used when `erc-autoaway-idle-method' is set to 'emacs.")
+This is only used when `erc-autoaway-idle-method' is set to `emacs'.")
 
 (defvar erc-autoaway-last-sent-time (erc-current-time)
   "The last time the user sent something.")
@@ -50,7 +50,7 @@ user's away status.")
 
 (defun erc-autoaway-reestablish-idletimer ()
   "Reestablish the Emacs idletimer.
-If `erc-autoaway-idle-method' is 'emacs, you must call this
+If `erc-autoaway-idle-method' is `emacs', you must call this
 function each time you change `erc-autoaway-idle-seconds'."
   (interactive)
   (when erc-autoaway-idletimer
@@ -70,7 +70,7 @@ If none is found, return nil."
   "Add autoaway reset function to `post-command-hook' if at least one
 ERC process is alive.
 
-This is used when `erc-autoaway-idle-method' is 'user."
+This is used when `erc-autoaway-idle-method' is `user'."
   (when (or server (erc-autoaway-some-server-buffer))
     (add-hook 'post-command-hook 'erc-autoaway-reset-idle-user)))
 
@@ -78,7 +78,7 @@ This is used when `erc-autoaway-idle-method' is 'user."
   "Remove the autoaway reset function from `post-command-hook' if
 no ERC process is alive.
 
-This is used when `erc-autoaway-idle-method' is 'user."
+This is used when `erc-autoaway-idle-method' is `user'."
   (unless (erc-autoaway-some-server-buffer)
     (remove-hook 'post-command-hook 'erc-autoaway-reset-idle-user)))
 
@@ -140,9 +140,9 @@ Related variables: `erc-public-away-p' and `erc-away-nickname'."
 
 (defcustom erc-autoaway-idle-method 'user
   "The method used to determine how long you have been idle.
-If 'user, the time of the last command sent to Emacs is used.
-If 'emacs, the idle time in Emacs is used.
-If 'irc, the time of the last IRC command is used.
+If `user', the time of the last command sent to Emacs is used.
+If `emacs', the idle time in Emacs is used.
+If `irc', the time of the last IRC command is used.
 
 The time itself is specified by `erc-autoaway-idle-seconds'.
 

lisp/erc/erc-services.el

@@ -289,7 +289,7 @@ NICK is nickserv's nickname.  Use nick@server where necessary/possible.
 KEYWORD is the keyword to use in the reply message to identify yourself.
 USE-CURRENT indicates whether the current nickname must be used when
   identifying.
-ANSWER is the command to use for the answer.  The default is 'privmsg.
+ANSWER is the command to use for the answer.  The default is `privmsg'.
 SUCCESS-REGEXP is a regular expression matching the message nickserv
   sends when you've successfully identified.
 The last two elements are optional."

lisp/gnus/gnus-diary.el

@@ -64,7 +64,7 @@ Please refer to `format-time-string' for information on possible values."
   "Function called to format a diary delay string.
 It is passed two arguments.  The first one is non-nil if the delay is in
 the past.  The second one is of the form ((NUM . UNIT) ...) where NUM is
-an integer and UNIT is one of 'year 'month 'week 'day 'hour or 'minute.
+an integer and UNIT is one of `year' `month' `week' `day' `hour' or `minute'.
 It should return strings like \"In 2 months, 3 weeks\", \"3 hours,
 1 minute ago\" and so on.
 

lisp/gnus/gnus-msg.el

@@ -637,7 +637,7 @@ If ARG is 1, prompt for group name to post to.
 
 This function prepares a news even when using mail groups.  This is useful
 for posting messages to mail groups without actually sending them over the
-network.  The corresponding back end must have a 'request-post method."
+network.  The corresponding back end must have a `request-post' method."
   (interactive "P")
   ;; We can't `let' gnus-newsgroup-name here, since that leads
   ;; to local variables leaking.
@@ -714,7 +714,7 @@ If ARG, don't do that.  If ARG is 1, prompt for group name to post to.
 
 This function prepares a news even when using mail groups.  This is useful
 for posting messages to mail groups without actually sending them over the
-network.  The corresponding back end must have a 'request-post method."
+network.  The corresponding back end must have a `request-post' method."
   (interactive "P")
   ;; We can't `let' gnus-newsgroup-name here, since that leads
   ;; to local variables leaking.

lisp/gnus/gnus-registry.el

@@ -145,7 +145,7 @@ recipients."
   '("delayed$" "drafts$" "queue$" "INBOX$" "^nnmairix:" "archive")
   "List of groups that gnus-registry-split-fancy-with-parent won't return.
 The group names are matched, they don't have to be fully
-qualified.  This parameter tells the Gnus registry 'never split a
+qualified.  This parameter tells the Gnus registry `never split a
 message into a group that matches one of these, regardless of
 references.'
 
@@ -211,7 +211,7 @@ groups."
 
 (defcustom gnus-registry-extra-entries-precious '(mark)
   "What extra keys are precious, meaning entries with them won't get pruned.
-By default, 'mark is included, so articles with marks are
+By default, `mark' is included, so articles with marks are
 considered precious.
 
 Before you save the Gnus registry, it's pruned.  Any entries with

lisp/gnus/gnus-score.el

@@ -826,7 +826,7 @@ HEADER is the header being scored.
 MATCH is the string we are looking for.
 TYPE is the match type: substring, regexp, exact, fuzzy.
 SCORE is the score to add.
-DATE is the expire date, or nil for no expire, or 'now for immediate expire.
+DATE is the expire date, or nil for no expire, or `now' for immediate expire.
 If optional argument `PROMPT' is non-nil, allow user to edit match.
 If optional argument `SILENT' is nil, show effect of score entry.
 If optional argument `EXTRA' is non-nil, it's a non-standard overview header."

lisp/gnus/gnus-sum.el

@@ -9127,7 +9127,7 @@ a non-numeric prefix arg will use nnir to search the entire
 server; without a prefix arg only the current group is
 searched.  If the variable `gnus-refer-thread-use-nnir' is
 non-nil the prefix arg has the reverse meaning.  If no
-backend-specific 'request-thread function is available fetch
+backend-specific `request-thread' function is available fetch
 LIMIT (the numerical prefix) old headers.  If LIMIT is
 non-numeric or nil fetch the number specified by the
 `gnus-refer-thread-limit' variable."

lisp/gnus/nndiary.el

@@ -124,13 +124,13 @@ Hortense, would you be so kind as to remind me of my appointments 3 days
 before the date, thank you very much.  Anda, hmmm... by the way, are you
 doing anything special tonight ?\".
 
-The units of measure are 'minute 'hour 'day 'week 'month and 'year (no,
-not 'century, sorry).
+The units of measure are `minute' `hour' `day' `week' `month' and `year' (no,
+not `century', sorry).
 
 NOTE: the units of measure actually express dates, not durations: if you
-use 'week, messages will pop up on Sundays at 00:00 (or Mondays if
+use `week', messages will pop up on Sundays at 00:00 (or Mondays if
 `nndiary-week-starts-on-monday' is non-nil) and *not* 7 days before the
-appointment, if you use 'month, messages will pop up on the first day of
+appointment, if you use `month', messages will pop up on the first day of
 each months, at 00:00 and so on.
 
 If you really want to specify a duration (like 24 hours exactly), you can

lisp/gnus/nnimap.el

@@ -1134,7 +1134,7 @@ If LIMIT, first try to limit the search to the N last articles."
 	  (nnimap-command "UID EXPUNGE %s"
 			  (nnimap-article-ranges articles))
 	(nnheader-message
-	 3 (concat "nnimap-expunge set to 'immediately, but "
+	 3 (concat "nnimap-expunge set to `immediately', but "
 		   "server doesn't support UIDPLUS"))
 	nil))
 

lisp/gnus/nnir.el

@@ -317,7 +317,7 @@ If nil this will use `gnus-summary-line-format'."
 (defcustom nnir-retrieve-headers-override-function nil
   "If non-nil, a function that accepts an article list and group
 and populates the `nntp-server-buffer' with the retrieved
-headers.  Must return either 'nov or 'headers indicating the
+headers.  Must return either `nov' or `headers' indicating the
 retrieved header format.
 
 If this variable is nil, or if the provided function returns nil for

lisp/gnus/nnmairix.el

@@ -301,7 +301,7 @@ The default chooses the largest window in the current frame."
 
 (defcustom nnmairix-propagate-marks-upon-close t
   "Flag if marks should be propagated upon closing a group.
-The default of this variable is t.  If set to 'ask, the
+The default of this variable is t.  If set to `ask', the
 user will be asked if the flags should be propagated when the
 group is closed.  If set to nil, the user will have to manually
 call `nnmairix-propagate-marks'."
@@ -1400,7 +1400,7 @@ nnmairix with nnml backends."
   "Replace folder names in Xref header and correct article numbers.
 Do this for all ARTICLES on BACKENDGROUP.  Replace using
 MAIRIXGROUP.  NUMC contains values for article number correction.
-TYPE is either 'nov or 'headers."
+TYPE is either `nov' or `headers'."
   (nnheader-message 7 "nnmairix: Rewriting headers...")
   (cond
    ((eq type 'nov)
@@ -1449,7 +1449,7 @@ TYPE is either 'nov or 'headers."
 (defun nnmairix-backend-to-server (server)
   "Return nnmairix server most probably responsible for back end SERVER.
 User will be asked if this cannot be determined.  Result is saved in
-parameter 'indexed-servers of corresponding default search
+parameter `indexed-servers' of corresponding default search
 group."
   (let ((allservers (nnmairix-get-nnmairix-servers))
 	mairixserver found defaultgroup)
@@ -1459,7 +1459,7 @@ group."
 	  (while (and allservers (not found))
 	    (setq mairixserver (gnus-server-to-method (car (pop allservers))))
 	    ;; First we look if SERVER is the backend of current nnmairix server
-	    (setq found (and (eq (cadr (assoc 'nnmairix-backend mairixserver))
+	    (setq found (and (eq (cadr (assoc `nnmairix-backend mairixserver))
 				 (car server))
 			     (string= (cadr (assoc 'nnmairix-backend-server mairixserver))
 				      (nth 1 server))))

lisp/gnus/spam.el

@@ -831,8 +831,8 @@ backend is STATISTICAL."
 
 (defun spam-backend-list (&optional type)
   "Return a list of all the backend symbols, constrained by TYPE.
-When TYPE is 'non-mover, only non-mover backends are returned.
-When TYPE is 'mover, only mover backends are returned."
+When TYPE is `non-mover', only non-mover backends are returned.
+When TYPE is `mover', only mover backends are returned."
   (let (list)
     (dolist (backend spam-backends)
       (when (or
@@ -882,8 +882,8 @@ that the message is definitely a spam."
 
 (defun spam-backend-function (backend classification type)
   "Get the BACKEND function for CLASSIFICATION and TYPE.
-TYPE is 'registration or 'unregistration.
-CLASSIFICATION is 'ham or 'spam."
+TYPE is `registration' or `unregistration'.
+CLASSIFICATION is `ham' or `spam'."
   (if (and
        (spam-classification-valid-p classification)
        (spam-backend-function-type-valid-p type))
@@ -1520,7 +1520,7 @@ In the case of mover backends, checks the setting of
 (defun spam-fetch-field-fast (article field &optional prepared-data-header)
   "Fetch a FIELD for ARTICLE with the internal `gnus-data-find' function.
 When PREPARED-DATA-HEADER is given, don't look in the Gnus data.
-When FIELD is 'number, ARTICLE can be any number (since we want
+When FIELD is `number', ARTICLE can be any number (since we want
 to find it out)."
   (when (numberp article)
     (let* ((data-header (or prepared-data-header

lisp/ibuf-ext.el

@@ -1321,8 +1321,8 @@ matches against '/a/b/c.d'."
 (define-ibuffer-filter basename
     "Limit current view to buffers with file basename matching QUALIFIER.
 
-For example, for a buffer associated with file '/a/b/c.d', this
-matches against 'c.d'."
+For example, for a buffer associated with file `/a/b/c.d', this
+matches against `c.d'."
   (:description "file basename"
    :reader (read-from-minibuffer
             "Filter by file name, without directory part (regex): "))
@@ -1335,7 +1335,7 @@ matches against 'c.d'."
 
 The separator character (typically `.') is not part of the
 pattern.  For example, for a buffer associated with file
-'/a/b/c.d', this matches against 'd'."
+`/a/b/c.d', this matches against `d'."
   (:description "filename extension"
    :reader (read-from-minibuffer
             "Filter by filename extension without separator (regex): "))
@@ -1596,7 +1596,7 @@ to move by.  The default is `ibuffer-marked-char'."
   "Hide all of the currently marked lines."
   (interactive)
   (if (= (ibuffer-count-marked-lines) 0)
-      (message "No buffers marked; use 'm' to mark a buffer")
+      (message "No buffers marked; use `m' to mark a buffer")
     (let ((count
 	   (ibuffer-map-marked-lines
 	    #'(lambda (_buf _mark)

lisp/ibuffer.el

@@ -651,24 +651,24 @@ directory, like `default-directory'."
     (define-key-after map [menu-bar view filter filter-by-filename]
       '(menu-item "Add filter by full filename..." ibuffer-filter-by-filename
                   :help
-                  (concat "For a buffer associated with file '/a/b/c.d', "
-                          "list buffer if a given pattern matches '/a/b/c.d'")))
+                  (concat "For a buffer associated with file `/a/b/c.d', "
+                          "list buffer if a given pattern matches `/a/b/c.d'")))
     (define-key-after map [menu-bar view filter filter-by-basename]
       '(menu-item "Add filter by file basename..."
                   ibuffer-filter-by-basename
-                  :help (concat "For a buffer associated with file '/a/b/c.d', "
-                                "list buffer if a given pattern matches 'c.d'")))
+                  :help (concat "For a buffer associated with file `/a/b/c.d', "
+                                "list buffer if a given pattern matches `c.d'")))
     (define-key-after map [menu-bar view filter filter-by-file-extension]
       '(menu-item "Add filter by file name extension..."
                   ibuffer-filter-by-file-extension
-                  :help (concat "For a buffer associated with file '/a/b/c.d', "
-                                "list buffer if a given pattern matches 'd'")))
+                  :help (concat "For a buffer associated with file `/a/b/c.d', "
+                                "list buffer if a given pattern matches `d'")))
     (define-key-after map [menu-bar view filter filter-by-directory]
       '(menu-item "Add filter by filename's directory..."
                   ibuffer-filter-by-directory
                   :help
-                  (concat "For a buffer associated with file '/a/b/c.d', "
-                          "list buffer if a given pattern matches '/a/b'")))
+                  (concat "For a buffer associated with file `/a/b/c.d', "
+                          "list buffer if a given pattern matches `/a/b'")))
     (define-key-after map [menu-bar view filter filter-by-size-lt]
       '(menu-item "Add filter by size less than..." ibuffer-filter-by-size-lt))
     (define-key-after map [menu-bar view filter filter-by-size-gt]
@@ -1377,7 +1377,7 @@ Otherwise, toggle lock status."
   "Unmark all buffers with mark MARK."
   (interactive "cRemove marks (RET means all):")
   (if (= (ibuffer-count-marked-lines t) 0)
-      (message "No buffers marked; use 'm' to mark a buffer")
+      (message "No buffers marked; use `m' to mark a buffer")
     (let ((fn (lambda (_buf mk)
                 (unless (eq mk ?\s)
                   (ibuffer-set-mark-1 ?\s)) t)))

lisp/image-dired.el

@@ -666,7 +666,7 @@ according to the Thumbnail Managing Standard."
 
 (defun image-dired-thumb-size (dimension)
   "Return thumb size depending on `image-dired-thumbnail-storage'.
-DIMENSION should be either the symbol 'width or 'height."
+DIMENSION should be either the symbol `width' or `height'."
   (cond
    ((eq 'standard image-dired-thumbnail-storage) 128)
    ((eq 'standard-large image-dired-thumbnail-storage) 256)

lisp/mh-e/mh-identity.el

@@ -282,9 +282,9 @@ If VALUE is nil, use `mh-extract-from-attribution-verb'."
 
 (defun mh-identity-handler-default (field action top &optional value)
   "Process header FIELD.
-The ACTION is one of 'remove or 'add. If TOP is non-nil, add the
+The ACTION is one of `remove' or `add'. If TOP is non-nil, add the
 field and its VALUE at the top of the header, else add it at the
-bottom of the header. If action is 'add, the VALUE is added."
+bottom of the header. If action is `add', the VALUE is added."
   (let ((field-colon (if (string-match "^.*:$" field)
                          field
                        (concat field ":"))))

lisp/mh-e/mh-letter.el

@@ -952,7 +952,7 @@ callable from a mouse button."
 (defun mh-insert-prefix-string (mh-ins-string)
   "Insert prefix string before each line in buffer.
 The inserted letter is cited using `sc-cite-original' if
-`mh-yank-behavior' is one of 'supercite or 'autosupercite.
+`mh-yank-behavior' is one of `supercite' or `autosupercite'.
 Otherwise, simply insert MH-INS-STRING before each line."
   (goto-char (point-min))
   (cond ((or (eq mh-yank-behavior 'supercite)

lisp/mh-e/mh-search.el

@@ -1329,7 +1329,7 @@ is used to search."
   "Read the next result.
 Parse it and return the message folder, message index and the
 match. If no other matches left then return nil. If the current
-record is invalid return 'error."
+record is invalid return `error'."
   (prog1
       (cl-block nil
         (when (eobp)

lisp/mwheel.el

@@ -151,7 +151,7 @@ face height."
   :version "26.1")
 
 (defcustom mouse-wheel-flip-direction nil
-  "Swap direction of 'wheel-right and 'wheel-left."
+  "Swap direction of `wheel-right' and `wheel-left'."
   :group 'mouse
   :type 'boolean
   :version "26.1")

lisp/net/network-stream.el

@@ -62,12 +62,12 @@
   "Whether to use client certificates for network connections.
 
 When non-nil, `open-network-stream' will automatically look for
-matching client certificates (via 'auth-source') for a
+matching client certificates (via `auth-source') for a
 destination server, if it is called without a :client-certificate
 keyword.
 
 Set to nil to disable this lookup globally.  To disable on a
-per-connection basis, specify ':client-certificate nil' when
+per-connection basis, specify `:client-certificate nil' when
 calling `open-network-stream'."
   :group 'network
   :type 'boolean

lisp/obsolete/lucid.el

@@ -60,7 +60,7 @@ bottom of the buffer stack."
 
 (defun device-class (&optional device)
   "Return the class (color behavior) of DEVICE.
-This will be one of 'color, 'grayscale, or 'mono.
+This will be one of `color', `grayscale', or `mono'.
 This function exists for compatibility with XEmacs."
   (cond
    ((display-color-p device) 'color)

lisp/obsolete/mantemp.el

@@ -148,7 +148,7 @@ the lines."
     ;; subsequently remove 'class' for functions so we don't need to
     ;; both scan for classes and functions.
     (goto-char (point-min))
-    (message "Inserting 'template class' for classes")
+    (message "Inserting `template class' for classes")
     (while (re-search-forward "^.+" nil t)
       (progn
 	(beginning-of-line)
@@ -156,7 +156,7 @@ the lines."
 	    (insert "template ")
 	  (insert "template class "))))
     (goto-char (point-min))
-    (message "Inserting 'template' for functions")
+    (message "Inserting `template' for functions")
     (while (re-search-forward
 	    "^template class [a-zA-Z :&*<>~=,0-9+!]*(" nil t nil)
       (progn

lisp/obsolete/vip.el

@@ -2250,7 +2250,7 @@ a token has type \(command, address, end-mark\) and value."
 	   (forward-char 1)
 	   (cond ((looking-at "'") (setq ex-token nil))
 		 ((looking-at "[a-z]") (setq ex-token (following-char)))
-		 (t (error "Marks are ' and a-z")))
+		 (t (error "%s" "Marks are ' and a-z" ?')))
 	   (forward-char 1))
 	  ((looking-at "\n")
 	   (setq ex-token-type "end-mark")

lisp/org/ob-lua.el

@@ -56,7 +56,7 @@
 
 (defcustom org-babel-lua-mode 'lua-mode
   "Preferred lua mode for use in running lua interactively.
-This will typically be 'lua-mode."
+This will typically be `lua-mode'."
   :group 'org-babel
   :version "26.1"
   :package-version '(Org . "8.3")
@@ -70,7 +70,7 @@ This will typically be 'lua-mode."
   :type 'string)
 
 (defcustom org-babel-lua-None-to 'hline
-  "Replace 'None' in lua tables with this before returning."
+  "Replace `None' in lua tables with this before returning."
   :group 'org-babel
   :version "26.1"
   :package-version '(Org . "8.3")
@@ -285,8 +285,8 @@ fd:close()")
 (defun org-babel-lua-evaluate-external-process
     (body &optional result-type result-params preamble)
   "Evaluate BODY in external lua process.
-If RESULT-TYPE equals 'output then return standard output as a
-string.  If RESULT-TYPE equals 'value then return the value of the
+If RESULT-TYPE equals `output' then return standard output as a
+string.  If RESULT-TYPE equals `value' then return the value of the
 last statement in BODY, as elisp."
   (let ((raw
          (pcase result-type
@@ -317,8 +317,8 @@ last statement in BODY, as elisp."
 (defun org-babel-lua-evaluate-session
     (session body &optional result-type result-params)
   "Pass BODY to the Lua process in SESSION.
-If RESULT-TYPE equals 'output then return standard output as a
-string.  If RESULT-TYPE equals 'value then return the value of the
+If RESULT-TYPE equals `output' then return standard output as a
+string.  If RESULT-TYPE equals `value' then return the value of the
 last statement in BODY, as elisp."
   (let* ((send-wait (lambda () (comint-send-input nil t) (sleep-for 0 5)))
 	 (dump-last-value

lisp/org/org-agenda.el

@@ -3920,7 +3920,7 @@ dimming them."
 the header at `org-hd-marker' is blocked according to
 `org-entry-blocked-p', then if `org-agenda-dim-blocked-tasks' is
 'invisible and the header is not blocked by checkboxes, set the
-text property `org-todo-blocked' to 'invisible, otherwise set it
+text property `org-todo-blocked' to `invisible', otherwise set it
 to t."
   (when (get-text-property 0 'todo-state entry)
     (let ((entry-marker (get-text-property 0 'org-hd-marker entry))

lisp/org/ox-latex.el

@@ -385,7 +385,7 @@ variable is non-nil, Org passes their value to \\label unchanged.
 You are responsible for ensuring that the value is a valid LaTeX
 \\label key, and that no other \\label commands with the same key
 appear elsewhere in your document.  (Keys may contain letters,
-numbers, and the following punctuation: '_' '.'  '-' ':'.)  There
+numbers, and the following punctuation: `_' `.' `-' `:'.)  There
 are no such limitations on CUSTOM_ID and NAME when this variable
 is nil.
 

lisp/progmodes/cc-bytecomp.el

@@ -307,7 +307,7 @@ somewhat intentional."
 file CC-PART.el in the current directory to be loaded at compile
 time, (ii) generate code to load the file at load time.
 
-CC-PART will normally be a quoted name such as 'cc-fix.
+CC-PART will normally be a quoted name such as \\='cc-fix.
 CONDITION should not be quoted."
   (if (eval condition)
       (progn
@@ -321,7 +321,7 @@ file CC-PART.el in the current directory to be loaded at compile
 time, (ii) generate an `eval-after-load' form to load CC-PART.el
 after the loading of FILE.
 
-CC-PART will normally be a quoted name such as 'cc-fix.  FILE
+CC-PART will normally be a quoted name such as \\='cc-fix.  FILE
 should be a string.  CONDITION should not be quoted."
   (if (eval condition)
       (progn

lisp/progmodes/cc-engine.el

@@ -5059,10 +5059,10 @@ that region is taken as syntactically significant text.
 
 NOERROR, in addition to the values nil, t, and <anything else>
 used in `re-search-forward' can also take the values
-'before-literal and 'after-literal.  In these cases, when BOUND
+`before-literal' and `after-literal'.  In these cases, when BOUND
 is also given and is inside a literal, and a search fails, point
 will be left, respectively before or after the literal.  Be aware
-that with 'after-literal, if a string or comment is unclosed at
+that with `after-literal', if a string or comment is unclosed at
 the end of the buffer, point may be left there, even though it is
 inside a literal there.
 

lisp/progmodes/idlw-shell.el

@@ -197,7 +197,7 @@ So by default setting a breakpoint will be on C-c C-d C-b."
 (defcustom idlwave-shell-automatic-electric-debug 'breakpoint
   "Enter the electric-debug minor mode automatically.
 This occurs at a breakpoint or any other halt.  The mode is exited
-upon return to the main level.  Can be set to 'breakpoint to enter
+upon return to the main level.  Can be set to `breakpoint' to enter
 electric debug mode only when breakpoints are tripped."
   :group 'idlwave-shell-general-setup
   :type '(choice
@@ -281,8 +281,8 @@ is non-nil."
 (defcustom idlwave-shell-show-commands
   '(run misc breakpoint)
   "A list of command types to show output from in the shell.
-Possibilities are 'run, 'debug, 'breakpoint, and 'misc.  Unselected
-types are not displayed in the shell.  The type 'everything causes all
+Possibilities are `run', `debug', `breakpoint', and `misc'.  Unselected
+types are not displayed in the shell.  The type `everything' causes all
 the copious shell traffic to be displayed."
   :group 'idlwave-shell-command-setup
   :type '(choice
@@ -571,7 +571,7 @@ before use by the shell.")
 (defun idlwave-shell-temp-file (type)
   "Return a temp file, creating it if necessary.
 
-TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or
+TYPE is either `pro' or `rinfo', and `idlwave-shell-temp-pro-file' or
 `idlwave-shell-temp-rinfo-save-file' is set (respectively)."
   (cond
    ((eq type 'rinfo)
@@ -1195,7 +1195,7 @@ See also the variable `idlwave-shell-prompt-pattern'.
 
 (defun idlwave-shell-hide-p (type &optional list)
   "Whether to hide this type of command.
-Return either nil or 'hide."
+Return either nil or `hide'."
   (let ((list (or list idlwave-shell-show-commands)))
     (if (listp list)
       (if (not (memq type list)) 'hide))))
@@ -1222,13 +1222,13 @@ If optional second argument PCMD is non-nil it will be placed on
 `idlwave-shell-post-command-hook' when CMD is executed.
 
 If the optional third argument HIDE is non-nil, then hide output from
-CMD, unless it is the symbol 'mostly, in which case only output
+CMD, unless it is the symbol `mostly', in which case only output
 beginning with \"%\" is hidden, and all other output (i.e., the
 results of a PRINT command), is shown.  This helps with, e.g.,
 stepping through code with output.
 
 If optional fourth argument PREEMPT is non-nil CMD is put at front of
-`idlwave-shell-pending-commands'.  If PREEMPT is 'wait, wait for all
+`idlwave-shell-pending-commands'.  If PREEMPT is `wait', wait for all
 output to complete and the next prompt to arrive before returning
 \(useful if you need an answer now).  IDL is considered ready if the
 prompt is present and if `idlwave-shell-ready' is non-nil.
@@ -1639,8 +1639,8 @@ IDL has stopped.  The types of messages we are interested in are
 execution halted, stepped, breakpoint, interrupted at and trace
 messages.  For breakpoint messages process any attached count or
 command parameters.  Update the stop line if a message is found.
-The variable `idlwave-shell-current-state' is set to 'error, 'halt,
-or 'breakpoint, which describes the status, or nil for none of
+The variable `idlwave-shell-current-state' is set to `error', `halt',
+or `breakpoint', which describes the status, or nil for none of
 the above."
   (let (trace)
     (cond
@@ -2282,8 +2282,8 @@ is used.  Does nothing if the resulting frame is nil."
 FRAME is a list of file name, line number, and subroutine name.  If
 FRAME is nil then remove overlay.  If COL is set, move point to that
 column in the line.  If DEBUG is non-nil, enable the electric debug
-mode.  If it is 'disable, do not enable no matter what the setting of
-`idlwave-shell-automatic-electric-debug'.  If it is 'force, enable no
+mode.  If it is `disable', do not enable no matter what the setting of
+`idlwave-shell-automatic-electric-debug'.  If it is `force', enable no
 matter what the settings of that variable."
   (if (not frame)
       ;; remove stop-line overlay from old position
@@ -2560,7 +2560,7 @@ stopped at a breakpoint."
 (defun idlwave-shell-toggle-enable-current-bp (&optional bp force
 							 no-update)
   "Disable or enable current breakpoint or a breakpoint passed in BP.
-If FORCE is 'disable or 'enable, for that condition instead of
+If FORCE is `disable' or `enable', for that condition instead of
 toggling.  If NO-UPDATE is non-nil, don't update the breakpoint
 list after toggling."
   (interactive)
@@ -3114,7 +3114,7 @@ versions of IDL."
 (defun idlwave-shell-help-statement (help expr)
   "Construct a help statement for printing expression EXPR.
 
-HELP can be non-nil for `help,', nil for 'print,' or any string into which
+HELP can be non-nil for `help,', nil for `print,' or any string into which
 to insert expression in place of the marker ___, e.g.: print,
 size(___,/DIMENSIONS)"
   (cond
@@ -3287,9 +3287,9 @@ Queries IDL using the string in `idlwave-shell-bp-query'."
   "Get a value for a breakpoint.
 BP has the form of elements in `idlwave-shell-bp-alist'.
 Optional second arg ITEM is the particular value to retrieve.
-ITEM can be 'file, 'line, 'index, 'module, 'count, 'cmd,
-'condition, 'disabled, 'type, or 'data.  'data returns a list
-of 'count, 'cmd and 'condition.  Defaults to 'index."
+ITEM can be `file', `line', `index', `module', `count', `cmd',
+`condition', `disabled', `type', or `data'.  `data' returns a list
+of `count', `cmd' and `condition'.  Defaults to `index'."
   (cond
    ;; Frame
    ((eq item 'line) (nth 1 (car bp)))
@@ -3636,7 +3636,7 @@ Existing overlays are recycled, in order to minimize consumption."
   "Make a new overlay for highlighting breakpoints.
 
 This stuff is strongly dependent upon the version of Emacs.  If TYPE
-is passed, make an overlay of that type ('bp or 'bp-cond, currently
+is passed, make an overlay of that type (`bp' or `bp-cond', currently
 only for glyphs)."
   (let ((ov (make-overlay 1 1))
 	(use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))

lisp/progmodes/mixal-mode.el

@@ -330,7 +330,7 @@ part of the subfield. The default field for STJ is (0:2)."
          2)
 
     (STZ storing "store zero" 33 field
-         "Store in cell Nr. M '+ 0'.
+         "Store in cell Nr. M `+ 0'.
 The modification of the operation code represents the subfield of the
 memory cell that is to be overwritten with zeros."
          2)

lisp/progmodes/project.el

@@ -110,7 +110,7 @@ is not a part of a detectable project either, return a
       (setq dir (read-directory-name "Choose the project directory: " dir nil t)
             pr (project--find-in-directory dir))
       (unless pr
-        (message "Using '%s' as a transient project root" dir)
+        (message "Using `%s' as a transient project root" dir)
         (setq pr (cons 'transient dir)))))
     pr))
 

lisp/progmodes/python.el

@@ -3747,7 +3747,7 @@ Used to extract the current line and module being inspected.
 
 Must match lines with real filename, like
  > /path/to/file.py(42)<module>()->None
-and lines in which filename starts with '<', e.g.
+and lines in which filename starts with `<', e.g.
  > <stdin>(1)<module>()->None
 
 In the first case /path/to/file.py file will be visited and overlay icon
@@ -3762,21 +3762,21 @@ Line number is expected in the second parenthesized expression."
   :safe 'stringp)
 
 (defcustom python-pdbtrack-continue-command '("c" "cont" "continue")
-  "Pdb 'continue' command aliases.
-After one of this commands is sent to pdb, pdbtracking session is
+  "Pdb `continue' command aliases.
+After one of these commands is sent to pdb, the pdbtracking session is
 considered over.
 
-This command is remembered by pdbtracking.  If next command sent to pdb
-is empty string, it considered 'continue' command if previous command
-was 'continue'.  This behavior slightly differentiate 'continue' command
-from 'exit' commands listed in `python-pdbtrack-exit-command'.
+This command is remembered by pdbtracking.  If the next command sent to pdb
+is the empty string, it is treated as `continue' if the previous command
+was `continue'.  This behavior slightly differentiates the `continue' command
+from the `exit' command listed in `python-pdbtrack-exit-command'.
 
 See `python-pdbtrack-activate' for pdbtracking session overview."
   :type 'list
   :version "27.1")
 
 (defcustom python-pdbtrack-exit-command '("q" "quit" "exit")
-  "Pdb 'exit' command aliases.
+  "Pdb `exit' command aliases.
 After one of this commands is sent to pdb, pdbtracking session is
 considered over.
 
@@ -3801,7 +3801,7 @@ Never set this variable directly, use
   "List of buffers to be deleted after tracking finishes.")
 
 (defvar python-pdbtrack-prev-command-continue nil
-  "Is t if previous pdb command was 'continue'.")
+  "Is t if previous pdb command was `continue'.")
 
 (defun python-pdbtrack-set-tracked-buffer (file-name)
   "Set the buffer for FILE-NAME as the tracked buffer.

lisp/progmodes/ruby-mode.el

@@ -1807,9 +1807,9 @@ If the result is do-end block, it will always be multiline."
 (defun ruby-find-library-file (&optional feature-name)
   "Visit a library file denoted by FEATURE-NAME.
 FEATURE-NAME is a relative file name, file extension is optional.
-This commands delegates to 'gem which', which searches both
+This commands delegates to `gem which', which searches both
 installed gems and the standard library.  When called
-interactively, defaults to the feature name in the 'require'
+interactively, defaults to the feature name in the `require'
 statement around point."
   (interactive)
   (unless feature-name

lisp/progmodes/simula.el

@@ -1122,7 +1122,7 @@ If COUNT is negative, move backward instead."
 		   ((eq (following-char) ?\;)
 		    (if (zerop parlevel)
 			(throw 'simula-out nil)
-		      (error "Parenthesis mismatch or misplaced ';'")))
+		      (error "Parenthesis mismatch or misplaced `;'")))
 		   ((eq (following-char) ?\()
 		    (if (zerop parlevel)
 			(throw 'simula-out (1+ (current-column)))

lisp/progmodes/vhdl-mode.el

@@ -8737,13 +8737,13 @@ project is defined."
        ((/= (preceding-char) ?-)	; standard dash (minus)
 	(self-insert-command count))
        (t (self-insert-command count)
-	  (message "Enter '-' for horiz. line, 'CR' for commenting-out code, else enter comment")
+	  (message "Enter `-' for horiz. line, RET for commenting-out code, else enter comment")
 	  (let ((next-input (read-char)))
 	    (if (= next-input ?-)	; triple dash
 		(progn
 		  (vhdl-comment-display-line)
 		  (message
-		   "Enter '-' for display comment, else continue coding")
+		   "Enter `-' for display comment, else continue coding")
 		  (let ((next-input (read-char)))
 		    (if (= next-input ?-) ; four dashes
 			(vhdl-comment-display t)

lisp/so-long.el

@@ -1342,7 +1342,7 @@ This is the `so-long-revert-function' for `so-long-mode'."
 (defun so-long-mode-downgrade (&optional mode)
   "The default value for `so-long-file-local-mode-function'.
 
-A buffer-local 'downgrade' from `so-long-mode' to `so-long-minor-mode'.
+A buffer-local \"downgrade\" from `so-long-mode' to `so-long-minor-mode'.
 
 When `so-long-function' is set to `so-long-mode', then we change it to to
 `turn-on-so-long-minor-mode' instead -- retaining the file-local major
@@ -1373,13 +1373,13 @@ This is a `so-long-file-local-mode-function' option."
   ;; See also "Files with a file-local 'mode'" in the Commentary.
   "Handle the header-comments processing in `set-auto-mode'.
 
-`set-auto-mode' has some special-case code to handle the 'mode' pseudo-variable
+`set-auto-mode' has some special-case code to handle the `mode' pseudo-variable
 when set in the header comment.  This runs outside of `hack-local-variables'
 and cannot be conveniently intercepted, so we are forced to replicate it here.
 
 This special-case code will ultimately be removed from Emacs, as it exists to
 deal with a deprecated feature; but until then we need to replicate it in order
-to inhibit our own behaviour in the presence of a header comment 'mode'
+to inhibit our own behavior in the presence of a header comment `mode'
 declaration.
 
 If a file-local mode is detected in the header comment, then we call the
@@ -1496,7 +1496,7 @@ major mode is a member (or derivative of a member) of `so-long-target-modes'.
 
 This advice is needed and enabled only for Emacs versions < 26.1.
 
-If the local 'mode' pseudo-variable is used, `set-auto-mode-0' will call it
+If the local `mode' pseudo-variable is used, `set-auto-mode-0' will call it
 firstly, and subsequently `hack-one-local-variable' may call it again.
 
 Usually `hack-one-local-variable' tries to avoid processing that second call,

lisp/textmodes/ispell.el

@@ -2472,7 +2472,7 @@ SPC:   Accept word this time.
 	  (help-2 (concat "[l]ook a word up in alternate dictionary;  "
 			  "e[x/X]it;  [q]uit session"))
 	  (help-3 (concat "[u]ncapitalized insert into dict.  "
-			  "Type 'x C-h f ispell-help' for more help")))
+			  "Type `x C-h f ispell-help' for more help")))
       (save-window-excursion
 	(if ispell-help-in-bufferp
 	    (let ((buffer (get-buffer-create "*Ispell Help*")))
@@ -3603,7 +3603,7 @@ If APPEND is non-n il, append the info to previous buffer if exists."
   "Continue a halted spelling session beginning with the current word."
   (interactive)
   (if (not (marker-position ispell-region-end))
-      (message "No session to continue.  Use 'X' command when checking!")
+      (message "No session to continue.  Use `X' command when checking!")
     (if (not (equal (marker-buffer ispell-region-end) (current-buffer)))
 	(message "Must continue ispell from buffer %s"
 		 (buffer-name (marker-buffer ispell-region-end)))

lisp/url/url-file.el

@@ -37,8 +37,8 @@
   "Find the exact file referenced by `fname'.
 This tries the common compression extensions, because things like
 ange-ftp and efs are not quite smart enough to realize when a server
-can do automatic decompression for them, and won't find 'foo' if
-'foo.gz' exists, even though the FTP server would happily serve it up
+can do automatic decompression for them, and won't find `foo' if
+`foo.gz' exists, even though the FTP server would happily serve it up
 to them."
   (let ((scratch nil)
 	(compressed-extensions '("" ".gz" ".z" ".Z" ".bz2" ".xz"))

lisp/vc/ediff-util.el

@@ -1274,21 +1274,21 @@ which see."
   (cond ((eq ediff-window-setup-function #'ediff-setup-windows-multiframe)
 	 (setq ediff-multiframe nil)
 	 (setq window-setup-func #'ediff-setup-windows-plain)
-         (message "ediff is now in 'plain' mode"))
+         (message "ediff is now in `plain' mode"))
 	((eq ediff-window-setup-function #'ediff-setup-windows-plain)
 	 (if (and (ediff-buffer-live-p ediff-control-buffer)
 		  (window-live-p ediff-control-window))
 	     (set-window-dedicated-p ediff-control-window nil))
 	 (setq ediff-multiframe t)
 	 (setq window-setup-func #'ediff-setup-windows-multiframe)
-         (message "ediff is now in 'multiframe' mode"))
+         (message "ediff is now in `multiframe' mode"))
 	(t
 	 (if (and (ediff-buffer-live-p ediff-control-buffer)
 		  (window-live-p ediff-control-window))
 	     (set-window-dedicated-p ediff-control-window nil))
 	 (setq ediff-multiframe t)
 	 (setq window-setup-func #'ediff-setup-windows-multiframe))
-         (message "ediff is now in 'multiframe' mode"))
+         (message "ediff is now in `multiframe' mode"))
 
   ;; change default
   (setq-default ediff-window-setup-function window-setup-func)

lisp/vc/vc-bzr.el

@@ -433,7 +433,7 @@ default if it is available."
 Return value is a cons (STATUS . WARNING), where WARNING is a
 string or nil, and STATUS is one of the symbols: `added',
 `ignored', `kindchanged', `modified', `removed', `renamed', `unknown',
-which directly correspond to `bzr status' output, or 'unchanged
+which directly correspond to `bzr status' output, or `unchanged'
 for files whose copy in the working tree is identical to the one
 in the branch repository (or whose status not be determined)."
 ;; Doc used to also say the following, but AFAICS, it has never been true.

lisp/vc/vc-git.el

@@ -282,8 +282,8 @@ toggle display of the entire list."
   "Convert CODE-LIST to a VC status.
 
 Each element of CODE-LIST comes from the first two characters of
-a line returned by 'git status --porcelain' and should be passed
-in the order given by 'git status'."
+a line returned by `git status --porcelain' and should be passed
+in the order given by `git status'."
   ;; It is necessary to allow CODE-LIST to be a list because sometimes git
   ;; status returns multiple lines, e.g. for a file that is removed from
   ;; the index but is present in the HEAD and working tree.

lisp/wid-edit.el

@@ -3512,7 +3512,7 @@ To use this type, you must define :match or :match-alternatives."
 The `lazy' widget will, when instantiated, contain a single inferior
 widget, of the widget type specified by the :type parameter.  The
 value of the `lazy' widget is the same as the value of the inferior
-widget.  When deriving a new widget from the 'lazy' widget, the :type
+widget.  When deriving a new widget from the `lazy' widget, the :type
 parameter is allowed to refer to the widget currently being defined,
 thus allowing recursive data structures to be described.
 

test/lisp/files-tests.el

@@ -240,8 +240,8 @@ form.")
     (should (equal kill-emacs-args '(nil)))))
 
 (ert-deftest files-tests-read-file-in-~ ()
-  "Test file prompting in directory named '~'.
-If we are in a directory named '~', the default value should not
+  "Test file prompting in directory named `~'.
+If we are in a directory named `~', the default value should not
 be $HOME."
   (cl-letf (((symbol-function 'completing-read)
              (lambda (_prompt _coll &optional _pred _req init _hist def _)

test/src/lread-tests.el

@@ -145,7 +145,7 @@ literals (Bug#20852)."
                            "expected!")))))
 
 (ert-deftest lread-tests--funny-quote-symbols ()
-  "Check that 'smart quotes' or similar trigger errors in symbol names."
+  "Check that `smart quotes' or similar trigger errors in symbol names."
   (dolist (quote-char
            '(#x2018 ;; LEFT SINGLE QUOTATION MARK
              #x2019 ;; RIGHT SINGLE QUOTATION MARK