Don't quote nil and t in doc strings and comments
* test/src/minibuf-tests.el (test-try-completion-ignore-case): * test/lisp/url/url-auth-tests.el (url-auth-test-digest-auth-retrieve-cache): * test/lisp/subr-tests.el (subr-tests-add-hook-depth): * test/lisp/so-long-tests/so-long-tests.el (so-long-tests-invisible-buffer-function): * test/lisp/emacs-lisp/tabulated-list-test.el (tabulated-list-sort): * src/xfaces.c: * src/process.c (Finterrupt_process): (syms_of_process): * src/minibuf.c (Fread_from_minibuffer): (Fcompleting_read): (syms_of_minibuf): * src/dispnew.c (syms_of_display): * src/data.c: * lisp/so-long.el (so-long--hack-local-variables): * lisp/progmodes/elisp-mode.el (elisp--xref-find-definitions): (elisp--xref-find-definitions): * lisp/org/ox-html.el (org-html-htmlize-output-type): * lisp/org/org-agenda.el (org-agenda-do-in-region): * lisp/net/tramp.el: * lisp/minibuffer.el (set-minibuffer-message): * lisp/isearch.el (isearch-wrap-pause): (isearch-repeat-on-direction-change): * lisp/emacs-lisp/timer.el (timer): * lisp/emacs-lisp/package.el (package-read-archive-contents): * lisp/emacs-lisp/faceup.el (faceup-next-property-change): * lisp/emacs-lisp/comp.el (comp-func): * lisp/emacs-lisp/comp-cstr.el (comp-cstr-empty-p): * lisp/emacs-lisp/cl-macs.el (cl-do): (cl-do*): (cl--self-tco): * lisp/emacs-lisp/bytecomp.el (byte-compile-unresolved-functions): (byte-compile-cond-jump-table): Don't quote t and nil.
This commit is contained in:
parent
636e082e45
commit
85e9e5f616
24 changed files with 39 additions and 40 deletions
|
@ -551,7 +551,7 @@ has the form (autoload . FILENAME).")
|
|||
"Alist of undefined functions to which calls have been compiled.
|
||||
Each element in the list has the form (FUNCTION POSITION . CALLS)
|
||||
where CALLS is a list whose elements are integers (indicating the
|
||||
number of arguments passed in the function call) or the constant `t'
|
||||
number of arguments passed in the function call) or the constant t
|
||||
if the function is called indirectly.
|
||||
This variable is only significant whilst compiling an entire buffer.
|
||||
Used for warnings when a function is not known to be defined or is later
|
||||
|
@ -4417,7 +4417,7 @@ Return (TAIL VAR TEST CASES), where:
|
|||
(cases (nth 2 switch))
|
||||
jump-table test-objects body tag default-tag)
|
||||
;; TODO: Once :linear-search is implemented for `make-hash-table'
|
||||
;; set it to `t' for cond forms with a small number of cases.
|
||||
;; set it to t for cond forms with a small number of cases.
|
||||
(let ((nvalues (apply #'+ (mapcar (lambda (case) (length (car case)))
|
||||
cases))))
|
||||
(setq jump-table (make-hash-table
|
||||
|
@ -4446,7 +4446,7 @@ Return (TAIL VAR TEST CASES), where:
|
|||
(byte-compile-out 'byte-switch)
|
||||
|
||||
;; When the opcode argument is `byte-goto', `byte-compile-goto' sets
|
||||
;; `byte-compile-depth' to `nil'. However, we need `byte-compile-depth'
|
||||
;; `byte-compile-depth' to nil. However, we need `byte-compile-depth'
|
||||
;; to be non-nil for generating tags for all cases. Since
|
||||
;; `byte-compile-depth' will increase by at most 1 after compiling
|
||||
;; all of the clause (which is further enforced by cl-assert below)
|
||||
|
|
|
@ -1762,7 +1762,7 @@ Once the END-TEST becomes true, the RESULT forms are evaluated (with
|
|||
the VARs still bound to their values) to produce the result
|
||||
returned by `cl-do'.
|
||||
|
||||
Note that the entire loop is enclosed in an implicit `nil' block, so
|
||||
Note that the entire loop is enclosed in an implicit nil block, so
|
||||
that you can use `cl-return' to exit at any time.
|
||||
|
||||
Also note that END-TEST is checked before evaluating BODY. If END-TEST
|
||||
|
@ -1791,7 +1791,7 @@ Once the END-TEST becomes true, the RESULT forms are evaluated (with
|
|||
the VARs still bound to their values) to produce the result
|
||||
returned by `cl-do*'.
|
||||
|
||||
Note that the entire loop is enclosed in an implicit `nil' block, so
|
||||
Note that the entire loop is enclosed in an implicit nil block, so
|
||||
that you can use `cl-return' to exit at any time.
|
||||
|
||||
Also note that END-TEST is checked before evaluating BODY. If END-TEST
|
||||
|
@ -2071,7 +2071,7 @@ Like `cl-flet' but the definitions can refer to previous ones.
|
|||
;; even handle mutually recursive functions.
|
||||
(letrec
|
||||
((done nil) ;; Non-nil if some TCO happened.
|
||||
;; This var always holds the value `nil' until (just before) we
|
||||
;; This var always holds the value nil until (just before) we
|
||||
;; exit the loop.
|
||||
(retvar (make-symbol "retval"))
|
||||
(ofargs (mapcar (lambda (s) (if (memq s cl--lambda-list-keywords) s
|
||||
|
|
|
@ -134,7 +134,7 @@ Integer values are handled in the `range' slot.")
|
|||
:neg (neg cstr))))
|
||||
|
||||
(defsubst comp-cstr-empty-p (cstr)
|
||||
"Return t if CSTR is equivalent to the `nil' type specifier or nil otherwise."
|
||||
"Return t if CSTR is equivalent to the nil type specifier or nil otherwise."
|
||||
(with-comp-cstr-accessors
|
||||
(and (null (typeset cstr))
|
||||
(null (valset cstr))
|
||||
|
|
|
@ -901,8 +901,8 @@ non local exit (ends with an `unreachable' insn)."))
|
|||
(lap () :type list
|
||||
:documentation "LAP assembly representation.")
|
||||
(ssa-status nil :type symbol
|
||||
:documentation "SSA status either: 'nil', 'dirty' or 't'.
|
||||
Once in SSA form this *must* be set to 'dirty' every time the topology of the
|
||||
:documentation "SSA status either: nil, `dirty' or t.
|
||||
Once in SSA form this *must* be set to `dirty' every time the topology of the
|
||||
CFG is mutated by a pass.")
|
||||
(frame-size nil :type integer)
|
||||
(vframe-size 0 :type integer)
|
||||
|
|
|
@ -795,7 +795,7 @@ See `faceup-properties' for a list of tracked properties."
|
|||
nil
|
||||
(if (and (null pos)
|
||||
(faceup-has-any-text-property (point-min)))
|
||||
;; `pos' is `nil' and the character at `point-min' contains a
|
||||
;; `pos' is nil and the character at `point-min' contains a
|
||||
;; tracked property, return `point-min'.
|
||||
(point-min)
|
||||
(unless pos
|
||||
|
|
|
@ -1586,7 +1586,7 @@ If the archive version is too new, signal an error."
|
|||
(if package
|
||||
(package--add-to-archive-contents package archive)
|
||||
(lwarn '(package refresh) :warning
|
||||
"Ignoring `nil' package on `%s' package archive" archive))))))
|
||||
"Ignoring nil package on `%s' package archive" archive))))))
|
||||
|
||||
(defvar package--old-archive-priorities nil
|
||||
"Store currently used `package-archive-priorities'.
|
||||
|
|
|
@ -49,7 +49,7 @@
|
|||
function args ;What to do when triggered.
|
||||
idle-delay ;If non-nil, this is an idle-timer.
|
||||
psecs
|
||||
;; A timer may be created with `t' as the TIME, which means that we
|
||||
;; A timer may be created with t as the TIME, which means that we
|
||||
;; want to run at specific integral multiples of `repeat-delay'. We
|
||||
;; then have to recompute this (because the machine may have gone to
|
||||
;; sleep, etc).
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue