; Fix symbol quoting typos
This commit is contained in:
parent
79113b5e4a
commit
fc4b956c7c
21 changed files with 35 additions and 34 deletions
|
@ -176,7 +176,7 @@ CONTENTS is the contents of a password-store formatted file."
|
|||
lines))))
|
||||
|
||||
(defun auth-source-pass--do-debug (&rest msg)
|
||||
"Call `auth-source-do-debug` with MSG and a prefix."
|
||||
"Call `auth-source-do-debug' with MSG and a prefix."
|
||||
(apply #'auth-source-do-debug
|
||||
(cons (concat "auth-source-pass: " (car msg))
|
||||
(cdr msg))))
|
||||
|
|
|
@ -119,7 +119,7 @@
|
|||
;; Calendar has historically relied heavily on dynamic scoping.
|
||||
;; Concretely, this manifests in the use of references to let-bound variables
|
||||
;; in Custom vars as well as code in diary files.
|
||||
;; `eval` is hence the core of the culprit. It's used on:
|
||||
;; `eval' is hence the core of the culprit. It's used on:
|
||||
;; - calendar-date-display-form
|
||||
;; - calendar-time-display-form
|
||||
;; - calendar-chinese-time-zone
|
||||
|
|
|
@ -198,7 +198,7 @@ Argument COLLECTOR is an object which can be used to calculate
|
|||
a list of possible hits. See `semantic-completion-collector-engine'
|
||||
for details on COLLECTOR.
|
||||
Argument DISPLAYER is an object used to display a list of possible
|
||||
completions for a given prefix. See`semantic-completion-display-engine'
|
||||
completions for a given prefix. See `semantic-completion-display-engine'
|
||||
for details on DISPLAYER.
|
||||
PROMPT is a string to prompt with.
|
||||
DEFAULT-TAG is a semantic tag or string to use as the default value.
|
||||
|
@ -746,7 +746,7 @@ Argument COLLECTOR is an object which can be used to calculate
|
|||
a list of possible hits. See `semantic-completion-collector-engine'
|
||||
for details on COLLECTOR.
|
||||
Argument DISPLAYER is an object used to display a list of possible
|
||||
completions for a given prefix. See`semantic-completion-display-engine'
|
||||
completions for a given prefix. See `semantic-completion-display-engine'
|
||||
for details on DISPLAYER.
|
||||
BUFFER is the buffer in which completion will take place.
|
||||
START is a location for the start of the full symbol.
|
||||
|
|
|
@ -133,7 +133,7 @@ Changes made by this function are not persistent."
|
|||
;;;###autoload
|
||||
(defun semantic-remove-system-include (dir &optional mode)
|
||||
"Add a system include DIR to path for MODE.
|
||||
Modifies a mode-local version of`semantic-dependency-system-include-path'.
|
||||
Modifies a mode-local version of `semantic-dependency-system-include-path'.
|
||||
|
||||
Changes made by this function are not persistent."
|
||||
(interactive (list
|
||||
|
|
|
@ -3277,7 +3277,7 @@ the form NAME which is a shorthand for (NAME NAME)."
|
|||
(defun cl-struct-sequence-type (struct-type)
|
||||
"Return the sequence used to build STRUCT-TYPE.
|
||||
STRUCT-TYPE is a symbol naming a struct type. Return `record',
|
||||
`vector`, or `list' if STRUCT-TYPE is a struct type, nil otherwise."
|
||||
`vector', or `list' if STRUCT-TYPE is a struct type, nil otherwise."
|
||||
(declare (side-effect-free t) (pure t))
|
||||
(cl--struct-class-type (cl--struct-get-class struct-type)))
|
||||
|
||||
|
|
|
@ -624,7 +624,7 @@ Value for `adaptive-fill-function'."
|
|||
(if (looking-at "\\s-+\"[^\n\"]+\"\\s-*$") ""))
|
||||
|
||||
;; Maybe this should be discouraged/obsoleted and users should be
|
||||
;; encouraged to use `lisp-data-mode` instead.
|
||||
;; encouraged to use `lisp-data-mode' instead.
|
||||
(defun lisp-mode-variables (&optional lisp-syntax keywords-case-insensitive
|
||||
elisp)
|
||||
"Common initialization routine for lisp modes.
|
||||
|
|
|
@ -673,7 +673,7 @@ in order."
|
|||
(defun hack-connection-local-variables (criteria)
|
||||
"Read connection-local variables according to CRITERIA.
|
||||
Store the connection-local variables in buffer local
|
||||
variable`connection-local-variables-alist'.
|
||||
variable `connection-local-variables-alist'.
|
||||
|
||||
This does nothing if `enable-connection-local-variables' is nil."
|
||||
(when enable-connection-local-variables
|
||||
|
|
|
@ -2140,8 +2140,9 @@ instance, to switch off all visual things except menus, you can say:
|
|||
|
||||
Valid elements include `summary-highlight', `group-highlight',
|
||||
`article-highlight', `mouse-face', `summary-menu', `group-menu',
|
||||
`article-menu', `tree-highlight', `menu', `highlight', `browse-menu',
|
||||
`server-menu', `page-marker', `tree-menu', `binary-menu', and`pick-menu'."
|
||||
`article-menu', `tree-highlight', `menu', `highlight',
|
||||
`browse-menu', `server-menu', `page-marker', `tree-menu',
|
||||
`binary-menu', and `pick-menu'."
|
||||
:group 'gnus-meta
|
||||
:group 'gnus-visual
|
||||
:type '(set (const summary-highlight)
|
||||
|
|
|
@ -93,7 +93,7 @@ as that will override any bit grouping options set here."
|
|||
"Face used in address area of Hexl mode buffer.")
|
||||
|
||||
(defface hexl-ascii-region
|
||||
;; Copied from `header-line`. We used to inherit from it, but that
|
||||
;; Copied from `header-line'. We used to inherit from it, but that
|
||||
;; looks awful when the headerline is given a variable-pitch font or
|
||||
;; (even worse) a 3D look.
|
||||
'((((class color grayscale) (background light))
|
||||
|
|
|
@ -8735,7 +8735,7 @@ BODY contains code to execute each time the mode is enabled or disabled.
|
|||
It is executed after toggling the mode, and before running MODE-hook.
|
||||
Before the actual body code, you can write keyword arguments, i.e.
|
||||
alternating keywords and values. If you provide BODY, then you must
|
||||
provide at least one keyword argument (e.g. `:lighter nil`).
|
||||
provide at least one keyword argument (e.g. `:lighter nil').
|
||||
The following special keywords are supported (other keywords are passed
|
||||
to `defcustom' if the minor mode is global):
|
||||
|
||||
|
|
|
@ -108,7 +108,7 @@ nil means run no commands."
|
|||
|
||||
;;;; entry point
|
||||
|
||||
;; We use the Tramp internal function`tramp-make-tramp-file-name'.
|
||||
;; We use the Tramp internal function `tramp-make-tramp-file-name'.
|
||||
;; Better would be, if there are functions to provide user, host and
|
||||
;; localname of a remote filename, independent of Tramp's implementation.
|
||||
;; The function calls are wrapped by `funcall' in order to pacify the byte
|
||||
|
|
|
@ -189,8 +189,8 @@ Otherwise, use Emacs' standard conversion function."
|
|||
"Return database connection parameter NAME.
|
||||
Given a parameter NAME, if :dbconnection is defined in PARAMS
|
||||
then look for the parameter into the corresponding connection
|
||||
defined in `sql-connection-alist`, otherwise look into PARAMS.
|
||||
Look `sql-connection-alist` (part of SQL mode) for how to define
|
||||
defined in `sql-connection-alist', otherwise look into PARAMS.
|
||||
See `sql-connection-alist' (part of SQL mode) for how to define
|
||||
database connections."
|
||||
(if (assq :dbconnection params)
|
||||
(let* ((dbconnection (cdr (assq :dbconnection params)))
|
||||
|
|
|
@ -179,9 +179,9 @@ This is a floating point number if the size is too large for an integer."
|
|||
Case is significant."
|
||||
(string< s1 s2)))
|
||||
|
||||
;; The time- functions below translate nil to `current-time` and
|
||||
;; accept an integer as of Emacs 25. `decode-time` and
|
||||
;; `format-time-string` accept nil on Emacs 24 but don't accept an
|
||||
;; The time- functions below translate nil to `current-time' and
|
||||
;; accept an integer as of Emacs 25. `decode-time' and
|
||||
;; `format-time-string' accept nil on Emacs 24 but don't accept an
|
||||
;; integer until Emacs 25.
|
||||
(if (< emacs-major-version 25)
|
||||
(let ((convert
|
||||
|
|
|
@ -3355,7 +3355,7 @@ Valid parameters are:
|
|||
(when (and backend (symbolp backend) (not (org-export-get-backend backend)))
|
||||
(user-error "Unknown :backend value"))
|
||||
(unless backend (require 'ox-org))
|
||||
;; When`:raw' property has a non-nil value, turn all objects back
|
||||
;; When `:raw' property has a non-nil value, turn all objects back
|
||||
;; into Org syntax.
|
||||
(when (and backend (plist-get params :raw))
|
||||
(org-element-map data org-element-all-objects
|
||||
|
|
|
@ -19654,7 +19654,7 @@ When BLOCK-REGEXP is non-nil, use this regexp to find blocks."
|
|||
;; Org still relies on `comment-dwim', but cannot trust
|
||||
;; `comment-only-p'. So, `comment-region-function' and
|
||||
;; `uncomment-region-function' both point
|
||||
;; to`org-comment-or-uncomment-region'. Eventually,
|
||||
;; to `org-comment-or-uncomment-region'. Eventually,
|
||||
;; `org-insert-comment' takes care of insertion of comments at the
|
||||
;; beginning of line.
|
||||
|
||||
|
|
|
@ -1304,7 +1304,7 @@ package name and for the version.")
|
|||
(regexp ,cperl--version-regexp)))
|
||||
,cperl--ws*-rx
|
||||
(group-n 3 (or ";" "{")))
|
||||
"A regular expression to collect package names for `imenu`.
|
||||
"A regular expression to collect package names for `imenu'.
|
||||
Catches \"package NAME;\", \"package NAME VERSION;\", \"package
|
||||
NAME BLOCK\" and \"package NAME VERSION BLOCK.\" Contains three
|
||||
groups: One for the keyword \"package\", one for the package
|
||||
|
@ -1345,7 +1345,7 @@ heading text.")
|
|||
`(or ,cperl--package-for-imenu-rx
|
||||
,cperl--sub-name-for-imenu-rx
|
||||
,cperl--pod-heading-rx)
|
||||
"A regular expression to collect stuff that goes into the `imenu` index.
|
||||
"A regular expression to collect stuff that goes into the `imenu' index.
|
||||
Covers packages, subroutines, and POD headings.")
|
||||
|
||||
;; end of eval-and-compiled stuff
|
||||
|
@ -5454,7 +5454,7 @@ indentation and initial hashes. Behaves usually outside of comment."
|
|||
(defvar cperl-imenu-pod-keywords '("=head"))
|
||||
|
||||
(defun cperl-imenu--create-perl-index ()
|
||||
"Implement `imenu-create-index-function` for CPerl mode.
|
||||
"Implement `imenu-create-index-function' for CPerl mode.
|
||||
This function relies on syntaxification to exclude lines which
|
||||
look like declarations but actually are part of a string, a
|
||||
comment, or POD."
|
||||
|
|
|
@ -883,7 +883,7 @@ there are no matches for variables."
|
|||
(secondary-xrefs nil)) ; other xrefs
|
||||
|
||||
(let ((temp elisp-xref-find-def-functions))
|
||||
;; FIXME: The `elisp-xref-find-def-functions` function interface does
|
||||
;; FIXME: The `elisp-xref-find-def-functions' function interface does
|
||||
;; not allow for namespace filtering so we tacitly assume they all match.
|
||||
(while (and (null xrefs)
|
||||
temp)
|
||||
|
|
|
@ -2444,7 +2444,7 @@ PREFER-ROMAN roman numbering is preferred over using letters."
|
|||
tab))
|
||||
|
||||
;; FIXME: At least the continuation may be folded into
|
||||
;; `newline-and-indent`. However, this may not be wanted by everyone so
|
||||
;; `newline-and-indent'. However, this may not be wanted by everyone so
|
||||
;; it should be possible to switch this off.
|
||||
(defun rst-insert-list (&optional prefer-roman)
|
||||
;; testcover: ok.
|
||||
|
@ -2915,7 +2915,7 @@ error if there is no working link at the given position."
|
|||
(pop-to-buffer (marker-buffer mrkr))
|
||||
(goto-char mrkr)
|
||||
;; FIXME: Should be a customizable number of lines from beginning or end of
|
||||
;; window just like the argument to `recenter`. It would be ideal if
|
||||
;; window just like the argument to `recenter'. It would be ideal if
|
||||
;; the adornment is always completely visible.
|
||||
(recenter 5)))
|
||||
|
||||
|
@ -2995,7 +2995,7 @@ burying it."
|
|||
(define-derived-mode rst-toc-mode special-mode "ReST-TOC"
|
||||
"Major mode for output from \\[rst-toc], the table-of-contents for the document.
|
||||
\\{rst-toc-mode-map}"
|
||||
;; FIXME: `revert-buffer-function` must be defined so `revert-buffer` works
|
||||
;; FIXME: `revert-buffer-function' must be defined so `revert-buffer' works
|
||||
;; as expected for a special mode. In particular the referred buffer
|
||||
;; needs to be rescanned and the TOC must be updated accordingly.
|
||||
;; FIXME: Should contain the name of the buffer this is the toc of.
|
||||
|
@ -3217,7 +3217,7 @@ Return a list of tabs sorted by likeliness to continue writing
|
|||
like `rst-line-tabs'. Nearer lines have generally a higher
|
||||
likeliness than farther lines. Return nil if no tab is found in
|
||||
the text above."
|
||||
;; FIXME: See test `indent-for-tab-command-BUGS`.
|
||||
;; FIXME: See test `indent-for-tab-command-BUGS'.
|
||||
(save-excursion
|
||||
(goto-char pt)
|
||||
(let (leftmost ; Leftmost column found so far.
|
||||
|
|
|
@ -515,7 +515,7 @@
|
|||
;;
|
||||
;; Turn on the mode used for editing the check in log. This
|
||||
;; defaults to `log-edit-mode'. If changed, it should use a mode
|
||||
;; derived from`log-edit-mode'.
|
||||
;; derived from `log-edit-mode'.
|
||||
;;
|
||||
;; - check-headers ()
|
||||
;;
|
||||
|
|
|
@ -56,10 +56,10 @@
|
|||
("key2" . "please: keep my space after colon"))))))
|
||||
|
||||
(defvar auth-source-pass--debug-log nil
|
||||
"Contains a list of all messages passed to `auth-source-do-debug`.")
|
||||
"Contains a list of all messages passed to `auth-source-do-debug'.")
|
||||
|
||||
(defun auth-source-pass--have-message-matching (regexp)
|
||||
"Return non-nil iff at least one `auth-source-do-debug` match REGEXP."
|
||||
"Return non-nil iff at least one `auth-source-do-debug' match REGEXP."
|
||||
(seq-find (lambda (message)
|
||||
(string-match regexp message))
|
||||
auth-source-pass--debug-log))
|
||||
|
@ -75,8 +75,8 @@ REGEXP is the same as in `auth-source-pass--have-message-matching'."
|
|||
(put #'auth-source-pass--have-message-matching 'ert-explainer #'auth-source-pass--explain--have-message-matching)
|
||||
|
||||
(defun auth-source-pass--debug (&rest msg)
|
||||
"Format MSG and add that to `auth-source-pass--debug-log`.
|
||||
This function is intended to be set to `auth-source-debug`."
|
||||
"Format MSG and add that to `auth-source-pass--debug-log'.
|
||||
This function is intended to be set to `auth-source-debug'."
|
||||
(add-to-list 'auth-source-pass--debug-log (apply #'format msg) t))
|
||||
|
||||
(defvar auth-source-pass--parse-log nil)
|
||||
|
|
|
@ -60,7 +60,7 @@
|
|||
(cl-defun flymake-tests--call-with-fixture (fn file
|
||||
&key (severity-predicate
|
||||
nil sev-pred-supplied-p))
|
||||
"Call FN after flymake setup in FILE, using `flymake-proc`.
|
||||
"Call FN after flymake setup in FILE, using `flymake-proc'.
|
||||
SEVERITY-PREDICATE is used to setup
|
||||
`flymake-proc-diagnostic-type-pred'"
|
||||
(let* ((file (expand-file-name file flymake-tests-data-directory))
|
||||
|
|
Loading…
Add table
Reference in a new issue