aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2015-05-21 10:04:45 -0700
committerPaul Eggert2015-05-21 10:06:44 -0700
commit96794d2f97cd064e4c2bf4f71459b42558cc8c79 (patch)
treeae2d3836af726636586f4ed21dbdfcb079715777
parentfc071bf7c6a300f52142b92cf99c5a0e63b3e235 (diff)
downloademacs-96794d2f97cd064e4c2bf4f71459b42558cc8c79.tar.gz
emacs-96794d2f97cd064e4c2bf4f71459b42558cc8c79.zip
Don't quote nil and t in doc strings
This is as per "Tips for Documentation Strings" in the elisp manual. For consistency, do the same in diagnostics and comments.
-rw-r--r--lisp/allout-widgets.el2
-rw-r--r--lisp/allout.el4
-rw-r--r--lisp/calc/calc-yank.el2
-rw-r--r--lisp/calc/calc.el2
-rw-r--r--lisp/calendar/diary-lib.el12
-rw-r--r--lisp/calendar/todo-mode.el2
-rw-r--r--lisp/cedet/ede/auto.el12
-rw-r--r--lisp/cedet/ede/files.el2
-rw-r--r--lisp/cus-edit.el2
-rw-r--r--lisp/dired-aux.el2
-rw-r--r--lisp/dired.el2
-rw-r--r--lisp/dirtrack.el2
-rw-r--r--lisp/emacs-lisp/bytecomp.el2
-rw-r--r--lisp/emacs-lisp/check-declare.el2
-rw-r--r--lisp/emacs-lisp/checkdoc.el4
-rw-r--r--lisp/emacs-lisp/cl-generic.el4
-rw-r--r--lisp/emacs-lisp/cl-indent.el6
-rw-r--r--lisp/emacs-lisp/debug.el2
-rw-r--r--lisp/emacs-lisp/edebug.el2
-rw-r--r--lisp/emacs-lisp/syntax.el2
-rw-r--r--lisp/emulation/viper-util.el2
-rw-r--r--lisp/erc/erc-ezbounce.el2
-rw-r--r--lisp/erc/erc-pcomplete.el2
-rw-r--r--lisp/eshell/esh-mode.el2
-rw-r--r--lisp/eshell/esh-util.el2
-rw-r--r--lisp/face-remap.el2
-rw-r--r--lisp/facemenu.el2
-rw-r--r--lisp/files.el6
-rw-r--r--lisp/gnus/deuglify.el2
-rw-r--r--lisp/gnus/gnus-cus.el2
-rw-r--r--lisp/gnus/gnus-sum.el2
-rw-r--r--lisp/gnus/message.el2
-rw-r--r--lisp/gnus/nndoc.el2
-rw-r--r--lisp/gnus/nnmaildir.el4
-rw-r--r--lisp/gnus/rfc2047.el2
-rw-r--r--lisp/ibuffer.el4
-rw-r--r--lisp/ielm.el2
-rw-r--r--lisp/info.el2
-rw-r--r--lisp/language/tv-util.el2
-rw-r--r--lisp/linum.el2
-rw-r--r--lisp/ls-lisp.el2
-rw-r--r--lisp/mail/mailalias.el2
-rw-r--r--lisp/mail/sendmail.el2
-rw-r--r--lisp/mail/uudecode.el2
-rw-r--r--lisp/net/ange-ftp.el2
-rw-r--r--lisp/net/dbus.el28
-rw-r--r--lisp/net/network-stream.el2
-rw-r--r--lisp/net/rcirc.el2
-rw-r--r--lisp/net/secrets.el4
-rw-r--r--lisp/net/tramp-adb.el4
-rw-r--r--lisp/net/tramp-compat.el4
-rw-r--r--lisp/net/tramp-gvfs.el2
-rw-r--r--lisp/net/tramp-sh.el12
-rw-r--r--lisp/net/tramp-smb.el4
-rw-r--r--lisp/net/tramp.el10
-rw-r--r--lisp/obsolete/xesam.el2
-rw-r--r--lisp/org/ob-ruby.el2
-rw-r--r--lisp/org/org-agenda.el2
-rw-r--r--lisp/org/org-capture.el2
-rw-r--r--lisp/org/org-gnus.el2
-rw-r--r--lisp/org/org-macs.el2
-rw-r--r--lisp/org/org-protocol.el2
-rw-r--r--lisp/org/org.el12
-rw-r--r--lisp/org/ox-odt.el4
-rw-r--r--lisp/org/ox-texinfo.el2
-rw-r--r--lisp/progmodes/ada-xref.el2
-rw-r--r--lisp/progmodes/cc-defs.el8
-rw-r--r--lisp/progmodes/cc-engine.el2
-rw-r--r--lisp/progmodes/cc-fonts.el4
-rw-r--r--lisp/progmodes/cc-guess.el4
-rw-r--r--lisp/progmodes/cperl-mode.el2
-rw-r--r--lisp/progmodes/idlw-shell.el2
-rw-r--r--lisp/progmodes/idlwave.el2
-rw-r--r--lisp/progmodes/python.el2
-rw-r--r--lisp/progmodes/ruby-mode.el2
-rw-r--r--lisp/ps-print.el4
-rw-r--r--lisp/ses.el6
-rw-r--r--lisp/simple.el8
-rw-r--r--lisp/textmodes/bibtex.el8
-rw-r--r--lisp/textmodes/ispell.el4
-rw-r--r--lisp/type-break.el2
-rw-r--r--lisp/vc/compare-w.el2
-rw-r--r--lisp/wid-edit.el2
-rw-r--r--lisp/widget.el2
-rw-r--r--lisp/window.el4
-rw-r--r--lisp/woman.el12
-rw-r--r--src/buffer.c2
-rw-r--r--src/font.c4
-rw-r--r--src/frame.c6
-rw-r--r--src/gnutls.c2
-rw-r--r--src/keymap.c4
-rw-r--r--src/nsfns.m6
-rw-r--r--src/w32fns.c4
-rw-r--r--src/xfns.c4
-rw-r--r--test/automated/data/package/newer-versions/simple-single-1.4.el2
-rw-r--r--test/automated/file-notify-tests.el2
-rw-r--r--test/automated/package-test.el2
97 files changed, 177 insertions, 177 deletions
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 164cd3192ac..3c71a810bfb 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -348,7 +348,7 @@ to `allout-body-modification-handler', and is always reset by
348images with lists containing the name of the icon directory (as 348images with lists containing the name of the icon directory (as
349found on the `load-path') and the icon name. 349found on the `load-path') and the icon name.
350 350
351Set this variable to `nil' to empty the cache, and have it replenish from the 351Set this variable to nil to empty the cache, and have it replenish from the
352filesystem.") 352filesystem.")
353;;;_ = allout-widgets-unset-inhibit-read-only 353;;;_ = allout-widgets-unset-inhibit-read-only
354(defvar allout-widgets-unset-inhibit-read-only nil 354(defvar allout-widgets-unset-inhibit-read-only nil
diff --git a/lisp/allout.el b/lisp/allout.el
index 2cdac99f90a..dcdd35eb488 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -322,7 +322,7 @@ With value nil, inhibit any automatic allout-mode activation."
322 "Default allout outline layout specification. 322 "Default allout outline layout specification.
323 323
324This setting specifies the outline exposure to use when 324This setting specifies the outline exposure to use when
325`allout-layout' has the local value `t'. This docstring describes the 325`allout-layout' has the local value t. This docstring describes the
326layout specifications. 326layout specifications.
327 327
328A list value specifies a default layout for the current buffer, 328A list value specifies a default layout for the current buffer,
@@ -933,7 +933,7 @@ followed by the equivalent of `(allout-expose-topic 0 : -1 -1 0)'.
933\(This is the layout used for the allout.el source file.) 933\(This is the layout used for the allout.el source file.)
934 934
935`allout-default-layout' describes the specification format. 935`allout-default-layout' describes the specification format.
936`allout-layout' can additionally have the value `t', in which 936`allout-layout' can additionally have the value t, in which
937case the value of `allout-default-layout' is used.") 937case the value of `allout-default-layout' is used.")
938(make-variable-buffer-local 'allout-layout) 938(make-variable-buffer-local 'allout-layout)
939;;;###autoload 939;;;###autoload
diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index 726a7202a8a..923df5d577f 100644
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
@@ -149,7 +149,7 @@ as well as set the contents of the Emacs register REGISTER to TEXT."
149 "Return the CALCVAL portion of the contents of the Calc register REG, 149 "Return the CALCVAL portion of the contents of the Calc register REG,
150unless the TEXT portion doesn't match the contents of the Emacs register REG, 150unless the TEXT portion doesn't match the contents of the Emacs register REG,
151in which case either return the contents of the Emacs register (if it is 151in which case either return the contents of the Emacs register (if it is
152text) or `nil'." 152text) or nil."
153 (let ((cval (cdr (assq reg calc-register-alist))) 153 (let ((cval (cdr (assq reg calc-register-alist)))
154 (val (cdr (assq reg register-alist)))) 154 (val (cdr (assq reg register-alist))))
155 (if (stringp val) 155 (if (stringp val)
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 1cc11b48ac3..52ed5d7eb3d 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2034,7 +2034,7 @@ See calc-keypad for details."
2034;; (YEAR MONTH DAY math-date-from-gregorian-dt(YEAR MONTH DAY)) for speed. 2034;; (YEAR MONTH DAY math-date-from-gregorian-dt(YEAR MONTH DAY)) for speed.
2035(defcustom calc-gregorian-switch nil 2035(defcustom calc-gregorian-switch nil
2036 "The first day the Gregorian calendar is used by Calc's date forms. 2036 "The first day the Gregorian calendar is used by Calc's date forms.
2037This is `nil' (the default) if the Gregorian calendar is the only one used. 2037This is nil (the default) if the Gregorian calendar is the only one used.
2038Otherwise, it should be a list `(YEAR MONTH DAY)' when Calc begins to use 2038Otherwise, it should be a list `(YEAR MONTH DAY)' when Calc begins to use
2039the Gregorian calendar; Calc will use the Julian calendar for earlier dates. 2039the Gregorian calendar; Calc will use the Julian calendar for earlier dates.
2040The dates in which different regions of the world began to use the 2040The dates in which different regions of the world began to use the
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 29364b55b6c..d5bd26a9277 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -104,9 +104,9 @@ are: `string', `symbol', `int', `tnil', `stringtnil.'"
104 (choice (const string :tag "A string") 104 (choice (const string :tag "A string")
105 (const symbol :tag "A symbol") 105 (const symbol :tag "A symbol")
106 (const int :tag "An integer") 106 (const int :tag "An integer")
107 (const tnil :tag "`t' or `nil'") 107 (const tnil :tag "t or nil")
108 (const stringtnil 108 (const stringtnil
109 :tag "A string, `t', or `nil'")))) 109 :tag "A string, t, or nil"))))
110 :group 'diary) 110 :group 'diary)
111 111
112(defcustom diary-glob-file-regexp-prefix "^\\#" 112(defcustom diary-glob-file-regexp-prefix "^\\#"
@@ -1671,7 +1671,7 @@ DAY MONTH YEAR in the European style).
1671 1671
1672 %%(diary-date MONTH DAY YEAR &optional MARK) text 1672 %%(diary-date MONTH DAY YEAR &optional MARK) text
1673 Entry applies if date is MONTH, DAY, YEAR. DAY, MONTH, and YEAR can 1673 Entry applies if date is MONTH, DAY, YEAR. DAY, MONTH, and YEAR can
1674 be a list of integers, `t' (meaning all values), or an integer. 1674 be a list of integers, t (meaning all values), or an integer.
1675 1675
1676 %%(diary-float MONTH DAYNAME N &optional DAY MARK) text 1676 %%(diary-float MONTH DAYNAME N &optional DAY MARK) text
1677 Entry will appear on the Nth DAYNAME after/before MONTH DAY. 1677 Entry will appear on the Nth DAYNAME after/before MONTH DAY.
@@ -1679,7 +1679,7 @@ DAY MONTH YEAR in the European style).
1679 If N>0, use the Nth DAYNAME after MONTH DAY. 1679 If N>0, use the Nth DAYNAME after MONTH DAY.
1680 If N<0, use the Nth DAYNAME before MONTH DAY. 1680 If N<0, use the Nth DAYNAME before MONTH DAY.
1681 DAY defaults to 1 if N>0, and MONTH's last day otherwise. 1681 DAY defaults to 1 if N>0, and MONTH's last day otherwise.
1682 MONTH can be a list of months, a single month, or `t' to 1682 MONTH can be a list of months, a single month, or t to
1683 specify all months. 1683 specify all months.
1684 1684
1685 %%(diary-block M1 D1 Y1 M2 D2 Y2 &optional MARK) text 1685 %%(diary-block M1 D1 Y1 M2 D2 Y2 &optional MARK) text
@@ -1814,7 +1814,7 @@ form used internally by the calendar and diary."
1814(defun diary-date (month day year &optional mark) 1814(defun diary-date (month day year &optional mark)
1815 "Specific date(s) diary entry. 1815 "Specific date(s) diary entry.
1816Entry applies if date is MONTH, DAY, YEAR. Each parameter can be a 1816Entry applies if date is MONTH, DAY, YEAR. Each parameter can be a
1817list of integers, `t' (meaning all values), or an integer. The order 1817list of integers, t (meaning all values), or an integer. The order
1818of the input parameters changes according to `calendar-date-style' 1818of the input parameters changes according to `calendar-date-style'
1819\(e.g. to DAY MONTH YEAR in the European style). 1819\(e.g. to DAY MONTH YEAR in the European style).
1820 1820
@@ -1863,7 +1863,7 @@ DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
1863If N>0, use the Nth DAYNAME after MONTH DAY. 1863If N>0, use the Nth DAYNAME after MONTH DAY.
1864If N<0, use the Nth DAYNAME before MONTH DAY. 1864If N<0, use the Nth DAYNAME before MONTH DAY.
1865DAY defaults to 1 if N>0, and MONTH's last day otherwise. 1865DAY defaults to 1 if N>0, and MONTH's last day otherwise.
1866MONTH can be a list of months, an integer, or `t' (meaning all months). 1866MONTH can be a list of months, an integer, or t (meaning all months).
1867Optional MARK specifies a face or single-character string to use when 1867Optional MARK specifies a face or single-character string to use when
1868highlighting the day in the calendar." 1868highlighting the day in the calendar."
1869 ;; This is messy because the diary entry may apply, but the date on which it 1869 ;; This is messy because the diary entry may apply, but the date on which it
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index bb9316c81d7..7369ec28c29 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -5443,7 +5443,7 @@ dynamically create item insertion commands.")
5443The list consists of item insertion parameters that can be passed 5443The list consists of item insertion parameters that can be passed
5444as insertion command arguments in fixed positions. If a position 5444as insertion command arguments in fixed positions. If a position
5445in the list is not occupied by the corresponding parameter, it is 5445in the list is not occupied by the corresponding parameter, it is
5446occupied by `nil'." 5446occupied by nil."
5447 (let* ((arg (list (car todo-insert-item--args))) 5447 (let* ((arg (list (car todo-insert-item--args)))
5448 (args (nconc (cdr todo-insert-item--args) 5448 (args (nconc (cdr todo-insert-item--args)
5449 (list (car (todo-insert-item--argsleft 5449 (list (car (todo-insert-item--argsleft
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index 7e8df6b89af..482632f294a 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -86,7 +86,7 @@ into memory.")
86 ;; If the thing to match is stored in a config file. 86 ;; If the thing to match is stored in a config file.
87 ((stringp fc) 87 ((stringp fc)
88 (when (file-exists-p fc) 88 (when (file-exists-p fc)
89 (let ((matchstring 89 (let ((matchstring
90 (if (slot-boundp dirmatch 'configdatastash) 90 (if (slot-boundp dirmatch 'configdatastash)
91 (oref dirmatch configdatastash) 91 (oref dirmatch configdatastash)
92 nil))) 92 nil)))
@@ -123,7 +123,7 @@ into memory.")
123 (not (= (match-end 0) (length file)))) 123 (not (= (match-end 0) (length file))))
124 ) 124 )
125 ))) 125 )))
126 126
127 ;; Add new matches here 127 ;; Add new matches here
128 ;; ((stringp somenewslot ...) 128 ;; ((stringp somenewslot ...)
129 ;; ) 129 ;; )
@@ -155,9 +155,9 @@ into memory.")
155Specifying this matcher object will allow EDE to perform a complex 155Specifying this matcher object will allow EDE to perform a complex
156check without loading the project. 156check without loading the project.
157 157
158NOTE: If you use dirmatch, you may need to set :root-only to `nil'. 158NOTE: If you use dirmatch, you may need to set :root-only to nil.
159While it may be a root based project, all subdirs will happen to return 159While it may be a root based project, all subdirs will happen to return
160true for the dirmatch, so for scanning purposes, set it to `nil'.") 160true for the dirmatch, so for scanning purposes, set it to nil.")
161 (proj-root :initarg :proj-root 161 (proj-root :initarg :proj-root
162 :type function 162 :type function
163 :documentation "A function symbol to call for the project root. 163 :documentation "A function symbol to call for the project root.
@@ -280,7 +280,7 @@ added. Possible values are:
280 (if f 280 (if f
281 (and f (file-exists-p f)) 281 (and f (file-exists-p f))
282 (let ((dirmatch (oref this proj-root-dirmatch))) 282 (let ((dirmatch (oref this proj-root-dirmatch)))
283 (cond 283 (cond
284 ((stringp dirmatch) 284 ((stringp dirmatch)
285 nil) ; <- do something here - maybe obsolete the option? 285 nil) ; <- do something here - maybe obsolete the option?
286 ((ede-project-autoload-dirmatch-p dirmatch) 286 ((ede-project-autoload-dirmatch-p dirmatch)
@@ -312,7 +312,7 @@ NOTE: Do not call this - it should only be called from `ede-load-project-file'."
312 312
313 313
314 314
315;;; -------- Old Methods 315;;; -------- Old Methods
316;; See if we can do without them. 316;; See if we can do without them.
317 317
318;; @FIXME - delete from loaddefs to remove this. 318;; @FIXME - delete from loaddefs to remove this.
diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index 1922337feb0..4ba823adeee 100644
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -41,7 +41,7 @@
41(declare-function ede-locate-flush-hash "ede/locate") 41(declare-function ede-locate-flush-hash "ede/locate")
42 42
43(defvar ede--disable-inode nil 43(defvar ede--disable-inode nil
44 "Set to 't' to simulate systems w/out inode support.") 44 "Set to t to simulate systems w/out inode support.")
45 45
46;;; Code: 46;;; Code:
47;;;###autoload 47;;;###autoload
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9f57d0da24a..1d9a9d6d426 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1965,7 +1965,7 @@ Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where
1965 1965
1966STATE is one of the following symbols: 1966STATE is one of the following symbols:
1967 1967
1968`nil' 1968nil
1969 For internal use, should never occur. 1969 For internal use, should never occur.
1970`unknown' 1970`unknown'
1971 For internal use, should never occur. 1971 For internal use, should never occur.
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 4dcb519b039..18a3c887aad 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2257,7 +2257,7 @@ of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well."
2257 ;; components are string-lessp. 2257 ;; components are string-lessp.
2258 ;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp. 2258 ;; Thus ("/usr/" "/usr/bin") and ("/usr/a/" "/usr/b/") are tree-lessp.
2259 ;; string-lessp could arguably be replaced by file-newer-than-file-p 2259 ;; string-lessp could arguably be replaced by file-newer-than-file-p
2260 ;; if dired-actual-switches contained `t'. 2260 ;; if dired-actual-switches contained t.
2261 (setq dir1 (file-name-as-directory dir1) 2261 (setq dir1 (file-name-as-directory dir1)
2262 dir2 (file-name-as-directory dir2)) 2262 dir2 (file-name-as-directory dir2))
2263 (let ((components-1 (dired-split "/" dir1)) 2263 (let ((components-1 (dired-split "/" dir1))
diff --git a/lisp/dired.el b/lisp/dired.el
index ca13900f681..e523b941295 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3889,7 +3889,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
3889 3889
3890;;; Start of automatically extracted autoloads. 3890;;; Start of automatically extracted autoloads.
3891 3891
3892;;;### (autoloads nil "dired-aux" "dired-aux.el" "8820677763cb69eef827e38b86d35f47") 3892;;;### (autoloads nil "dired-aux" "dired-aux.el" "45867cb96abef86d29a9850ee2113cf2")
3893;;; Generated autoloads from dired-aux.el 3893;;; Generated autoloads from dired-aux.el
3894 3894
3895(autoload 'dired-diff "dired-aux" "\ 3895(autoload 'dired-diff "dired-aux" "\
diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el
index d1957a259b1..d1c46dd8550 100644
--- a/lisp/dirtrack.el
+++ b/lisp/dirtrack.el
@@ -51,7 +51,7 @@
51;; which matches your prompt up to and including the pathname part. 51;; which matches your prompt up to and including the pathname part.
52;; The second is a number which tells which regular expression group to 52;; The second is a number which tells which regular expression group to
53;; match to extract only the pathname. If you use a multi-line prompt, 53;; match to extract only the pathname. If you use a multi-line prompt,
54;; add 't' as a third element. Note that some of the functions in 54;; add t as a third element. Note that some of the functions in
55;; 'comint.el' assume a single-line prompt (eg, comint-bol). 55;; 'comint.el' assume a single-line prompt (eg, comint-bol).
56;; 56;;
57;; Determining this information may take some experimentation. Using 57;; Determining this information may take some experimentation. Using
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 67744c69b14..efd43898b60 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -348,7 +348,7 @@ else the global value will be modified."
348;;;###autoload 348;;;###autoload
349(defun byte-compile-enable-warning (warning) 349(defun byte-compile-enable-warning (warning)
350 "Change `byte-compile-warnings' to enable WARNING. 350 "Change `byte-compile-warnings' to enable WARNING.
351If `byte-compile-warnings' is `t', do nothing. Otherwise, if the 351If `byte-compile-warnings' is t, do nothing. Otherwise, if the
352first element is `not', remove WARNING, else add it. 352first element is `not', remove WARNING, else add it.
353Normally you should let-bind `byte-compile-warnings' before calling this, 353Normally you should let-bind `byte-compile-warnings' before calling this,
354else the global value will be modified." 354else the global value will be modified."
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index 7269b83b619..ecdb6d8983c 100644
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -98,7 +98,7 @@ don't know how to recognize (e.g. some macros)."
98 (stringp (setq fnfile (nth 2 form))) 98 (stringp (setq fnfile (nth 2 form)))
99 (setq fnfile (check-declare-locate fnfile 99 (setq fnfile (check-declare-locate fnfile
100 (expand-file-name file))) 100 (expand-file-name file)))
101 ;; Use `t' to distinguish unspecified arglist from empty one. 101 ;; Use t to distinguish unspecified arglist from empty one.
102 (or (eq t (setq arglist (if (> len 3) 102 (or (eq t (setq arglist (if (> len 3)
103 (nth 3 form) 103 (nth 3 form)
104 t))) 104 t)))
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index fc257d0d520..18361c8888f 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1615,8 +1615,8 @@ function,command,variable,option or symbol." ms1))))))
1615 (or 1615 (or
1616 ;; * The documentation string for a variable that is a 1616 ;; * The documentation string for a variable that is a
1617 ;; yes-or-no flag should start with words such as Non-nil 1617 ;; yes-or-no flag should start with words such as Non-nil
1618 ;; means..., to make it clear that all non-`nil' values are 1618 ;; means..., to make it clear that all non-nil values are
1619 ;; equivalent and indicate explicitly what `nil' and non-`nil' 1619 ;; equivalent and indicate explicitly what nil and non-nil
1620 ;; mean. 1620 ;; mean.
1621 ;; * If a user option variable records a true-or-false 1621 ;; * If a user option variable records a true-or-false
1622 ;; condition, give it a name that ends in `-flag'. 1622 ;; condition, give it a name that ends in `-flag'.
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index a2716ef87ee..13585bcaf18 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -525,7 +525,7 @@ which case this method will be invoked when the argument is `eql' to VAL.
525 (progn 525 (progn
526 (while (and dispatches 526 (while (and dispatches
527 (let ((x (nth 1 (car dispatches)))) 527 (let ((x (nth 1 (car dispatches))))
528 ;; No need to dispatch for `t' specializers. 528 ;; No need to dispatch for t specializers.
529 (or (null x) (equal x cl--generic-t-generalizer)))) 529 (or (null x) (equal x cl--generic-t-generalizer))))
530 (setq dispatches (cdr dispatches))) 530 (setq dispatches (cdr dispatches)))
531 (pop dispatches)))) 531 (pop dispatches))))
@@ -701,7 +701,7 @@ methods.")
701 #'cl--generic-standard-method-combination) 701 #'cl--generic-standard-method-combination)
702 702
703(cl-defmethod cl-generic-generalizers (specializer) 703(cl-defmethod cl-generic-generalizers (specializer)
704 "Support for the catch-all `t' specializer." 704 "Support for the catch-all t specializer."
705 (if (eq specializer t) (list cl--generic-t-generalizer) 705 (if (eq specializer t) (list cl--generic-t-generalizer)
706 (error "Unknown specializer %S" specializer))) 706 (error "Unknown specializer %S" specializer)))
707 707
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 5e75406cf22..57da7159d5c 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -140,13 +140,13 @@ If non-nil, alignment is done with the first parameter
140 140
141(defcustom lisp-indent-backquote-substitution-mode t 141(defcustom lisp-indent-backquote-substitution-mode t
142 "How to indent substitutions in backquotes. 142 "How to indent substitutions in backquotes.
143If `t', the default, indent substituted forms normally. 143If t, the default, indent substituted forms normally.
144If `nil', do not apply special indentation rule to substituted 144If nil, do not apply special indentation rule to substituted
145forms. If `corrected', subtract the `,' or `,@' from the form 145forms. If `corrected', subtract the `,' or `,@' from the form
146column, indenting as if this character sequence were not present. 146column, indenting as if this character sequence were not present.
147In any case, do not backtrack beyond a backquote substitution. 147In any case, do not backtrack beyond a backquote substitution.
148 148
149Until Emacs 25.1, the `nil' behavior was hard-wired." 149Until Emacs 25.1, the nil behavior was hard-wired."
150 :version "25.1" 150 :version "25.1"
151 :type '(choice (const corrected) (const nil) (const t)) 151 :type '(choice (const corrected) (const nil) (const t))
152 :group 'lisp-indent) 152 :group 'lisp-indent)
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 9d32ba241de..77d6332feee 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -54,7 +54,7 @@ the middle is discarded, and just the beginning and end are displayed."
54The value affects the behavior of operations on any window 54The value affects the behavior of operations on any window
55previously showing the debugger buffer. 55previously showing the debugger buffer.
56 56
57`nil' means that if its window is not deleted when exiting the 57nil means that if its window is not deleted when exiting the
58 debugger, invoking `switch-to-prev-buffer' will usually show 58 debugger, invoking `switch-to-prev-buffer' will usually show
59 the debugger buffer again. 59 the debugger buffer again.
60 60
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 98fb7e9888c..b5da3cc2174 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -600,7 +600,7 @@ list of a symbol.")
600(defun edebug-get-form-data-entry (pnt &optional end-point) 600(defun edebug-get-form-data-entry (pnt &optional end-point)
601 ;; Find the edebug form data entry which is closest to PNT. 601 ;; Find the edebug form data entry which is closest to PNT.
602 ;; If END-POINT is supplied, match must be exact. 602 ;; If END-POINT is supplied, match must be exact.
603 ;; Return `nil' if none found. 603 ;; Return nil if none found.
604 (let ((rest edebug-form-data) 604 (let ((rest edebug-form-data)
605 closest-entry 605 closest-entry
606 (closest-dist 999999)) ;; Need maxint here. 606 (closest-dist 999999)) ;; Need maxint here.
diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el
index 81ef7a6fbf3..05dd7d57503 100644
--- a/lisp/emacs-lisp/syntax.el
+++ b/lisp/emacs-lisp/syntax.el
@@ -574,7 +574,7 @@ running the hook."
574 574
575;; (defun buffer-syntactic-context (&optional buffer) 575;; (defun buffer-syntactic-context (&optional buffer)
576;; "Syntactic context at point in BUFFER. 576;; "Syntactic context at point in BUFFER.
577;; Either of `string', `comment' or `nil'. 577;; Either of `string', `comment' or nil.
578;; This is an XEmacs compatibility function." 578;; This is an XEmacs compatibility function."
579;; (with-current-buffer (or buffer (current-buffer)) 579;; (with-current-buffer (or buffer (current-buffer))
580;; (syntax-ppss-context (syntax-ppss)))) 580;; (syntax-ppss-context (syntax-ppss))))
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 59f47525e55..c4dc569efb3 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1301,7 +1301,7 @@ Usually contains ` ', linefeed, TAB or formfeed.")
1301 )) 1301 ))
1302 1302
1303;; SYMBOL is used because customize requires it, but it is ignored, unless it 1303;; SYMBOL is used because customize requires it, but it is ignored, unless it
1304;; is `nil'. If nil, use setq. 1304;; is nil. If nil, use setq.
1305(defun viper-set-syntax-preference (&optional symbol value) 1305(defun viper-set-syntax-preference (&optional symbol value)
1306 "Set Viper syntax preference. 1306 "Set Viper syntax preference.
1307If called interactively or if SYMBOL is nil, sets syntax preference in current 1307If called interactively or if SYMBOL is nil, sets syntax preference in current
diff --git a/lisp/erc/erc-ezbounce.el b/lisp/erc/erc-ezbounce.el
index 5f91be8c899..de2a2ff6e76 100644
--- a/lisp/erc/erc-ezbounce.el
+++ b/lisp/erc/erc-ezbounce.el
@@ -78,7 +78,7 @@ The alist's format is as follows:
78(defun erc-ezb-get-login (server port) 78(defun erc-ezb-get-login (server port)
79 "Return an appropriate EZBounce login for SERVER and PORT. 79 "Return an appropriate EZBounce login for SERVER and PORT.
80Look up entries in `erc-ezb-login-alist'. If the username or password 80Look up entries in `erc-ezb-login-alist'. If the username or password
81in the alist is `nil', prompt for the appropriate values." 81in the alist is nil, prompt for the appropriate values."
82 (let ((login (cdr (assoc (cons server port) erc-ezb-login-alist)))) 82 (let ((login (cdr (assoc (cons server port) erc-ezb-login-alist))))
83 (when login 83 (when login
84 (let ((username (car login)) 84 (let ((username (car login))
diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el
index 7f901edfb8f..e46ac68b259 100644
--- a/lisp/erc/erc-pcomplete.el
+++ b/lisp/erc/erc-pcomplete.el
@@ -33,7 +33,7 @@
33;; 33;;
34;; If you want nickname completions ordered such that the most recent 34;; If you want nickname completions ordered such that the most recent
35;; speakers are listed first, set 35;; speakers are listed first, set
36;; `erc-pcomplete-order-nickname-completions' to `t'. 36;; `erc-pcomplete-order-nickname-completions' to t.
37;; 37;;
38;; See CREDITS for other contributors. 38;; See CREDITS for other contributors.
39;; 39;;
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 222e801301b..0dac4780690 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -206,7 +206,7 @@ This is used by `eshell-watch-for-password-prompt'."
206 206
207;; Internal Variables: 207;; Internal Variables:
208 208
209;; these are only set to `nil' initially for the sake of the 209;; these are only set to nil initially for the sake of the
210;; byte-compiler, when compiling other files which `require' this one 210;; byte-compiler, when compiling other files which `require' this one
211(defvar eshell-mode nil) 211(defvar eshell-mode nil)
212(defvar eshell-mode-map nil) 212(defvar eshell-mode-map nil)
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index 697f97e0460..170779fc5cd 100644
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -33,7 +33,7 @@
33;;; User Variables: 33;;; User Variables:
34 34
35(defcustom eshell-stringify-t t 35(defcustom eshell-stringify-t t
36 "If non-nil, the string representation of t is 't'. 36 "If non-nil, the string representation of t is \"t\".
37If nil, t will be represented only in the exit code of the function, 37If nil, t will be represented only in the exit code of the function,
38and not printed as a string. This causes Lisp functions to behave 38and not printed as a string. This causes Lisp functions to behave
39similarly to external commands, as far as successful result output." 39similarly to external commands, as far as successful result output."
diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index 3ec074b5599..93eec5bd13c 100644
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -187,7 +187,7 @@ of face attribute/value pairs, like in a `face' text property.
187 187
188If SPECS is empty, call `face-remap-reset-base' to use the normal 188If SPECS is empty, call `face-remap-reset-base' to use the normal
189definition of FACE as the base remapping; note that this is 189definition of FACE as the base remapping; note that this is
190different from SPECS containing a single value `nil', which means 190different from SPECS containing a single value nil, which means
191not to inherit from the global definition of FACE at all." 191not to inherit from the global definition of FACE at all."
192 (while (and (consp specs) (not (null (car specs))) (null (cdr specs))) 192 (while (and (consp specs) (not (null (car specs))) (null (cdr specs)))
193 (setq specs (car specs))) 193 (setq specs (car specs)))
diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 2c246b44d54..3d5894309df 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -458,7 +458,7 @@ These special properties include `invisible', `intangible' and `read-only'."
458 458
459(defcustom list-colors-sort nil 459(defcustom list-colors-sort nil
460 "Color sort order for `list-colors-display'. 460 "Color sort order for `list-colors-display'.
461`nil' means default implementation-dependent order (defined in `x-colors'). 461nil means default implementation-dependent order (defined in `x-colors').
462`name' sorts by color name. 462`name' sorts by color name.
463`rgb' sorts by red, green, blue components. 463`rgb' sorts by red, green, blue components.
464`(rgb-dist . COLOR)' sorts by the RGB distance to the specified color. 464`(rgb-dist . COLOR)' sorts by the RGB distance to the specified color.
diff --git a/lisp/files.el b/lisp/files.el
index ef6ac7b8c92..d82ff5e865f 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1092,14 +1092,14 @@ Tip: You can use this expansion of remote identifier components
1092 1092
1093(defcustom remote-file-name-inhibit-cache 10 1093(defcustom remote-file-name-inhibit-cache 10
1094 "Whether to use the remote file-name cache for read access. 1094 "Whether to use the remote file-name cache for read access.
1095When `nil', never expire cached values (caution) 1095When nil, never expire cached values (caution)
1096When `t', never use the cache (safe, but may be slow) 1096When t, never use the cache (safe, but may be slow)
1097A number means use cached values for that amount of seconds since caching. 1097A number means use cached values for that amount of seconds since caching.
1098 1098
1099The attributes of remote files are cached for better performance. 1099The attributes of remote files are cached for better performance.
1100If they are changed outside of Emacs's control, the cached values 1100If they are changed outside of Emacs's control, the cached values
1101become invalid, and must be reread. If you are sure that nothing 1101become invalid, and must be reread. If you are sure that nothing
1102other than Emacs changes the files, you can set this variable to `nil'. 1102other than Emacs changes the files, you can set this variable to nil.
1103 1103
1104If a remote file is checked regularly, it might be a good idea to 1104If a remote file is checked regularly, it might be a good idea to
1105let-bind this variable to a value less than the interval between 1105let-bind this variable to a value less than the interval between
diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el
index df54f74e4ef..b2a725b5402 100644
--- a/lisp/gnus/deuglify.el
+++ b/lisp/gnus/deuglify.el
@@ -78,7 +78,7 @@
78;; `gnus-outlook-deuglify-unwrap-stop-chars'. Setting this to ".?!" 78;; `gnus-outlook-deuglify-unwrap-stop-chars'. Setting this to ".?!"
79;; inhibits unwrapping if the cited line ends with a full stop, 79;; inhibits unwrapping if the cited line ends with a full stop,
80;; question mark or exclamation mark. Note that this variable 80;; question mark or exclamation mark. Note that this variable
81;; defaults to `nil', triggering a few false positives but generally 81;; defaults to nil, triggering a few false positives but generally
82;; giving you better results. 82;; giving you better results.
83;; 83;;
84;; Unwrapping works on every level of citation. Thus you will be able 84;; Unwrapping works on every level of citation. Thus you will be able
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index 9271322f4ab..93b7a1ba635 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -272,7 +272,7 @@ DOC is a documentation string for the parameter.")
272 (repeat (list (string :format "%v" :tag "File name")))) 272 (repeat (list (string :format "%v" :tag "File name"))))
273 "Which score files to use when using score to select articles to fetch. 273 "Which score files to use when using score to select articles to fetch.
274 274
275 `nil' 275 nil
276 All articles will be scored to zero (0). 276 All articles will be scored to zero (0).
277 277
278 `file' 278 `file'
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 1d8ad8e6acb..37a707ebe64 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -4376,7 +4376,7 @@ Returns HEADER if it was entered in the DEPENDENCIES. Returns nil otherwise."
4376 ;; The last case ignores an existing entry, except it adds any 4376 ;; The last case ignores an existing entry, except it adds any
4377 ;; additional Xrefs (in case the two articles came from different 4377 ;; additional Xrefs (in case the two articles came from different
4378 ;; servers. 4378 ;; servers.
4379 ;; Also sets `header' to `nil' meaning that the `dependencies' 4379 ;; Also sets `header' to nil meaning that the `dependencies'
4380 ;; table was *not* modified. 4380 ;; table was *not* modified.
4381 (t 4381 (t
4382 (mail-header-set-xref 4382 (mail-header-set-xref
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8bb0a78a446..9e813e6dfd1 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1123,7 +1123,7 @@ e.g. using `gnus-posting-styles':
1123 1123
1124(defcustom message-cite-style nil 1124(defcustom message-cite-style nil
1125 "*The overall style to be used when yanking cited text. 1125 "*The overall style to be used when yanking cited text.
1126Value is either `nil' (no variable overrides) or a let-style list 1126Value is either nil (no variable overrides) or a let-style list
1127of pairs (VARIABLE VALUE) that will be bound in 1127of pairs (VARIABLE VALUE) that will be bound in
1128`message-yank-original' to do the quoting. 1128`message-yank-original' to do the quoting.
1129 1129
diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el
index c62697b6939..70d803faf54 100644
--- a/lisp/gnus/nndoc.el
+++ b/lisp/gnus/nndoc.el
@@ -199,7 +199,7 @@ from the document.")
199;; lines in the body. For MIME dissections only, ARTICLE-INSERT [5] and 199;; lines in the body. For MIME dissections only, ARTICLE-INSERT [5] and
200;; SUMMARY-INSERT [6] give headers to insert for full article or summary line 200;; SUMMARY-INSERT [6] give headers to insert for full article or summary line
201;; generation, respectively. Other headers usually follow directly from the 201;; generation, respectively. Other headers usually follow directly from the
202;; buffer. Value `nil' means no insert. 202;; buffer. Value nil means no insert.
203(defvoo nndoc-dissection-alist nil) 203(defvoo nndoc-dissection-alist nil)
204(defvoo nndoc-prepare-body-function nil) 204(defvoo nndoc-prepare-body-function nil)
205(defvoo nndoc-generate-head-function nil) 205(defvoo nndoc-generate-head-function nil)
diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el
index 21fa5b37aa4..da3d5460c2b 100644
--- a/lisp/gnus/nnmaildir.el
+++ b/lisp/gnus/nnmaildir.el
@@ -84,13 +84,13 @@ Some of the FLAGS correspond to Gnus marks.")
84 84
85(defsubst nnmaildir--mark-to-flag (mark) 85(defsubst nnmaildir--mark-to-flag (mark)
86 "Find the Maildir flag that corresponds to MARK (an atom). 86 "Find the Maildir flag that corresponds to MARK (an atom).
87Return a character, or `nil' if not found. 87Return a character, or nil if not found.
88See `nnmaildir-flag-mark-mapping'." 88See `nnmaildir-flag-mark-mapping'."
89 (car (rassq mark nnmaildir-flag-mark-mapping))) 89 (car (rassq mark nnmaildir-flag-mark-mapping)))
90 90
91(defsubst nnmaildir--flag-to-mark (flag) 91(defsubst nnmaildir--flag-to-mark (flag)
92 "Find the Gnus mark that corresponds to FLAG (a character). 92 "Find the Gnus mark that corresponds to FLAG (a character).
93Return an atom, or `nil' if not found. 93Return an atom, or nil if not found.
94See `nnmaildir-flag-mark-mapping'." 94See `nnmaildir-flag-mark-mapping'."
95 (cdr (assq flag nnmaildir-flag-mark-mapping))) 95 (cdr (assq flag nnmaildir-flag-mark-mapping)))
96 96
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index b2520b26af9..ea558d75a20 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -1136,7 +1136,7 @@ other than `\"' and `\\' in quoted strings."
1136 ;; `decode-coding-string' in Emacs offers a third optional 1136 ;; `decode-coding-string' in Emacs offers a third optional
1137 ;; arg NOCOPY to avoid consing a new string if the decoding 1137 ;; arg NOCOPY to avoid consing a new string if the decoding
1138 ;; is "trivial". Unfortunately it currently doesn't 1138 ;; is "trivial". Unfortunately it currently doesn't
1139 ;; consider anything else than a `nil' coding system 1139 ;; consider anything else than a nil coding system
1140 ;; trivial. 1140 ;; trivial.
1141 ;; `rfc2047-decode-string' is called multiple times for each 1141 ;; `rfc2047-decode-string' is called multiple times for each
1142 ;; article during summary buffer generation, and we really 1142 ;; article during summary buffer generation, and we really
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index f15e150f5d4..c426976b29c 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1908,9 +1908,9 @@ the buffer object itself and the current mark symbol."
1908 ;; Kill the line if the buffer is dead 1908 ;; Kill the line if the buffer is dead
1909 'kill))) 1909 'kill)))
1910 ;; A given mapping function should return: 1910 ;; A given mapping function should return:
1911 ;; `nil' if it chose not to affect the buffer 1911 ;; nil if it chose not to affect the buffer
1912 ;; `kill' means the remove line from the buffer list 1912 ;; `kill' means the remove line from the buffer list
1913 ;; `t' otherwise 1913 ;; t otherwise
1914 (cl-incf ibuffer-map-lines-total) 1914 (cl-incf ibuffer-map-lines-total)
1915 (cond ((null result) 1915 (cond ((null result)
1916 (forward-line 1)) 1916 (forward-line 1))
diff --git a/lisp/ielm.el b/lisp/ielm.el
index be877eb250a..3c9908ac362 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -511,7 +511,7 @@ evaluations respectively. If the working buffer is another IELM
511buffer, then the values in the working buffer are used. The variables 511buffer, then the values in the working buffer are used. The variables
512`*1', `*2' and `*3', yield the process buffer values. 512`*1', `*2' and `*3', yield the process buffer values.
513 513
514If, at the start of evaluation, `standard-output' is `t' (the 514If, at the start of evaluation, `standard-output' is t (the
515default), `standard-output' is set to a special function that 515default), `standard-output' is set to a special function that
516causes output to be directed to the ielm buffer. 516causes output to be directed to the ielm buffer.
517`standard-output' is restored after evaluation unless explicitly 517`standard-output' is restored after evaluation unless explicitly
diff --git a/lisp/info.el b/lisp/info.el
index 05574ae11f5..d63581911c5 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -303,7 +303,7 @@ when you hit the end of the current node."
303 "If non-nil, hide the tag and section reference in *note and * menu items. 303 "If non-nil, hide the tag and section reference in *note and * menu items.
304If value is non-nil but not `hide', also replaces the \"*note\" with \"see\". 304If value is non-nil but not `hide', also replaces the \"*note\" with \"see\".
305If value is non-nil but not t or `hide', the reference section is still shown. 305If value is non-nil but not t or `hide', the reference section is still shown.
306`nil' completely disables this feature. If this is non-nil, you might 306nil completely disables this feature. If this is non-nil, you might
307want to set `Info-refill-paragraphs'." 307want to set `Info-refill-paragraphs'."
308 :version "22.1" 308 :version "22.1"
309 :type '(choice (const :tag "No hiding" nil) 309 :type '(choice (const :tag "No hiding" nil)
diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el
index 400856d1aa3..ba1ee668825 100644
--- a/lisp/language/tv-util.el
+++ b/lisp/language/tv-util.el
@@ -34,7 +34,7 @@
34 (combining-vowel . "ꪴꪰꪲꪳꪷꪸꪾ") 34 (combining-vowel . "ꪴꪰꪲꪳꪷꪸꪾ")
35 (combining-tone . "꪿꫁") 35 (combining-tone . "꪿꫁")
36 (misc . "-")))) 36 (misc . "-"))))
37 ;; Set all TaiViet characters to `t'. 37 ;; Set all TaiViet characters to t.
38 (set-char-table-range table (cons #xaa80 #xaac2) t) 38 (set-char-table-range table (cons #xaa80 #xaac2) t)
39 (set-char-table-range table (cons #xaadb #xaadf) t) 39 (set-char-table-range table (cons #xaadb #xaadf) t)
40 ;; Overwrite it for special characters. 40 ;; Overwrite it for special characters.
diff --git a/lisp/linum.el b/lisp/linum.el
index 2aac13ab9b0..7b6a3ea4e42 100644
--- a/lisp/linum.el
+++ b/lisp/linum.el
@@ -62,7 +62,7 @@ See also `linum-before-numbering-hook'."
62 62
63(defcustom linum-eager t 63(defcustom linum-eager t
64 "Whether line numbers should be updated after each command. 64 "Whether line numbers should be updated after each command.
65The conservative setting `nil' might miss some buffer changes, 65The conservative setting nil might miss some buffer changes,
66and you have to scroll or press \\[recenter-top-bottom] to update the numbers." 66and you have to scroll or press \\[recenter-top-bottom] to update the numbers."
67 :group 'linum 67 :group 'linum
68 :type 'boolean) 68 :type 'boolean)
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index c3d5705531e..0ddae24d577 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -669,7 +669,7 @@ SWITCHES is a list of characters. Default sorting is alphabetic."
669 )))) 669 ))))
670 ;; Finally reverse file alist if necessary. 670 ;; Finally reverse file alist if necessary.
671 ;; (eq below MUST compare `(not (memq ...))' to force comparison of 671 ;; (eq below MUST compare `(not (memq ...))' to force comparison of
672 ;; `t' or `nil', rather than list tails!) 672 ;; t or nil, rather than list tails!)
673 (if (eq (eq (not (memq ?U switches)) ; unsorted order is reversed 673 (if (eq (eq (not (memq ?U switches)) ; unsorted order is reversed
674 (not (memq ?r switches))) ; reversed sort order requested 674 (not (memq ?r switches))) ; reversed sort order requested
675 ls-lisp-dirs-first) ; already reversed 675 ls-lisp-dirs-first) ; already reversed
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 48329167bf1..577cec0fd86 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -77,7 +77,7 @@ If not on matching header, `mail-complete-function' gets called instead."
77;;;###autoload 77;;;###autoload
78(defcustom mail-complete-style 'angles 78(defcustom mail-complete-style 'angles
79 "Specifies how \\[mail-complete] formats the full name when it completes. 79 "Specifies how \\[mail-complete] formats the full name when it completes.
80If `nil', they contain just the return address like: 80If nil, they contain just the return address like:
81 king@grassland.com 81 king@grassland.com
82If `parens', they look like: 82If `parens', they look like:
83 king@grassland.com (Elvis Parsley) 83 king@grassland.com (Elvis Parsley)
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9fa7aa5a6f2..ddd8697dcd6 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -58,7 +58,7 @@
58(defcustom mail-from-style 'default 58(defcustom mail-from-style 'default
59 "Specifies how \"From:\" fields look. 59 "Specifies how \"From:\" fields look.
60 60
61If `nil', they contain just the return address like: 61If nil, they contain just the return address like:
62 king@grassland.com 62 king@grassland.com
63If `parens', they look like: 63If `parens', they look like:
64 king@grassland.com (Elvis Parsley) 64 king@grassland.com (Elvis Parsley)
diff --git a/lisp/mail/uudecode.el b/lisp/mail/uudecode.el
index 419aefbdad0..c1e3439a5de 100644
--- a/lisp/mail/uudecode.el
+++ b/lisp/mail/uudecode.el
@@ -102,7 +102,7 @@ used is specified by `uudecode-decoder-program'."
102 (let ((cdir default-directory) 102 (let ((cdir default-directory)
103 (default-process-coding-system 103 (default-process-coding-system
104 (if (featurep 'xemacs) 104 (if (featurep 'xemacs)
105 ;; In XEmacs, `nil' is not a valid coding system. 105 ;; In XEmacs, nil is not a valid coding system.
106 '(binary . binary) 106 '(binary . binary)
107 nil))) 107 nil)))
108 (unwind-protect 108 (unwind-protect
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 52153ad8322..1f893a72f8e 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -193,7 +193,7 @@
193;; 193;;
194;; "^$*$ *" 194;; "^$*$ *"
195;; 195;;
196;; 9) Set the variable ange-ftp-gateway-program-interactive to 't' to let 196;; 9) Set the variable ange-ftp-gateway-program-interactive to t to let
197;; ange-ftp know that it has to "hand-hold" the login to the gateway 197;; ange-ftp know that it has to "hand-hold" the login to the gateway
198;; machine. 198;; machine.
199;; 199;;
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 474a48ff276..8f7754137cb 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -813,7 +813,7 @@ discovering the still incomplete interface."
813 "Unregister OBJECT from D-Bus. 813 "Unregister OBJECT from D-Bus.
814OBJECT must be the result of a preceding `dbus-register-method', 814OBJECT must be the result of a preceding `dbus-register-method',
815`dbus-register-property' or `dbus-register-signal' call. It 815`dbus-register-property' or `dbus-register-signal' call. It
816returns `t' if OBJECT has been unregistered, `nil' otherwise. 816returns t if OBJECT has been unregistered, nil otherwise.
817 817
818When OBJECT identifies the last method or property, which is 818When OBJECT identifies the last method or property, which is
819registered for the respective service, Emacs releases its 819registered for the respective service, Emacs releases its
@@ -1092,7 +1092,7 @@ well formed."
1092(defun dbus-list-activatable-names (&optional bus) 1092(defun dbus-list-activatable-names (&optional bus)
1093 "Return the D-Bus service names which can be activated as list. 1093 "Return the D-Bus service names which can be activated as list.
1094If BUS is left nil, `:system' is assumed. The result is a list 1094If BUS is left nil, `:system' is assumed. The result is a list
1095of strings, which is `nil' when there are no activatable service 1095of strings, which is nil when there are no activatable service
1096names at all." 1096names at all."
1097 (dbus-ignore-errors 1097 (dbus-ignore-errors
1098 (dbus-call-method 1098 (dbus-call-method
@@ -1101,7 +1101,7 @@ names at all."
1101 1101
1102(defun dbus-list-names (bus) 1102(defun dbus-list-names (bus)
1103 "Return the service names registered at D-Bus BUS. 1103 "Return the service names registered at D-Bus BUS.
1104The result is a list of strings, which is `nil' when there are no 1104The result is a list of strings, which is nil when there are no
1105registered service names at all. Well known names are strings 1105registered service names at all. Well known names are strings
1106like \"org.freedesktop.DBus\". Names starting with \":\" are 1106like \"org.freedesktop.DBus\". Names starting with \":\" are
1107unique names for services." 1107unique names for services."
@@ -1119,7 +1119,7 @@ A service has a known name if it doesn't start with \":\"."
1119 1119
1120(defun dbus-list-queued-owners (bus service) 1120(defun dbus-list-queued-owners (bus service)
1121 "Return the unique names registered at D-Bus BUS and queued for SERVICE. 1121 "Return the unique names registered at D-Bus BUS and queued for SERVICE.
1122The result is a list of strings, or `nil' when there are no 1122The result is a list of strings, or nil when there are no
1123queued name owners service names at all." 1123queued name owners service names at all."
1124 (dbus-ignore-errors 1124 (dbus-ignore-errors
1125 (dbus-call-method 1125 (dbus-call-method
@@ -1128,7 +1128,7 @@ queued name owners service names at all."
1128 1128
1129(defun dbus-get-name-owner (bus service) 1129(defun dbus-get-name-owner (bus service)
1130 "Return the name owner of SERVICE registered at D-Bus BUS. 1130 "Return the name owner of SERVICE registered at D-Bus BUS.
1131The result is either a string, or `nil' if there is no name owner." 1131The result is either a string, or nil if there is no name owner."
1132 (dbus-ignore-errors 1132 (dbus-ignore-errors
1133 (dbus-call-method 1133 (dbus-call-method
1134 bus dbus-service-dbus dbus-path-dbus 1134 bus dbus-service-dbus dbus-path-dbus
@@ -1145,7 +1145,7 @@ apply
1145 1145
1146 \(member service \(dbus-list-known-names bus))" 1146 \(member service \(dbus-list-known-names bus))"
1147 ;; "Ping" raises a D-Bus error if SERVICE does not exist. 1147 ;; "Ping" raises a D-Bus error if SERVICE does not exist.
1148 ;; Otherwise, it returns silently with `nil'. 1148 ;; Otherwise, it returns silently with nil.
1149 (condition-case nil 1149 (condition-case nil
1150 (not 1150 (not
1151 (if (natnump timeout) 1151 (if (natnump timeout)
@@ -1335,7 +1335,7 @@ object can contain \"annotation\" children."
1335(defun dbus-introspect-get-annotation-names 1335(defun dbus-introspect-get-annotation-names
1336 (bus service path interface &optional name) 1336 (bus service path interface &optional name)
1337 "Return all annotation names as list of strings. 1337 "Return all annotation names as list of strings.
1338If NAME is `nil', the annotations are children of INTERFACE, 1338If NAME is nil, the annotations are children of INTERFACE,
1339otherwise NAME must be a \"method\", \"signal\", or \"property\" 1339otherwise NAME must be a \"method\", \"signal\", or \"property\"
1340object, where the annotations belong to." 1340object, where the annotations belong to."
1341 (let ((object 1341 (let ((object
@@ -1352,7 +1352,7 @@ object, where the annotations belong to."
1352(defun dbus-introspect-get-annotation 1352(defun dbus-introspect-get-annotation
1353 (bus service path interface name annotation) 1353 (bus service path interface name annotation)
1354 "Return ANNOTATION as XML object. 1354 "Return ANNOTATION as XML object.
1355If NAME is `nil', ANNOTATION is a child of INTERFACE, otherwise 1355If NAME is nil, ANNOTATION is a child of INTERFACE, otherwise
1356NAME must be the name of a \"method\", \"signal\", or 1356NAME must be the name of a \"method\", \"signal\", or
1357\"property\" object, where the ANNOTATION belongs to." 1357\"property\" object, where the ANNOTATION belongs to."
1358 (let ((elt (xml-get-children 1358 (let ((elt (xml-get-children
@@ -1376,7 +1376,7 @@ NAME must be the name of a \"method\", \"signal\", or
1376 "Return a list of all argument names as list of strings. 1376 "Return a list of all argument names as list of strings.
1377NAME must be a \"method\" or \"signal\" object. 1377NAME must be a \"method\" or \"signal\" object.
1378 1378
1379Argument names are optional, the function can return `nil' 1379Argument names are optional, the function can return nil
1380therefore, even if the method or signal has arguments." 1380therefore, even if the method or signal has arguments."
1381 (let ((object 1381 (let ((object
1382 (or (dbus-introspect-get-method bus service path interface name) 1382 (or (dbus-introspect-get-method bus service path interface name)
@@ -1404,9 +1404,9 @@ element of the list returned by `dbus-introspect-get-argument-names'."
1404 (bus service path interface name &optional direction) 1404 (bus service path interface name &optional direction)
1405 "Return signature of a `method' or `signal', represented by NAME, as string. 1405 "Return signature of a `method' or `signal', represented by NAME, as string.
1406If NAME is a `method', DIRECTION can be either \"in\" or \"out\". 1406If NAME is a `method', DIRECTION can be either \"in\" or \"out\".
1407If DIRECTION is `nil', \"in\" is assumed. 1407If DIRECTION is nil, \"in\" is assumed.
1408 1408
1409If NAME is a `signal', and DIRECTION is non-`nil', DIRECTION must 1409If NAME is a `signal', and DIRECTION is non-nil, DIRECTION must
1410be \"out\"." 1410be \"out\"."
1411 ;; For methods, we use "in" as default direction. 1411 ;; For methods, we use "in" as default direction.
1412 (let ((object (or (dbus-introspect-get-method 1412 (let ((object (or (dbus-introspect-get-method
@@ -1440,7 +1440,7 @@ be \"out\"."
1440(defun dbus-get-property (bus service path interface property) 1440(defun dbus-get-property (bus service path interface property)
1441 "Return the value of PROPERTY of INTERFACE. 1441 "Return the value of PROPERTY of INTERFACE.
1442It will be checked at BUS, SERVICE, PATH. The result can be any 1442It will be checked at BUS, SERVICE, PATH. The result can be any
1443valid D-Bus value, or `nil' if there is no PROPERTY." 1443valid D-Bus value, or nil if there is no PROPERTY."
1444 (dbus-ignore-errors 1444 (dbus-ignore-errors
1445 ;; "Get" returns a variant, so we must use the `car'. 1445 ;; "Get" returns a variant, so we must use the `car'.
1446 (car 1446 (car
@@ -1451,7 +1451,7 @@ valid D-Bus value, or `nil' if there is no PROPERTY."
1451(defun dbus-set-property (bus service path interface property value) 1451(defun dbus-set-property (bus service path interface property value)
1452 "Set value of PROPERTY of INTERFACE to VALUE. 1452 "Set value of PROPERTY of INTERFACE to VALUE.
1453It will be checked at BUS, SERVICE, PATH. When the value has 1453It will be checked at BUS, SERVICE, PATH. When the value has
1454been set successful, the result is VALUE. Otherwise, `nil' is 1454been set successful, the result is VALUE. Otherwise, nil is
1455returned." 1455returned."
1456 (dbus-ignore-errors 1456 (dbus-ignore-errors
1457 ;; "Set" requires a variant. 1457 ;; "Set" requires a variant.
@@ -1465,7 +1465,7 @@ returned."
1465 "Return all properties of INTERFACE at BUS, SERVICE, PATH. 1465 "Return all properties of INTERFACE at BUS, SERVICE, PATH.
1466The result is a list of entries. Every entry is a cons of the 1466The result is a list of entries. Every entry is a cons of the
1467name of the property, and its value. If there are no properties, 1467name of the property, and its value. If there are no properties,
1468`nil' is returned." 1468nil is returned."
1469 (dbus-ignore-errors 1469 (dbus-ignore-errors
1470 ;; "GetAll" returns "a{sv}". 1470 ;; "GetAll" returns "a{sv}".
1471 (let (result) 1471 (let (result)
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index 0104fa7dd12..1eb5342009c 100644
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -121,7 +121,7 @@ values:
121 121
122:client-certificate should either be a list where the first 122:client-certificate should either be a list where the first
123 element is the certificate key file name, and the second 123 element is the certificate key file name, and the second
124 element is the certificate file name itself, or `t', which 124 element is the certificate file name itself, or t, which
125 means that `auth-source' will be queried for the key and the 125 means that `auth-source' will be queried for the key and the
126 certificate. This parameter will only be used when doing TLS 126 certificate. This parameter will only be used when doing TLS
127 or STARTTLS connections. 127 or STARTTLS connections.
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 11db7a2cab2..852d2941f0b 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1372,7 +1372,7 @@ if ARG is omitted or nil."
1372 (t . "%fp*** %fs%n %r %m")) 1372 (t . "%fp*** %fs%n %r %m"))
1373 "An alist of formats used for printing responses. 1373 "An alist of formats used for printing responses.
1374The format is looked up using the response-type as a key; 1374The format is looked up using the response-type as a key;
1375if no match is found, the default entry (with a key of `t') is used. 1375if no match is found, the default entry (with a key of t) is used.
1376 1376
1377The entry's value part should be a string, which is inserted with 1377The entry's value part should be a string, which is inserted with
1378the of the following escape sequences replaced by the described values: 1378the of the following escape sequences replaced by the described values:
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 56cbec4ea75..c4102a18cef 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -85,7 +85,7 @@
85;; temporarily. This shall be preferred over creation of a persistent 85;; temporarily. This shall be preferred over creation of a persistent
86;; collection, when the information shall not live longer than Emacs. 86;; collection, when the information shall not live longer than Emacs.
87;; The session collection can be addressed either by the string 87;; The session collection can be addressed either by the string
88;; "session", or by `nil', whenever a collection parameter is needed. 88;; "session", or by nil, whenever a collection parameter is needed.
89 89
90;; As already said, a collection is a group of secret items. A secret 90;; As already said, a collection is a group of secret items. A secret
91;; item has a label, the "secret" (which is a string), and a set of 91;; item has a label, the "secret" (which is a string), and a set of
@@ -418,7 +418,7 @@ returned, and it will be stored in `secrets-session-path'."
418(defun secrets-prompt-handler (&rest args) 418(defun secrets-prompt-handler (&rest args)
419 "Handler for signals emitted by `secrets-interface-prompt'." 419 "Handler for signals emitted by `secrets-interface-prompt'."
420 ;; An empty object path is always identified as `secrets-empty-path' 420 ;; An empty object path is always identified as `secrets-empty-path'
421 ;; or `nil'. Either we set it explicitly, or it is returned by the 421 ;; or nil. Either we set it explicitly, or it is returned by the
422 ;; "Completed" signal. 422 ;; "Completed" signal.
423 (if (car args) ;; dismissed 423 (if (car args) ;; dismissed
424 (setq secrets-prompt-signal (list secrets-empty-path)) 424 (setq secrets-prompt-signal (list secrets-empty-path))
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index a92ca4df51c..7c509e1d098 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -850,9 +850,9 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored."
850 (when tmpinput (delete-file tmpinput)) 850 (when tmpinput (delete-file tmpinput))
851 851
852 ;; `process-file-side-effects' has been introduced with GNU 852 ;; `process-file-side-effects' has been introduced with GNU
853 ;; Emacs 23.2. If set to `nil', no remote file will be changed 853 ;; Emacs 23.2. If set to nil, no remote file will be changed
854 ;; by `program'. If it doesn't exist, we assume its default 854 ;; by `program'. If it doesn't exist, we assume its default
855 ;; value 't'. 855 ;; value t.
856 (unless (and (boundp 'process-file-side-effects) 856 (unless (and (boundp 'process-file-side-effects)
857 (not (symbol-value 'process-file-side-effects))) 857 (not (symbol-value 'process-file-side-effects)))
858 (tramp-flush-directory-property v "")) 858 (tramp-flush-directory-property v ""))
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 3ec90ca556f..e68c81cfa70 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -100,7 +100,7 @@
100 (setq byte-compile-not-obsolete-vars '(directory-sep-char))) 100 (setq byte-compile-not-obsolete-vars '(directory-sep-char)))
101 101
102 ;; `remote-file-name-inhibit-cache' has been introduced with Emacs 24.1. 102 ;; `remote-file-name-inhibit-cache' has been introduced with Emacs 24.1.
103 ;; Besides `t', `nil', and integer, we use also timestamps (as 103 ;; Besides t, nil, and integer, we use also timestamps (as
104 ;; returned by `current-time') internally. 104 ;; returned by `current-time') internally.
105 (unless (boundp 'remote-file-name-inhibit-cache) 105 (unless (boundp 'remote-file-name-inhibit-cache)
106 (defvar remote-file-name-inhibit-cache nil)) 106 (defvar remote-file-name-inhibit-cache nil))
@@ -459,7 +459,7 @@ element is not omitted."
459 (delete "" (split-string string pattern))) 459 (delete "" (split-string string pattern)))
460 460
461(defun tramp-compat-process-running-p (process-name) 461(defun tramp-compat-process-running-p (process-name)
462 "Returns `t' if system process PROCESS-NAME is running for `user-login-name'." 462 "Returns t if system process PROCESS-NAME is running for `user-login-name'."
463 (when (stringp process-name) 463 (when (stringp process-name)
464 (cond 464 (cond
465 ;; GNU Emacs 22 on w32. 465 ;; GNU Emacs 22 on w32.
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 5988a284c6e..215e39d04c3 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1563,7 +1563,7 @@ connection if a previous connection has died for some reason."
1563(defun tramp-gvfs-send-command (vec command &rest args) 1563(defun tramp-gvfs-send-command (vec command &rest args)
1564 "Send the COMMAND with its ARGS to connection VEC. 1564 "Send the COMMAND with its ARGS to connection VEC.
1565COMMAND is usually a command from the gvfs-* utilities. 1565COMMAND is usually a command from the gvfs-* utilities.
1566`call-process' is applied, and it returns `t' if the return code is zero." 1566`call-process' is applied, and it returns t if the return code is zero."
1567 (with-current-buffer (tramp-get-connection-buffer vec) 1567 (with-current-buffer (tramp-get-connection-buffer vec)
1568 (tramp-gvfs-maybe-open-connection vec) 1568 (tramp-gvfs-maybe-open-connection vec)
1569 (erase-buffer) 1569 (erase-buffer)
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 3f006e84dc1..acb97e880b4 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -1558,7 +1558,7 @@ be non-negative integers."
1558 (progn 1558 (progn
1559 (tramp-set-file-property v localname "file-acl" acl-string) 1559 (tramp-set-file-property v localname "file-acl" acl-string)
1560 t) 1560 t)
1561 ;; In case of errors, we return `nil'. 1561 ;; In case of errors, we return nil.
1562 (tramp-set-file-property v localname "file-acl-string" 'undef) 1562 (tramp-set-file-property v localname "file-acl-string" 'undef)
1563 nil))) 1563 nil)))
1564 1564
@@ -3103,9 +3103,9 @@ the result will be a local, non-Tramp, file name."
3103 (when tmpinput (delete-file tmpinput)) 3103 (when tmpinput (delete-file tmpinput))
3104 3104
3105 ;; `process-file-side-effects' has been introduced with GNU 3105 ;; `process-file-side-effects' has been introduced with GNU
3106 ;; Emacs 23.2. If set to `nil', no remote file will be changed 3106 ;; Emacs 23.2. If set to nil, no remote file will be changed
3107 ;; by `program'. If it doesn't exist, we assume its default 3107 ;; by `program'. If it doesn't exist, we assume its default
3108 ;; value `t'. 3108 ;; value t.
3109 (unless (and (boundp 'process-file-side-effects) 3109 (unless (and (boundp 'process-file-side-effects)
3110 (not (symbol-value 'process-file-side-effects))) 3110 (not (symbol-value 'process-file-side-effects)))
3111 (tramp-flush-directory-property v "")) 3111 (tramp-flush-directory-property v ""))
@@ -4973,8 +4973,8 @@ function waits for output unless NOOUTPUT is set."
4973 (vec command &optional subshell dont-suppress-err) 4973 (vec command &optional subshell dont-suppress-err)
4974 "Run COMMAND and check its exit status. 4974 "Run COMMAND and check its exit status.
4975Sends `echo $?' along with the COMMAND for checking the exit status. 4975Sends `echo $?' along with the COMMAND for checking the exit status.
4976If COMMAND is nil, just sends `echo $?'. Returns `t' if the exit 4976If COMMAND is nil, just sends `echo $?'. Returns t if the exit
4977status is 0, and `nil' otherwise. 4977status is 0, and nil otherwise.
4978 4978
4979If the optional argument SUBSHELL is non-nil, the command is 4979If the optional argument SUBSHELL is non-nil, the command is
4980executed in a subshell, ie surrounded by parentheses. If 4980executed in a subshell, ie surrounded by parentheses. If
@@ -5551,7 +5551,7 @@ If no corresponding command is found, nil is returned.
5551Otherwise, either a string is returned which contains a `%s' mark 5551Otherwise, either a string is returned which contains a `%s' mark
5552to be used for the respective input or output file; or a Lisp 5552to be used for the respective input or output file; or a Lisp
5553function cell is returned to be applied on a buffer." 5553function cell is returned to be applied on a buffer."
5554 ;; We must catch the errors, because we want to return `nil', when 5554 ;; We must catch the errors, because we want to return nil, when
5555 ;; no inline coding is found. 5555 ;; no inline coding is found.
5556 (ignore-errors 5556 (ignore-errors
5557 (let ((coding 5557 (let ((coding
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 14360b96fe6..c4f0f1f500a 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1242,9 +1242,9 @@ target of the symlink differ."
1242 (kill-buffer (tramp-get-connection-property v "process-buffer" nil))) 1242 (kill-buffer (tramp-get-connection-property v "process-buffer" nil)))
1243 1243
1244 ;; `process-file-side-effects' has been introduced with GNU 1244 ;; `process-file-side-effects' has been introduced with GNU
1245 ;; Emacs 23.2. If set to `nil', no remote file will be changed 1245 ;; Emacs 23.2. If set to nil, no remote file will be changed
1246 ;; by `program'. If it doesn't exist, we assume its default 1246 ;; by `program'. If it doesn't exist, we assume its default
1247 ;; value `t'. 1247 ;; value t.
1248 (unless (and (boundp 'process-file-side-effects) 1248 (unless (and (boundp 'process-file-side-effects)
1249 (not (symbol-value 'process-file-side-effects))) 1249 (not (symbol-value 'process-file-side-effects)))
1250 (tramp-flush-directory-property v "")) 1250 (tramp-flush-directory-property v ""))
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index f4ece9000a6..95f54490cac 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1034,7 +1034,7 @@ The timeout does not include the time reading a password."
1034This is necessary as self defense mechanism, in order to avoid 1034This is necessary as self defense mechanism, in order to avoid
1035yo-yo connection attempts when the remote host is unavailable. 1035yo-yo connection attempts when the remote host is unavailable.
1036 1036
1037A value of 0 or `nil' suppresses this check. This might be 1037A value of 0 or nil suppresses this check. This might be
1038necessary, when several out-of-order copy operations are 1038necessary, when several out-of-order copy operations are
1039performed, or when several asynchronous processes will be started 1039performed, or when several asynchronous processes will be started
1040in a short time frame. In those cases it is recommended to 1040in a short time frame. In those cases it is recommended to
@@ -1049,8 +1049,8 @@ A remote directory might have changed its contents. In order to
1049make it visible during file name completion in the minibuffer, 1049make it visible during file name completion in the minibuffer,
1050Tramp flushes its cache and rereads the directory contents when 1050Tramp flushes its cache and rereads the directory contents when
1051more than `tramp-completion-reread-directory-timeout' seconds 1051more than `tramp-completion-reread-directory-timeout' seconds
1052have been gone since last remote command execution. A value of `t' 1052have been gone since last remote command execution. A value of t
1053would require an immediate reread during filename completion, `nil' 1053would require an immediate reread during filename completion, nil
1054means to use always cached values for the directory contents." 1054means to use always cached values for the directory contents."
1055 :group 'tramp 1055 :group 'tramp
1056 :type '(choice (const nil) (const t) integer)) 1056 :type '(choice (const nil) (const t) integer))
@@ -3314,7 +3314,7 @@ User is always nil."
3314 3314
3315(defun tramp-handle-unhandled-file-name-directory (_filename) 3315(defun tramp-handle-unhandled-file-name-directory (_filename)
3316 "Like `unhandled-file-name-directory' for Tramp files." 3316 "Like `unhandled-file-name-directory' for Tramp files."
3317 ;; Starting with Emacs 23, we must simply return `nil'. But we must 3317 ;; Starting with Emacs 23, we must simply return nil. But we must
3318 ;; keep backward compatibility, also with XEmacs. "~/" cannot be 3318 ;; keep backward compatibility, also with XEmacs. "~/" cannot be
3319 ;; returned, because there might be machines without a HOME 3319 ;; returned, because there might be machines without a HOME
3320 ;; directory (like hydra). 3320 ;; directory (like hydra).
@@ -3737,7 +3737,7 @@ Example:
3737 3737
3738 (tramp-equal-remote \"/ssh::/etc\" \"/<your host name>:/home\") 3738 (tramp-equal-remote \"/ssh::/etc\" \"/<your host name>:/home\")
3739 3739
3740would yield `t'. On the other hand, the following check results in nil: 3740would yield t. On the other hand, the following check results in nil:
3741 3741
3742 (tramp-equal-remote \"/sudo::/etc\" \"/su::/etc\")" 3742 (tramp-equal-remote \"/sudo::/etc\" \"/su::/etc\")"
3743 (and (tramp-tramp-file-p file1) 3743 (and (tramp-tramp-file-p file1)
diff --git a/lisp/obsolete/xesam.el b/lisp/obsolete/xesam.el
index 4ee8c6f1b0f..39dd6a241f2 100644
--- a/lisp/obsolete/xesam.el
+++ b/lisp/obsolete/xesam.el
@@ -378,7 +378,7 @@ If PROPERTY is not existing, retrieve it from ENGINE first."
378(defun xesam-search-engines () 378(defun xesam-search-engines ()
379 "Return Xesam search engines, stored in `xesam-search-engines'. 379 "Return Xesam search engines, stored in `xesam-search-engines'.
380The first search engine is the name owner of `xesam-service-search'. 380The first search engine is the name owner of `xesam-service-search'.
381If there is no registered search engine at all, the function returns `nil'." 381If there is no registered search engine at all, the function returns nil."
382 (let ((services (dbus-ignore-errors 382 (let ((services (dbus-ignore-errors
383 (dbus-list-queued-owners 383 (dbus-list-queued-owners
384 :session xesam-service-search))) 384 :session xesam-service-search)))
diff --git a/lisp/org/ob-ruby.el b/lisp/org/ob-ruby.el
index 7e09d6d78be..8dee01a5389 100644
--- a/lisp/org/ob-ruby.el
+++ b/lisp/org/ob-ruby.el
@@ -58,7 +58,7 @@
58 :type 'string) 58 :type 'string)
59 59
60(defcustom org-babel-ruby-nil-to 'hline 60(defcustom org-babel-ruby-nil-to 'hline
61 "Replace 'nil' in ruby tables with this before returning." 61 "Replace nil in ruby tables with this before returning."
62 :group 'org-babel 62 :group 'org-babel
63 :version "24.4" 63 :version "24.4"
64 :package-version '(Org . "8.0") 64 :package-version '(Org . "8.0")
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 8f7611fd1ff..65696b21d71 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -6642,7 +6642,7 @@ The modified list may contain inherited tags, and tags matched by
6642 6642
6643LIST is the list of agenda items formatted by `org-agenda-list'. 6643LIST is the list of agenda items formatted by `org-agenda-list'.
6644NDAYS is the span of the current agenda view. 6644NDAYS is the span of the current agenda view.
6645TODAYP is `t' when the current agenda view is on today." 6645TODAYP is t when the current agenda view is on today."
6646 (catch 'exit 6646 (catch 'exit
6647 (cond ((not org-agenda-use-time-grid) (throw 'exit list)) 6647 (cond ((not org-agenda-use-time-grid) (throw 'exit list))
6648 ((and todayp (member 'today (car org-agenda-time-grid)))) 6648 ((and todayp (member 'today (car org-agenda-time-grid))))
diff --git a/lisp/org/org-capture.el b/lisp/org/org-capture.el
index 7f1f7ed8af1..64e30152a5b 100644
--- a/lisp/org/org-capture.el
+++ b/lisp/org/org-capture.el
@@ -201,7 +201,7 @@ properties are:
201 201
202 :clock-resume Start the interrupted clock when finishing the capture. 202 :clock-resume Start the interrupted clock when finishing the capture.
203 Note that :clock-keep has precedence over :clock-resume. 203 Note that :clock-keep has precedence over :clock-resume.
204 When setting both to `t', the current clock will run and 204 When setting both to t, the current clock will run and
205 the previous one will not be resumed. 205 the previous one will not be resumed.
206 206
207 :unnarrowed Do not narrow the target buffer, simply show the 207 :unnarrowed Do not narrow the target buffer, simply show the
diff --git a/lisp/org/org-gnus.el b/lisp/org/org-gnus.el
index 880994a8fa9..8b616f0a0ff 100644
--- a/lisp/org/org-gnus.el
+++ b/lisp/org/org-gnus.el
@@ -60,7 +60,7 @@ Normally, this translation is done by querying the IMAP server,
60which is usually very fast. Unfortunately, some (maybe badly 60which is usually very fast. Unfortunately, some (maybe badly
61configured) IMAP servers don't support this operation quickly. 61configured) IMAP servers don't support this operation quickly.
62So if following a link to a Gnus article takes ages, try setting 62So if following a link to a Gnus article takes ages, try setting
63this variable to `t'." 63this variable to t."
64 :group 'org-link-store 64 :group 'org-link-store
65 :version "24.1" 65 :version "24.1"
66 :type 'boolean) 66 :type 'boolean)
diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el
index db09909f404..ea8e7b532aa 100644
--- a/lisp/org/org-macs.el
+++ b/lisp/org/org-macs.el
@@ -55,7 +55,7 @@
55 ,@body)) 55 ,@body))
56 56
57(defmacro org-called-interactively-p (&optional kind) 57(defmacro org-called-interactively-p (&optional kind)
58 (declare (debug (&optional ("quote" symbolp)))) ;Why not just `t'? 58 (declare (debug (&optional ("quote" symbolp)))) ;Why not just t?
59 (if (featurep 'xemacs) 59 (if (featurep 'xemacs)
60 `(interactive-p) 60 `(interactive-p)
61 (if (or (> emacs-major-version 23) 61 (if (or (> emacs-major-version 23)
diff --git a/lisp/org/org-protocol.el b/lisp/org/org-protocol.el
index eeefc8da528..d0750f7d639 100644
--- a/lisp/org/org-protocol.el
+++ b/lisp/org/org-protocol.el
@@ -561,7 +561,7 @@ as filename."
561 (let ((fname (expand-file-name (car var)))) 561 (let ((fname (expand-file-name (car var))))
562 (setq fname (org-protocol-check-filename-for-protocol 562 (setq fname (org-protocol-check-filename-for-protocol
563 fname (member var flist) client)) 563 fname (member var flist) client))
564 (if (eq fname t) ;; greedy? We need the `t' return value. 564 (if (eq fname t) ;; greedy? We need the t return value.
565 (progn 565 (progn
566 (ad-set-arg 0 nil) 566 (ad-set-arg 0 nil)
567 (throw 'greedy t)) 567 (throw 'greedy t))
diff --git a/lisp/org/org.el b/lisp/org/org.el
index ea5d56effcd..29ef8efb640 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -595,7 +595,7 @@ XEmacs user should have this variable set to nil, because
595(defcustom org-loop-over-headlines-in-active-region nil 595(defcustom org-loop-over-headlines-in-active-region nil
596 "Shall some commands act upon headlines in the active region? 596 "Shall some commands act upon headlines in the active region?
597 597
598When set to `t', some commands will be performed in all headlines 598When set to t, some commands will be performed in all headlines
599within the active region. 599within the active region.
600 600
601When set to `start-level', some commands will be performed in all 601When set to `start-level', some commands will be performed in all
@@ -1575,7 +1575,7 @@ See the manual for examples."
1575 "Non-nil means Org will display descriptive links. 1575 "Non-nil means Org will display descriptive links.
1576E.g. [[http://orgmode.org][Org website]] will be displayed as 1576E.g. [[http://orgmode.org][Org website]] will be displayed as
1577\"Org Website\", hiding the link itself and just displaying its 1577\"Org Website\", hiding the link itself and just displaying its
1578description. When set to `nil', Org will display the full links 1578description. When set to nil, Org will display the full links
1579literally. 1579literally.
1580 1580
1581You can interactively set the value of this variable by calling 1581You can interactively set the value of this variable by calling
@@ -11558,7 +11558,7 @@ go to the location where the last refiling operation has put the subtree.
11558With a numeric prefix argument of `2', refile to the running clock. 11558With a numeric prefix argument of `2', refile to the running clock.
11559 11559
11560With a numeric prefix argument of `3', emulate `org-refile-keep' 11560With a numeric prefix argument of `3', emulate `org-refile-keep'
11561being set to `t' and copy to the target location, don't move it. 11561being set to t and copy to the target location, don't move it.
11562Beware that keeping refiled entries may result in duplicated ID 11562Beware that keeping refiled entries may result in duplicated ID
11563properties. 11563properties.
11564 11564
@@ -15541,7 +15541,7 @@ and the new value.")
15541 15541
15542(defun org-entry-put (pom property value) 15542(defun org-entry-put (pom property value)
15543 "Set PROPERTY to VALUE for entry at point-or-marker POM. 15543 "Set PROPERTY to VALUE for entry at point-or-marker POM.
15544If the value is `nil', it is converted to the empty string. 15544If the value is nil, it is converted to the empty string.
15545If it is not a string, an error is raised." 15545If it is not a string, an error is raised."
15546 (cond ((null value) (setq value "")) 15546 (cond ((null value) (setq value ""))
15547 ((not (stringp value)) 15547 ((not (stringp value))
@@ -17749,7 +17749,7 @@ If no number is found, the return value is 0."
17749(defcustom org-image-actual-width t 17749(defcustom org-image-actual-width t
17750 "Should we use the actual width of images when inlining them? 17750 "Should we use the actual width of images when inlining them?
17751 17751
17752When set to `t', always use the image width. 17752When set to t, always use the image width.
17753 17753
17754When set to a number, use imagemagick (when available) to set 17754When set to a number, use imagemagick (when available) to set
17755the image's width to this value. 17755the image's width to this value.
@@ -17776,7 +17776,7 @@ This requires Emacs >= 24.1, build with imagemagick support."
17776 17776
17777(defcustom org-agenda-inhibit-startup nil 17777(defcustom org-agenda-inhibit-startup nil
17778 "Inhibit startup when preparing agenda buffers. 17778 "Inhibit startup when preparing agenda buffers.
17779When this variable is `t', the initialization of the Org agenda 17779When this variable is t, the initialization of the Org agenda
17780buffers is inhibited: e.g. the visibility state is not set, the 17780buffers is inhibited: e.g. the visibility state is not set, the
17781tables are not re-aligned, etc." 17781tables are not re-aligned, etc."
17782 :type 'boolean 17782 :type 'boolean
diff --git a/lisp/org/ox-odt.el b/lisp/org/ox-odt.el
index 6c74fb3eabd..f1ef90e169b 100644
--- a/lisp/org/ox-odt.el
+++ b/lisp/org/ox-odt.el
@@ -847,7 +847,7 @@ TABLE-CELL-STYLE-SELECTOR := `use-first-row-styles' |
847 `use-banding-rows-styles' | 847 `use-banding-rows-styles' |
848 `use-banding-columns-styles' | 848 `use-banding-columns-styles' |
849 `use-first-row-styles' 849 `use-first-row-styles'
850ON-OR-OFF := `t' | `nil' 850ON-OR-OFF := t | nil
851 851
852For example, with the following configuration 852For example, with the following configuration
853 853
@@ -3261,7 +3261,7 @@ contextual information."
3261 "Retrieve styles applicable to a table cell. 3261 "Retrieve styles applicable to a table cell.
3262R and C are (zero-based) row and column numbers of the table 3262R and C are (zero-based) row and column numbers of the table
3263cell. STYLE-SPEC is an entry in `org-odt-table-styles' 3263cell. STYLE-SPEC is an entry in `org-odt-table-styles'
3264applicable to the current table. It is `nil' if the table is not 3264applicable to the current table. It is nil if the table is not
3265associated with any style attributes. 3265associated with any style attributes.
3266 3266
3267Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME). 3267Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
diff --git a/lisp/org/ox-texinfo.el b/lisp/org/ox-texinfo.el
index 0c81b620618..26f58ad662a 100644
--- a/lisp/org/ox-texinfo.el
+++ b/lisp/org/ox-texinfo.el
@@ -117,7 +117,7 @@
117(defcustom org-texinfo-coding-system nil 117(defcustom org-texinfo-coding-system nil
118 "Default document encoding for Texinfo output. 118 "Default document encoding for Texinfo output.
119 119
120If `nil' it will default to `buffer-file-coding-system'." 120If nil it will default to `buffer-file-coding-system'."
121 :group 'org-export-texinfo 121 :group 'org-export-texinfo
122 :type 'coding-system) 122 :type 'coding-system)
123 123
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 6b611e6f99b..771dc2a3da1 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -954,7 +954,7 @@ Return new value of PROJECT."
954 (append (mapcar 'directory-file-name compilation-search-path) 954 (append (mapcar 'directory-file-name compilation-search-path)
955 ada-search-directories)) 955 ada-search-directories))
956 956
957 ;; return 't', for decent display in message buffer when called interactively 957 ;; return t, for decent display in message buffer when called interactively
958 t) 958 t)
959 959
960(defun ada-find-references (&optional pos arg local-only) 960(defun ada-find-references (&optional pos arg local-only)
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index d8854f4b882..fd4bfb3b921 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -2017,10 +2017,10 @@ The second argument can optionally be a docstring. The rest of the
2017arguments are one or more repetitions of LANG VAL where LANG specifies 2017arguments are one or more repetitions of LANG VAL where LANG specifies
2018the language(s) that VAL applies to. LANG is the name of the 2018the language(s) that VAL applies to. LANG is the name of the
2019language, i.e. the mode name without the \"-mode\" suffix, or a list 2019language, i.e. the mode name without the \"-mode\" suffix, or a list
2020of such language names, or `t' for all languages. VAL is a form to 2020of such language names, or t for all languages. VAL is a form to
2021evaluate to get the value. 2021evaluate to get the value.
2022 2022
2023If LANG isn't `t' or one of the core languages in CC Mode, it must 2023If LANG isn't t or one of the core languages in CC Mode, it must
2024have been declared with `c-add-language'. 2024have been declared with `c-add-language'.
2025 2025
2026Neither NAME, LANG nor VAL are evaluated directly - they should not be 2026Neither NAME, LANG nor VAL are evaluated directly - they should not be
@@ -2030,7 +2030,7 @@ VAL to evaluate parts of it directly.
2030When VAL is evaluated for some language, that language is temporarily 2030When VAL is evaluated for some language, that language is temporarily
2031made current so that `c-lang-const' without an explicit language can 2031made current so that `c-lang-const' without an explicit language can
2032be used inside VAL to refer to the value of a language constant in the 2032be used inside VAL to refer to the value of a language constant in the
2033same language. That is particularly useful if LANG is `t'. 2033same language. That is particularly useful if LANG is t.
2034 2034
2035VAL is not evaluated right away but rather when the value is requested 2035VAL is not evaluated right away but rather when the value is requested
2036with `c-lang-const'. Thus it's possible to use `c-lang-const' inside 2036with `c-lang-const'. Thus it's possible to use `c-lang-const' inside
@@ -2365,7 +2365,7 @@ fallback definition for all modes, to break the cycle).")
2365 2365
2366(defun c-find-assignment-for-mode (source-pos mode match-any-lang _name) 2366(defun c-find-assignment-for-mode (source-pos mode match-any-lang _name)
2367 ;; Find the first assignment entry that applies to MODE at or after 2367 ;; Find the first assignment entry that applies to MODE at or after
2368 ;; SOURCE-POS. If MATCH-ANY-LANG is non-nil, entries with `t' as 2368 ;; SOURCE-POS. If MATCH-ANY-LANG is non-nil, entries with t as
2369 ;; the language list are considered to match, otherwise they don't. 2369 ;; the language list are considered to match, otherwise they don't.
2370 ;; On return SOURCE-POS is updated to point to the next assignment 2370 ;; On return SOURCE-POS is updated to point to the next assignment
2371 ;; after the returned one. If no assignment is found, 2371 ;; after the returned one. If no assignment is found,
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 823d795b6de..06b03a24bd6 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -7972,7 +7972,7 @@ comment at the start of cc-engine.el for more info."
7972 ;; This should be called with point inside an argument list. 7972 ;; This should be called with point inside an argument list.
7973 ;; 7973 ;;
7974 ;; Only one level of enclosing parentheses is considered, so for 7974 ;; Only one level of enclosing parentheses is considered, so for
7975 ;; instance `nil' is returned when in a function call within an asm 7975 ;; instance nil is returned when in a function call within an asm
7976 ;; operand. 7976 ;; operand.
7977 ;; 7977 ;;
7978 ;; This function might do hidden buffer changes. 7978 ;; This function might do hidden buffer changes.
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 44172b05a56..ad564f7c3df 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -1772,8 +1772,8 @@ on level 2 only and so aren't combined with `c-complex-decl-matchers'."
1772;; "\\|" 1772;; "\\|"
1773;; (c-lang-const c-symbol-key) 1773;; (c-lang-const c-symbol-key)
1774;; "\\)") 1774;; "\\)")
1775;; `((c-font-lock-declarators limit t nil) ; That `nil' says use `font-lock-variable-name-face'; 1775;; `((c-font-lock-declarators limit t nil) ; That nil says use `font-lock-variable-name-face';
1776;; ; `t' would mean `font-lock-function-name-face'. 1776;; ; t would mean `font-lock-function-name-face'.
1777;; (progn 1777;; (progn
1778;; (c-put-char-property (match-beginning 0) 'c-type 1778;; (c-put-char-property (match-beginning 0) 'c-type
1779;; 'c-decl-id-start) 1779;; 'c-decl-id-start)
diff --git a/lisp/progmodes/cc-guess.el b/lisp/progmodes/cc-guess.el
index 20534737d8a..ba23a75ff22 100644
--- a/lisp/progmodes/cc-guess.el
+++ b/lisp/progmodes/cc-guess.el
@@ -91,7 +91,7 @@ The offset of a line included in the indent information returned by
91(defcustom c-guess-region-max 50000 91(defcustom c-guess-region-max 50000
92 "The maximum region size for examining indent information with `c-guess'. 92 "The maximum region size for examining indent information with `c-guess'.
93It takes a long time to examine indent information from a large region; 93It takes a long time to examine indent information from a large region;
94this option helps you limit that time. `nil' means no limit." 94this option helps you limit that time. nil means no limit."
95 :version "24.1" 95 :version "24.1"
96 :type 'integer 96 :type 'integer
97 :group 'c) 97 :group 'c)
@@ -465,7 +465,7 @@ the absolute file name of the file if STYLE-NAME is nil."
465(defun c-guess-dump-guessed-style (&optional printer) 465(defun c-guess-dump-guessed-style (&optional printer)
466 "Show the guessed style. 466 "Show the guessed style.
467`pp' is used to print the style but if PRINTER is given, 467`pp' is used to print the style but if PRINTER is given,
468PRINTER is used instead. If PRINTER is not `nil', it 468PRINTER is used instead. If PRINTER is not nil, it
469is called with one argument, the guessed style." 469is called with one argument, the guessed style."
470 (interactive) 470 (interactive)
471 (let ((style (c-guess-make-style c-guess-guessed-basic-offset 471 (let ((style (c-guess-make-style c-guess-guessed-basic-offset
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 2acfc104cf3..d6f6f3b25b0 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -282,7 +282,7 @@ This is in addition to cperl-continued-statement-offset."
282 282
283(defcustom cperl-indent-wrt-brace t 283(defcustom cperl-indent-wrt-brace t
284 "*Non-nil means indent statements in if/etc block relative brace, not if/etc. 284 "*Non-nil means indent statements in if/etc block relative brace, not if/etc.
285Versions 5.2 ... 5.20 behaved as if this were `nil'." 285Versions 5.2 ... 5.20 behaved as if this were nil."
286 :type 'boolean 286 :type 'boolean
287 :group 'cperl-indentation-details) 287 :group 'cperl-indentation-details)
288 288
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 023970207dc..23f9d4af8c9 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -2638,7 +2638,7 @@ If ENABLE is non-nil, enable them instead."
2638(defun idlwave-shell-break-in () 2638(defun idlwave-shell-break-in ()
2639 "Look for a module name near point and set a break point for it. 2639 "Look for a module name near point and set a break point for it.
2640The command looks for an identifier near point and sets a breakpoint 2640The command looks for an identifier near point and sets a breakpoint
2641for the first line of the corresponding module. If MODULE is `t', set 2641for the first line of the corresponding module. If MODULE is t, set
2642in the current routine." 2642in the current routine."
2643 (interactive) 2643 (interactive)
2644 (let* ((module (idlwave-fix-module-if-obj_new (idlwave-what-module))) 2644 (let* ((module (idlwave-fix-module-if-obj_new (idlwave-what-module)))
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 45f080c3aab..44d84d65810 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -8162,7 +8162,7 @@ demand _EXTRA in the keyword list."
8162 class 8162 class
8163 (idlwave-routines)) 'do-link)))))) 8163 (idlwave-routines)) 'do-link))))))
8164 8164
8165 ;; If the class is `t', combine all keywords of all methods NAME 8165 ;; If the class is t, combine all keywords of all methods NAME
8166 (when (eq class t) 8166 (when (eq class t)
8167 (mapc (lambda (entry) 8167 (mapc (lambda (entry)
8168 (and 8168 (and
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 4b0a028faa3..d45d082c40a 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -3216,7 +3216,7 @@ With argument MSG show activation/deactivation message."
3216 (concat 3216 (concat
3217 "Your `python-shell-interpreter' doesn't seem to " 3217 "Your `python-shell-interpreter' doesn't seem to "
3218 "support readline, yet `python-shell-completion-native' " 3218 "support readline, yet `python-shell-completion-native' "
3219 (format "was `t' and %S is not part of the " 3219 (format "was t and %S is not part of the "
3220 (file-name-nondirectory python-shell-interpreter)) 3220 (file-name-nondirectory python-shell-interpreter))
3221 "`python-shell-completion-native-disabled-interpreters' " 3221 "`python-shell-completion-native-disabled-interpreters' "
3222 "list. Native completions have been disabled locally. ")) 3222 "list. Native completions have been disabled locally. "))
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index 0e2f66e5bc5..21ad1021c9e 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -287,7 +287,7 @@ Only has effect when `ruby-use-smie' is nil."
287 :group 'ruby 287 :group 'ruby
288 :safe 'booleanp) 288 :safe 'booleanp)
289 289
290;; FIXME Woefully under documented. What is the point of the last `t'?. 290;; FIXME Woefully under documented. What is the point of the last t?.
291(defcustom ruby-deep-indent-paren '(?\( ?\[ ?\] t) 291(defcustom ruby-deep-indent-paren '(?\( ?\[ ?\] t)
292 "Deep indent lists in parenthesis when non-nil. 292 "Deep indent lists in parenthesis when non-nil.
293The value t means continuous line. 293The value t means continuous line.
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 0a2c214690f..e76b332ee3c 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -809,7 +809,7 @@ Please send all bug fixes and enhancements to
809;; on next page. Visually, valid values are (the character `+' at right of 809;; on next page. Visually, valid values are (the character `+' at right of
810;; each column indicates that a line is printed): 810;; each column indicates that a line is printed):
811;; 811;;
812;; `nil' `follow' `full' `full-follow' 812;; nil `follow' `full' `full-follow'
813;; Current Page -------- ----------- --------- ---------------- 813;; Current Page -------- ----------- --------- ----------------
814;; 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX + 814;; 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +
815;; 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX + 815;; 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +
@@ -2117,7 +2117,7 @@ See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'."
2117Visually, valid values are (the character `+' at right of each column indicates 2117Visually, valid values are (the character `+' at right of each column indicates
2118that a line is printed): 2118that a line is printed):
2119 2119
2120 `nil' `follow' `full' `full-follow' 2120 nil `follow' `full' `full-follow'
2121 Current Page -------- ----------- --------- ---------------- 2121 Current Page -------- ----------- --------- ----------------
2122 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX + 2122 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +
2123 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX + 2123 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +
diff --git a/lisp/ses.el b/lisp/ses.el
index 3336769270c..e625e4ed593 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -2276,7 +2276,7 @@ to are recalculated first."
2276 (when (and (< col (1- ses--numcols)) ;;Last column can't spill over, anyway 2276 (when (and (< col (1- ses--numcols)) ;;Last column can't spill over, anyway
2277 (eq (ses-cell-value row (1+ col)) '*skip*)) 2277 (eq (ses-cell-value row (1+ col)) '*skip*))
2278 ;; This cell has spill-over. We'll momentarily pretend the following cell 2278 ;; This cell has spill-over. We'll momentarily pretend the following cell
2279 ;; has a `t' in it. 2279 ;; has a t in it.
2280 (cl-progv 2280 (cl-progv
2281 (list (ses-cell-symbol row (1+ col))) 2281 (list (ses-cell-symbol row (1+ col)))
2282 '(t) 2282 '(t)
@@ -3528,11 +3528,11 @@ execution anyway. Always returns t if `safe-functions' is t."
3528;;---------------------------------------------------------------------------- 3528;;----------------------------------------------------------------------------
3529 3529
3530(defun ses--clean-! (&rest x) 3530(defun ses--clean-! (&rest x)
3531 "Clean by `delq' list X from any occurrence of `nil' or `*skip*'." 3531 "Clean by `delq' list X from any occurrence of nil or `*skip*'."
3532 (delq nil (delq '*skip* x))) 3532 (delq nil (delq '*skip* x)))
3533 3533
3534(defun ses--clean-_ (x y) 3534(defun ses--clean-_ (x y)
3535 "Clean list X by replacing by Y any occurrence of `nil' or `*skip*'. 3535 "Clean list X by replacing by Y any occurrence of nil or `*skip*'.
3536 3536
3537This will change X by making `setcar' on its cons cells." 3537This will change X by making `setcar' on its cons cells."
3538 (let ((ret x) ret-elt) 3538 (let ((ret x) ret-elt)
diff --git a/lisp/simple.el b/lisp/simple.el
index dfd92dcdc05..49a95aea4a8 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3488,9 +3488,9 @@ value passed."
3488(defvar process-file-side-effects t 3488(defvar process-file-side-effects t
3489 "Whether a call of `process-file' changes remote files. 3489 "Whether a call of `process-file' changes remote files.
3490 3490
3491By default, this variable is always set to `t', meaning that a 3491By default, this variable is always set to t, meaning that a
3492call of `process-file' could potentially change any file on a 3492call of `process-file' could potentially change any file on a
3493remote host. When set to `nil', a file handler could optimize 3493remote host. When set to nil, a file handler could optimize
3494its behavior with respect to remote file attribute caching. 3494its behavior with respect to remote file attribute caching.
3495 3495
3496You should only ever change this variable with a let-binding; 3496You should only ever change this variable with a let-binding;
@@ -6675,7 +6675,7 @@ beyond `current-fill-column' automatically breaks the line at a
6675previous space. 6675previous space.
6676 6676
6677When `auto-fill-mode' is on, the `auto-fill-function' variable is 6677When `auto-fill-mode' is on, the `auto-fill-function' variable is
6678non-`nil'. 6678non-nil.
6679 6679
6680The value of `normal-auto-fill-function' specifies the function to use 6680The value of `normal-auto-fill-function' specifies the function to use
6681for `auto-fill-function' when turning Auto Fill mode on." 6681for `auto-fill-function' when turning Auto Fill mode on."
@@ -8232,7 +8232,7 @@ version and use the one distributed with Emacs."))
8232Each element has the form (PACKAGE SYMBOL REGEXP STRING). 8232Each element has the form (PACKAGE SYMBOL REGEXP STRING).
8233PACKAGE is either a regular expression to match file names, or a 8233PACKAGE is either a regular expression to match file names, or a
8234symbol (a feature name), like for `with-eval-after-load'. 8234symbol (a feature name), like for `with-eval-after-load'.
8235SYMBOL is either the name of a string variable, or `t'. Upon 8235SYMBOL is either the name of a string variable, or t. Upon
8236loading PACKAGE, if SYMBOL is t or matches REGEXP, display a 8236loading PACKAGE, if SYMBOL is t or matches REGEXP, display a
8237warning using STRING as the message.") 8237warning using STRING as the message.")
8238 8238
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 10edefc9d3e..9d6d19e6e1e 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -4338,10 +4338,10 @@ Correct and validate again.\n"
4338 (goto-char (point-min)) 4338 (goto-char (point-min))
4339 (forward-line 2)) ; first error message 4339 (forward-line 2)) ; first error message
4340 (display-buffer err-buf) 4340 (display-buffer err-buf)
4341 nil) ; return `nil' (i.e., buffer is invalid) 4341 nil) ; return nil (i.e., buffer is invalid)
4342 (message "%s is syntactically correct" 4342 (message "%s is syntactically correct"
4343 (if mark-active "Region" "Buffer")) 4343 (if mark-active "Region" "Buffer"))
4344 t))) ; return `t' (i.e., buffer is valid) 4344 t))) ; return t (i.e., buffer is valid)
4345 4345
4346(defun bibtex-validate-globally (&optional strings) 4346(defun bibtex-validate-globally (&optional strings)
4347 "Check for duplicate keys in `bibtex-files'. 4347 "Check for duplicate keys in `bibtex-files'.
@@ -4395,9 +4395,9 @@ Return t if test was successful, nil otherwise."
4395 (goto-char (point-min)) 4395 (goto-char (point-min))
4396 (forward-line 2)) ; first error message 4396 (forward-line 2)) ; first error message
4397 (display-buffer err-buf) 4397 (display-buffer err-buf)
4398 nil) ; return `nil' (i.e., buffer is invalid) 4398 nil) ; return nil (i.e., buffer is invalid)
4399 (message "No duplicate keys.") 4399 (message "No duplicate keys.")
4400 t))) ; return `t' (i.e., buffer is valid) 4400 t))) ; return t (i.e., buffer is valid)
4401 4401
4402(defun bibtex-next-field (begin &optional comma) 4402(defun bibtex-next-field (begin &optional comma)
4403 "Move point to end of text of next BibTeX field or entry head. 4403 "Move point to end of text of next BibTeX field or entry head.
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index e48a70820eb..b0fcb1724f5 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -3402,7 +3402,7 @@ Must be called after `ispell-buffer-local-parsing' due to dependence on mode."
3402 3402
3403(defun ispell-ignore-fcc (start end) 3403(defun ispell-ignore-fcc (start end)
3404 "Delete the Fcc: message header when large attachments are included. 3404 "Delete the Fcc: message header when large attachments are included.
3405Return value `nil' if file with large attachments is saved. 3405Return value nil if file with large attachments is saved.
3406This can be used to avoid multiple questions for multiple large attachments. 3406This can be used to avoid multiple questions for multiple large attachments.
3407Returns point to starting location afterwards." 3407Returns point to starting location afterwards."
3408 (let ((result t)) 3408 (let ((result t))
@@ -3900,7 +3900,7 @@ Otherwise, it must be a function which is called to get the limit.")
3900 3900
3901(defun ispell-mime-multipartp (&optional limit) 3901(defun ispell-mime-multipartp (&optional limit)
3902 "Return multipart message start boundary or nil if none." 3902 "Return multipart message start boundary or nil if none."
3903 ;; caller must ensure `case-fold-search' is set to `t' 3903 ;; caller must ensure `case-fold-search' is set to t
3904 (and 3904 (and
3905 (re-search-forward 3905 (re-search-forward
3906 "Content-Type: *multipart/\\([^ \t\n]*;[ \t]*[\n]?[ \t]*\\)+boundary=" 3906 "Content-Type: *multipart/\\([^ \t\n]*;[ \t]*[\n]?[ \t]*\\)+boundary="
diff --git a/lisp/type-break.el b/lisp/type-break.el
index a5a31c9ffd1..5a12f02f876 100644
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -45,7 +45,7 @@
45 45
46;; If you find echo area messages annoying and would prefer to see messages 46;; If you find echo area messages annoying and would prefer to see messages
47;; in the mode line instead, do M-x type-break-mode-line-message-mode 47;; in the mode line instead, do M-x type-break-mode-line-message-mode
48;; or set the variable of the same name to `t'. 48;; or set the variable of the same name to t.
49 49
50;; This program can truly cons up a storm because of all the calls to 50;; This program can truly cons up a storm because of all the calls to
51;; `current-time' (which always returns fresh conses). I'm dismayed by 51;; `current-time' (which always returns fresh conses). I'm dismayed by
diff --git a/lisp/vc/compare-w.el b/lisp/vc/compare-w.el
index 07c07682186..5b923697241 100644
--- a/lisp/vc/compare-w.el
+++ b/lisp/vc/compare-w.el
@@ -88,7 +88,7 @@ regexp containing some field separator or a newline, depending on
88the nature of the difference units separator. The variable can 88the nature of the difference units separator. The variable can
89be made buffer-local. 89be made buffer-local.
90 90
91If the value of this variable is `nil' (option \"No sync\"), then 91If the value of this variable is nil (option \"No sync\"), then
92no synchronization is performed, and the function `ding' is called 92no synchronization is performed, and the function `ding' is called
93to beep or flash the screen when points are mismatched." 93to beep or flash the screen when points are mismatched."
94 :type '(choice function regexp (const :tag "No sync" nil)) 94 :type '(choice function regexp (const :tag "No sync" nil))
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 0a9578391e0..d09214b42a3 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3319,7 +3319,7 @@ It reads a directory name from an editable text field."
3319 ;; Avoid a confusing end-of-file error. 3319 ;; Avoid a confusing end-of-file error.
3320 (skip-syntax-forward "\\s-") 3320 (skip-syntax-forward "\\s-")
3321 (if (eobp) 3321 (if (eobp)
3322 (setq err "Empty sexp -- use `nil'?") 3322 (setq err "Empty sexp -- use nil?")
3323 (unless (widget-apply widget :match (read (current-buffer))) 3323 (unless (widget-apply widget :match (read (current-buffer)))
3324 (setq err (widget-get widget :type-error)))) 3324 (setq err (widget-get widget :type-error))))
3325 ;; Allow whitespace after expression. 3325 ;; Allow whitespace after expression.
diff --git a/lisp/widget.el b/lisp/widget.el
index 539f91e63a0..d62f7ffd8d1 100644
--- a/lisp/widget.el
+++ b/lisp/widget.el
@@ -85,7 +85,7 @@ create identical widgets:
85The third argument DOC is a documentation string for the widget." 85The third argument DOC is a documentation string for the widget."
86 ;; 86 ;;
87 (unless (or (null doc) (stringp doc)) 87 (unless (or (null doc) (stringp doc))
88 (error "widget documentation must be `nil' or a string.")) 88 (error "widget documentation must be nil or a string."))
89 (put name 'widget-type (cons class args)) 89 (put name 'widget-type (cons class args))
90 (put name 'widget-documentation (purecopy doc)) 90 (put name 'widget-documentation (purecopy doc))
91 name) 91 name)
diff --git a/lisp/window.el b/lisp/window.el
index c13499f542b..fad9b2f69fa 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -4311,7 +4311,7 @@ one. If non-nil, reset `quit-restore' parameter to nil.
4311Optional second argument BURY-OR-KILL tells how to proceed with 4311Optional second argument BURY-OR-KILL tells how to proceed with
4312the buffer of WINDOW. The following values are handled: 4312the buffer of WINDOW. The following values are handled:
4313 4313
4314`nil' means to not handle the buffer in a particular way. This 4314nil means to not handle the buffer in a particular way. This
4315 means that if WINDOW is not deleted by this function, invoking 4315 means that if WINDOW is not deleted by this function, invoking
4316 `switch-to-prev-buffer' will usually show the buffer again. 4316 `switch-to-prev-buffer' will usually show the buffer again.
4317 4317
@@ -8107,7 +8107,7 @@ This function is responsible for combining the sizes of the
8107displayed windows and returning a cons (WIDTH . HEIGHT) 8107displayed windows and returning a cons (WIDTH . HEIGHT)
8108describing the width and height with which Emacs will call 8108describing the width and height with which Emacs will call
8109`set-process-window-size' for that process. If the function 8109`set-process-window-size' for that process. If the function
8110returns `nil', Emacs does not call `set-process-window-size'. 8110returns nil, Emacs does not call `set-process-window-size'.
8111 8111
8112This function is called with the process buffer as the current 8112This function is called with the process buffer as the current
8113buffer and with two arguments: the process and a list of windows 8113buffer and with two arguments: the process and a list of windows
diff --git a/lisp/woman.el b/lisp/woman.el
index 611ba743652..75c3d2e3822 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -161,7 +161,7 @@
161 161
162;; The WoMan menu provides an option to make a contents menu for the 162;; The WoMan menu provides an option to make a contents menu for the
163;; current man page (using imenu). Alternatively, if you set the 163;; current man page (using imenu). Alternatively, if you set the
164;; variable `woman-imenu' to `t' then WoMan will do it automatically 164;; variable `woman-imenu' to t then WoMan will do it automatically
165;; for every man page. The menu title is the value of the variable 165;; for every man page. The menu title is the value of the variable
166;; `woman-imenu-title', which is "CONTENTS" by default. By default, 166;; `woman-imenu-title', which is "CONTENTS" by default. By default,
167;; the menu shows manual sections and subsections, but you can change 167;; the menu shows manual sections and subsections, but you can change
@@ -179,7 +179,7 @@
179;; Howard Melman made (essentially) the following suggestions, which 179;; Howard Melman made (essentially) the following suggestions, which
180;; are slightly different from the expression that I currently use. 180;; are slightly different from the expression that I currently use.
181;; You may prefer one of Howard's suggestions, which I think assume 181;; You may prefer one of Howard's suggestions, which I think assume
182;; that `case-fold-search' is `t' (which it is by default): 182;; that `case-fold-search' is t (which it is by default):
183 183
184;; (setq woman-imenu-generic-expression 184;; (setq woman-imenu-generic-expression
185;; '((nil "^\\( \\)?\\([A-Z][A-Z ]+[A-Z]\\)[ \t]*$" 2))) 185;; '((nil "^\\( \\)?\\([A-Z][A-Z ]+[A-Z]\\)[ \t]*$" 2)))
@@ -217,7 +217,7 @@
217;; This is modeled on the byte-compiler. It logs all files formatted 217;; This is modeled on the byte-compiler. It logs all files formatted
218;; by WoMan, and if WoMan finds anything that it cannot handle then it 218;; by WoMan, and if WoMan finds anything that it cannot handle then it
219;; writes a warning to this buffer. If the variable `woman-show-log' 219;; writes a warning to this buffer. If the variable `woman-show-log'
220;; is non-nil (by default it is `nil') then WoMan automatically 220;; is non-nil (by default it is nil) then WoMan automatically
221;; displays this buffer. Many WoMan warnings can be completely 221;; displays this buffer. Many WoMan warnings can be completely
222;; ignored, because they are reporting the fact that WoMan has ignored 222;; ignored, because they are reporting the fact that WoMan has ignored
223;; requests that it is correct to ignore. In some future version this 223;; requests that it is correct to ignore. In some future version this
@@ -228,8 +228,8 @@
228 228
229;; Uninterpreted ?roff requests can optionally be left in the 229;; Uninterpreted ?roff requests can optionally be left in the
230;; formatted buffer to indicate precisely where they occur by 230;; formatted buffer to indicate precisely where they occur by
231;; resetting the variable `woman-ignore' to `nil' (by default it is 231;; resetting the variable `woman-ignore' to nil (by default it is
232;; `t'). 232;; t).
233 233
234;; Automatic initiation of woman decoding 234;; Automatic initiation of woman decoding
235 235
@@ -278,7 +278,7 @@
278;; CASE-DEPENDENCE OF FILENAMES. By default, WoMan ignores case in 278;; CASE-DEPENDENCE OF FILENAMES. By default, WoMan ignores case in
279;; file pathnames only when it seems appropriate. MS-Windows users 279;; file pathnames only when it seems appropriate. MS-Windows users
280;; who want complete case independence should set the NTEmacs variable 280;; who want complete case independence should set the NTEmacs variable
281;; `w32-downcase-file-names' to `t' and use all lower case when 281;; `w32-downcase-file-names' to t and use all lower case when
282;; setting WoMan file paths. 282;; setting WoMan file paths.
283 283
284;; (1) INCOMPATIBLE CHANGE! WoMan no longer uses a persistent topic 284;; (1) INCOMPATIBLE CHANGE! WoMan no longer uses a persistent topic
diff --git a/src/buffer.c b/src/buffer.c
index 148d077ec21..c78d08c53d2 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -6106,7 +6106,7 @@ An entry of the form POSITION indicates that point was at the buffer
6106location given by the integer. Undoing an entry of this form places 6106location given by the integer. Undoing an entry of this form places
6107point at POSITION. 6107point at POSITION.
6108 6108
6109Entries with value `nil' mark undo boundaries. The undo command treats 6109Entries with value nil mark undo boundaries. The undo command treats
6110the changes between two undo boundaries as a single step to be undone. 6110the changes between two undo boundaries as a single step to be undone.
6111 6111
6112If the value of the variable is t, undo information is not recorded. */); 6112If the value of the variable is t, undo information is not recorded. */);
diff --git a/src/font.c b/src/font.c
index 355353a4f4a..2ade45fd73a 100644
--- a/src/font.c
+++ b/src/font.c
@@ -3866,7 +3866,7 @@ required OpenType features.
3866 GSUB: List of OpenType GSUB feature tag symbols, or nil if none required. 3866 GSUB: List of OpenType GSUB feature tag symbols, or nil if none required.
3867 GPOS: List of OpenType GPOS feature tag symbols, or nil if none required. 3867 GPOS: List of OpenType GPOS feature tag symbols, or nil if none required.
3868 3868
3869GSUB and GPOS may contain `nil' element. In such a case, the font 3869GSUB and GPOS may contain nil elements. In such a case, the font
3870must not have any of the remaining elements. 3870must not have any of the remaining elements.
3871 3871
3872For instance, if the VALUE is `(thai nil nil (mark))', the font must 3872For instance, if the VALUE is `(thai nil nil (mark))', the font must
@@ -5011,7 +5011,7 @@ build_style_table (const struct table_entry *entry, int nelement)
5011static Lisp_Object Vfont_log_deferred; 5011static Lisp_Object Vfont_log_deferred;
5012 5012
5013/* Prepend the font-related logging data in Vfont_log if it is not 5013/* Prepend the font-related logging data in Vfont_log if it is not
5014 `t'. ACTION describes a kind of font-related action (e.g. listing, 5014 t. ACTION describes a kind of font-related action (e.g. listing,
5015 opening), ARG is the argument for the action, and RESULT is the 5015 opening), ARG is the argument for the action, and RESULT is the
5016 result of the action. */ 5016 result of the action. */
5017void 5017void
diff --git a/src/frame.c b/src/frame.c
index edf656694b7..478bb00337b 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -5152,7 +5152,7 @@ a non-nil value in your init file. */);
5152If this option is nil, setting font, menu bar, tool bar, internal 5152If this option is nil, setting font, menu bar, tool bar, internal
5153borders, fringes or scroll bars of a specific frame may resize the frame 5153borders, fringes or scroll bars of a specific frame may resize the frame
5154in order to preserve the number of columns or lines it displays. If 5154in order to preserve the number of columns or lines it displays. If
5155this option is `t', no such resizing is done. Note that the size of 5155this option is t, no such resizing is done. Note that the size of
5156fullscreen and maximized frames, the height of fullheight frames and the 5156fullscreen and maximized frames, the height of fullheight frames and the
5157width of fullwidth frames never change implicitly. 5157width of fullwidth frames never change implicitly.
5158 5158
@@ -5168,14 +5168,14 @@ Changing any of the parameters `scroll-bar-width', `scroll-bar-height',
5168window. This means, for example, that removing vertical scroll bars on 5168window. This means, for example, that removing vertical scroll bars on
5169a frame containing several side by side windows will shrink the frame 5169a frame containing several side by side windows will shrink the frame
5170width by the width of one scroll bar provided this option is nil and 5170width by the width of one scroll bar provided this option is nil and
5171keep it unchanged if this option is either `t' or a list containing 5171keep it unchanged if this option is either t or a list containing
5172`vertical-scroll-bars'. 5172`vertical-scroll-bars'.
5173 5173
5174The default value is '(tool-bar-lines) on Lucid, Motif and Windows 5174The default value is '(tool-bar-lines) on Lucid, Motif and Windows
5175\(which means that adding/removing a tool bar does not change the frame 5175\(which means that adding/removing a tool bar does not change the frame
5176height), nil on all other window systems including GTK+ (which means 5176height), nil on all other window systems including GTK+ (which means
5177that changing any of the parameters listed above may change the size of 5177that changing any of the parameters listed above may change the size of
5178the frame), and `t' otherwise (which means the frame size never changes 5178the frame), and t otherwise (which means the frame size never changes
5179implicitly when there's no window system support). 5179implicitly when there's no window system support).
5180 5180
5181Note that when a frame is not large enough to accommodate a change of 5181Note that when a frame is not large enough to accommodate a change of
diff --git a/src/gnutls.c b/src/gnutls.c
index 9b8ae2bd1a8..9c2d86ecdfc 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -1181,7 +1181,7 @@ gnutls_certificate_set_verify_flags.
1181instead. 1181instead.
1182 1182
1183:verify-error is a list of symbols to express verification checks or 1183:verify-error is a list of symbols to express verification checks or
1184`t' to do all checks. Currently it can contain `:trustfiles' and 1184t to do all checks. Currently it can contain `:trustfiles' and
1185`:hostname' to verify the certificate or the hostname respectively. 1185`:hostname' to verify the certificate or the hostname respectively.
1186 1186
1187:min-prime-bits is the minimum accepted number of bits the client will 1187:min-prime-bits is the minimum accepted number of bits the client will
diff --git a/src/keymap.c b/src/keymap.c
index d10c00489d1..e9898051dc7 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -498,7 +498,7 @@ access_keymap_1 (Lisp_Object map, Lisp_Object idx,
498 if (INTEGERP (idx) && (XFASTINT (idx) & CHAR_MODIFIER_MASK) == 0) 498 if (INTEGERP (idx) && (XFASTINT (idx) & CHAR_MODIFIER_MASK) == 0)
499 { 499 {
500 val = Faref (binding, idx); 500 val = Faref (binding, idx);
501 /* `nil' has a special meaning for char-tables, so 501 /* nil has a special meaning for char-tables, so
502 we use something else to record an explicitly 502 we use something else to record an explicitly
503 unbound entry. */ 503 unbound entry. */
504 if (NILP (val)) 504 if (NILP (val))
@@ -849,7 +849,7 @@ store_in_keymap (Lisp_Object keymap, register Lisp_Object idx, Lisp_Object def)
849 if (NATNUMP (idx) && !(XFASTINT (idx) & CHAR_MODIFIER_MASK)) 849 if (NATNUMP (idx) && !(XFASTINT (idx) & CHAR_MODIFIER_MASK))
850 { 850 {
851 Faset (elt, idx, 851 Faset (elt, idx,
852 /* `nil' has a special meaning for char-tables, so 852 /* nil has a special meaning for char-tables, so
853 we use something else to record an explicitly 853 we use something else to record an explicitly
854 unbound entry. */ 854 unbound entry. */
855 NILP (def) ? Qt : def); 855 NILP (def) ? Qt : def);
diff --git a/src/nsfns.m b/src/nsfns.m
index 8a3c6ccf2b0..6a2e2ff14a4 100644
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -749,7 +749,7 @@ ns_implicitly_set_icon_type (struct frame *f)
749 chain = XCDR (chain)) 749 chain = XCDR (chain))
750 { 750 {
751 elt = XCAR (chain); 751 elt = XCAR (chain);
752 /* special case: 't' means go by file type */ 752 /* special case: t means go by file type */
753 if (SYMBOLP (elt) && EQ (elt, Qt) && SSDATA (f->name)[0] == '/') 753 if (SYMBOLP (elt) && EQ (elt, Qt) && SSDATA (f->name)[0] == '/')
754 { 754 {
755 NSString *str 755 NSString *str
@@ -2836,13 +2836,13 @@ elements (all size values are in pixels).
2836 2836
2837- `title-bar-height' is the height of the title bar of FRAME. 2837- `title-bar-height' is the height of the title bar of FRAME.
2838 2838
2839- `menu-bar-external' if `t' means the menu bar is external (not 2839- `menu-bar-external' if t means the menu bar is external (not
2840 included in the inner edges of FRAME). 2840 included in the inner edges of FRAME).
2841 2841
2842- `menu-bar-size' is a cons of the width and height of the menu bar of 2842- `menu-bar-size' is a cons of the width and height of the menu bar of
2843 FRAME. 2843 FRAME.
2844 2844
2845- `tool-bar-external' if `t' means the tool bar is external (not 2845- `tool-bar-external' if t means the tool bar is external (not
2846 included in the inner edges of FRAME). 2846 included in the inner edges of FRAME).
2847 2847
2848- `tool-bar-side' tells tells on which side the tool bar on FRAME is and 2848- `tool-bar-side' tells tells on which side the tool bar on FRAME is and
diff --git a/src/w32fns.c b/src/w32fns.c
index b9d7bd4d75b..3a6fa624056 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -7535,13 +7535,13 @@ elements (all size values are in pixels).
7535 7535
7536- `title-bar-height' is the height of the title bar of FRAME. 7536- `title-bar-height' is the height of the title bar of FRAME.
7537 7537
7538- `menu-bar-external' if `t' means the menu bar is by default external 7538- `menu-bar-external' if t means the menu bar is by default external
7539 (not included in the inner size of FRAME). 7539 (not included in the inner size of FRAME).
7540 7540
7541- `menu-bar-size' is a cons of the width and height of the menu bar of 7541- `menu-bar-size' is a cons of the width and height of the menu bar of
7542 FRAME. 7542 FRAME.
7543 7543
7544- `tool-bar-external' if `t' means the tool bar is by default external 7544- `tool-bar-external' if t means the tool bar is by default external
7545 (not included in the inner size of FRAME). 7545 (not included in the inner size of FRAME).
7546 7546
7547- `tool-bar-side' tells tells on which side the tool bar on FRAME is by 7547- `tool-bar-side' tells tells on which side the tool bar on FRAME is by
diff --git a/src/xfns.c b/src/xfns.c
index bd1db1013d0..03ef8136ae2 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -4316,13 +4316,13 @@ elements (all size values are in pixels).
4316 4316
4317- `title-bar-height' is the height of the title bar of FRAME. 4317- `title-bar-height' is the height of the title bar of FRAME.
4318 4318
4319- `menu-bar-external' if `t' means the menu bar is external (not 4319- `menu-bar-external' if t means the menu bar is external (not
4320 included in the inner edges of FRAME). 4320 included in the inner edges of FRAME).
4321 4321
4322- `menu-bar-size' is a cons of the width and height of the menu bar of 4322- `menu-bar-size' is a cons of the width and height of the menu bar of
4323 FRAME. 4323 FRAME.
4324 4324
4325- `tool-bar-external' if `t' means the tool bar is external (not 4325- `tool-bar-external' if t means the tool bar is external (not
4326 included in the inner edges of FRAME). 4326 included in the inner edges of FRAME).
4327 4327
4328- `tool-bar-side' tells tells on which side the tool bar on FRAME is and 4328- `tool-bar-side' tells tells on which side the tool bar on FRAME is and
diff --git a/test/automated/data/package/newer-versions/simple-single-1.4.el b/test/automated/data/package/newer-versions/simple-single-1.4.el
index 7d8178c05a5..7b1c00c06db 100644
--- a/test/automated/data/package/newer-versions/simple-single-1.4.el
+++ b/test/automated/data/package/newer-versions/simple-single-1.4.el
@@ -19,7 +19,7 @@
19 19
20(defcustom simple-single-super-sunday nil 20(defcustom simple-single-super-sunday nil
21 "How great is this? 21 "How great is this?
22Default changed to `nil'." 22Default changed to nil."
23 :type 'boolean 23 :type 'boolean
24 :group 'simple-single 24 :group 'simple-single
25 :package-version "1.4") 25 :package-version "1.4")
diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el
index 8e3a7918c80..46d287fe60d 100644
--- a/test/automated/file-notify-tests.el
+++ b/test/automated/file-notify-tests.el
@@ -72,7 +72,7 @@
72(defun file-notify--test-local-enabled () 72(defun file-notify--test-local-enabled ()
73 "Whether local file notification is enabled. 73 "Whether local file notification is enabled.
74This is needed for local `temporary-file-directory' only, in the 74This is needed for local `temporary-file-directory' only, in the
75remote case we return always `t'." 75remote case we return always t."
76 (or file-notify--library 76 (or file-notify--library
77 (file-remote-p temporary-file-directory))) 77 (file-remote-p temporary-file-directory)))
78 78
diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index ed2e3cf25aa..677bfa613fc 100644
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -124,7 +124,7 @@
124 ,@(if upload-base 124 ,@(if upload-base
125 '((package-test-archive-upload-base (make-temp-file "pkg-archive-base-" t)) 125 '((package-test-archive-upload-base (make-temp-file "pkg-archive-base-" t))
126 (package-archive-upload-base package-test-archive-upload-base)) 126 (package-archive-upload-base package-test-archive-upload-base))
127 (list (cl-gensym)))) ;; Dummy value so `let' doesn't try to bind `nil' 127 (list (cl-gensym)))) ;; Dummy value so `let' doesn't try to bind nil
128 (let ((buf (get-buffer "*Packages*"))) 128 (let ((buf (get-buffer "*Packages*")))
129 (when (buffer-live-p buf) 129 (when (buffer-live-p buf)
130 (kill-buffer buf))) 130 (kill-buffer buf)))