Mercurial > emacs

changeset 42206:0f4506820432

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc fix.
author Pavel Janík <Pavel@Janik.cz>
date Thu, 20 Dec 2001 19:01:00 +0000
parents 7308bbc423d5
children faa8a0e40250
files lisp/bookmark.el lisp/calc/calc-ext.el lisp/calc/calc-forms.el lisp/calc/calc-math.el lisp/calc/calc-mtx.el lisp/cvs-status.el lisp/dired.el lisp/ediff-merg.el lisp/emacs-lisp/byte-opt.el lisp/emacs-lisp/cl-macs.el lisp/emacs-lisp/elint.el lisp/emacs-lisp/elp.el lisp/emacs-lisp/ewoc.el lisp/emulation/edt-mapper.el lisp/emulation/edt.el lisp/emulation/tpu-mapper.el lisp/emulation/ws-mode.el lisp/gnus/gnus-art.el lisp/gnus/gnus-sum.el lisp/gnus/mailcap.el lisp/gnus/mm-util.el lisp/gnus/nnfolder.el lisp/gnus/nnmail.el lisp/ls-lisp.el lisp/mail/feedmail.el lisp/mail/mh-pick.el lisp/mail/supercite.el lisp/msb.el lisp/pcvs.el lisp/play/decipher.el lisp/play/mpuz.el lisp/progmodes/ada-mode.el lisp/terminal.el lisp/textmodes/ispell.el lisp/vc-cvs.el src/keymap.c src/lread.c src/w32term.c src/xdisp.c src/xfaces.c src/xterm.c
diffstat 41 files changed, 51 insertions(+), 48 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bookmark.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/bookmark.el	Thu Dec 20 19:01:00 2001 +0000
@@ -169,7 +169,7 @@
 
 
 (defcustom bookmark-automatically-show-annotations t
-  "*Nil means don't show annotations when jumping to a bookmark."
+  "*nil means don't show annotations when jumping to a bookmark."
   :type 'boolean
   :group 'bookmark)
 
--- a/lisp/calc/calc-ext.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/calc/calc-ext.el	Thu Dec 20 19:01:00 2001 +0000
@@ -3269,7 +3269,7 @@
 
 ;;; Users can redefine this in their .emacs files.
 (defvar calc-keypad-user-menu nil
-  "If not NIL, this describes an additional menu for calc-keypad.
+  "If non-nil, this describes an additional menu for calc-keypad.
 It should contain a list of three rows.
 Each row should be a list of six keys.
 Each key should be a list of a label string, plus a Calc command name spec.
--- a/lisp/calc/calc-forms.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/calc/calc-forms.el	Thu Dec 20 19:01:00 2001 +0000
@@ -1475,7 +1475,7 @@
 
 
 ;;; Compute the date a certain number of business days since Jan 1, 1 AD.
-;;; If this returns NIL, holiday table was adjusted; redo calculation.
+;;; If this returns nil, holiday table was adjusted; redo calculation.
 
 (defun math-from-business-day (num)
   (let* ((day (math-floor num))
--- a/lisp/calc/calc-math.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/calc/calc-math.el	Thu Dec 20 19:01:00 2001 +0000
@@ -271,7 +271,7 @@
     (math-floor (math-sqrt a))))
 
 
-;;; This returns (flag . result) where the flag is T if A is a perfect square.
+;;; This returns (flag . result) where the flag is t if A is a perfect square.
 (defun math-isqrt-bignum (a)   ; [P.l L]
   (let ((len (length a)))
     (if (= (% len 2) 0)
--- a/lisp/calc/calc-mtx.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/calc/calc-mtx.el	Thu Dec 20 19:01:00 2001 +0000
@@ -219,7 +219,7 @@
       (math-det-step (1- n) (math-mul prod (nth n (nth n lu))))
     prod))
 
-;;; This returns a list (LU index d), or NIL if not possible.
+;;; This returns a list (LU index d), or nil if not possible.
 ;;; Argument M must be a square matrix.
 (defvar math-lud-cache nil)
 (defun math-matrix-lud (m)
--- a/lisp/cvs-status.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/cvs-status.el	Thu Dec 20 19:01:00 2001 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs cvs status tree
-;; Revision: $Id: cvs-status.el,v 1.9 2000/12/06 19:50:12 fx Exp $
+;; Revision: $Id: cvs-status.el,v 1.10 2000/12/18 03:17:31 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -306,7 +306,7 @@
 
 (defun cvs-status-get-tags ()
   "Look for a list of tags, read them in and delete them.
-Returns NIL if there was an empty list of tags and T if there wasn't
+Return nil if there was an empty list of tags and t if there wasn't
 even a list.  Else, return the list of tags where each element of
 the list is a three-string list TAG, KIND, REV."
   (let ((tags nil))
@@ -516,6 +516,9 @@
 
 ;;; Change Log:
 ;; $Log: cvs-status.el,v $
+;; Revision 1.10  2000/12/18 03:17:31  monnier
+;; Remove useless Version.
+;;
 ;; Revision 1.9  2000/12/06 19:50:12  fx
 ;; Fix copyright years.
 ;;
--- a/lisp/dired.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/dired.el	Thu Dec 20 19:01:00 2001 +0000
@@ -1944,7 +1944,7 @@
 
 (defcustom dired-recursive-deletes nil ; Default only delete empty directories.
   "*Decide whether recursive deletes are allowed.
-Nil means no recursive deletes.
+nil means no recursive deletes.
 `always' means delete recursively without asking.  This is DANGEROUS!
 `top' means ask for each directory at top level, but delete its subdirectories
 without asking.
--- a/lisp/ediff-merg.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/ediff-merg.el	Thu Dec 20 19:01:00 2001 +0000
@@ -82,7 +82,7 @@
 (defcustom ediff-show-clashes-only nil
   "*If t, show only those diff regions where both buffers disagree with the ancestor.
 This means that regions that have status prefer-A or prefer-B will be
-skipped over.  Nil means show all regions."
+skipped over.  nil means show all regions."
   :type 'boolean
   :group 'ediff-merge
   )
--- a/lisp/emacs-lisp/byte-opt.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Thu Dec 20 19:01:00 2001 +0000
@@ -1235,7 +1235,7 @@
 (defun disassemble-offset ()
   "Don't call this!"
   ;; fetch and return the offset for the current opcode.
-  ;; return NIL if this opcode has no offset
+  ;; return nil if this opcode has no offset
   ;; OP, PTR and BYTES are used and set dynamically
   (defvar op)
   (defvar ptr)
--- a/lisp/emacs-lisp/cl-macs.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Thu Dec 20 19:01:00 2001 +0000
@@ -2376,7 +2376,7 @@
 	  v)
       (if (eq x (car v)) (cdr v) '(t)))))
 
-;;; Count number of times X refers to Y.  Return NIL for 0 times.
+;;; Count number of times X refers to Y.  Return nil for 0 times.
 (defun cl-expr-contains (x y)
   (cond ((equal y x) 1)
 	((and (consp x) (not (memq (car-safe x) '(quote function function*))))
--- a/lisp/emacs-lisp/elint.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emacs-lisp/elint.el	Thu Dec 20 19:01:00 2001 +0000
@@ -214,7 +214,7 @@
 
 (defun elint-find-next-top-form ()
   "Find the next top form from point.
-Returns nil if there are no more forms, T otherwise."
+Return nil if there are no more forms, t otherwise."
   (parse-partial-sexp (point) (point-max) nil t)
   (not (eobp)))
 
--- a/lisp/emacs-lisp/elp.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emacs-lisp/elp.el	Thu Dec 20 19:01:00 2001 +0000
@@ -177,7 +177,7 @@
   :group 'elp)
 
 (defcustom elp-recycle-buffers-p t
-  "*Nil says to not recycle the `elp-results-buffer'.
+  "*nil says to not recycle the `elp-results-buffer'.
 In other words, a new unique buffer is create every time you run
 \\[elp-results]."
   :type 'boolean
--- a/lisp/emacs-lisp/ewoc.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emacs-lisp/ewoc.el	Thu Dec 20 19:01:00 2001 +0000
@@ -375,7 +375,7 @@
 
 (defun ewoc-nth (ewoc n)
   "Return the Nth node.
-N counts from zero. Nil is returned if there is less than N elements.
+N counts from zero.  Return nil if there is less than N elements.
 If N is negative, return the -(N+1)th last element.
 Thus, (ewoc-nth dll 0) returns the first node,
 and (ewoc-nth dll -1) returns the last node.
--- a/lisp/emulation/edt-mapper.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emulation/edt-mapper.el	Thu Dec 20 19:01:00 2001 +0000
@@ -119,7 +119,7 @@
 ;;;  Determine Window System, and X Server Vendor (if appropriate).
 ;;;
 (defconst edt-x-emacs-p (string-match "XEmacs" emacs-version)
-  "Non-NIL if we are running XEmacs version 19, or higher.")
+  "Non-nil if we are running XEmacs version 19, or higher.")
 
 (defconst edt-emacs-variant (if edt-x-emacs-p "xemacs" "gnu")
   "Indicates Emacs variant:  GNU Emacs or XEmacs \(aka Lucid Emacs\).")
--- a/lisp/emulation/edt.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emulation/edt.el	Thu Dec 20 19:01:00 2001 +0000
@@ -337,7 +337,7 @@
 
 (defvar edt-default-map-active nil
   "Non-nil indicates that default EDT emulation key bindings are active.
-Nil means user-defined custom bindings are active.")
+nil means user-defined custom bindings are active.")
 
 (defvar edt-user-map-configured nil
   "Non-nil indicates that user custom EDT key bindings are configured.
--- a/lisp/emulation/tpu-mapper.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emulation/tpu-mapper.el	Thu Dec 20 19:01:00 2001 +0000
@@ -80,7 +80,7 @@
 ;;;  Decide whether we're running Lucid Emacs or Emacs itself.
 ;;;
 (defconst tpu-lucid-emacs19-p (string-match "Lucid" emacs-version)
-  "Non-NIL if we are running Lucid Emacs version 19.")
+  "Non-nil if we are running Lucid Emacs version 19.")
 
 
 ;;;
--- a/lisp/emulation/ws-mode.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/emulation/ws-mode.el	Thu Dec 20 19:01:00 2001 +0000
@@ -369,7 +369,7 @@
 
 (defvar ws-search-string nil "String of last search in WordStar mode.")
 (defvar ws-search-direction t 
-  "Direction of last search in WordStar mode. T if forward, NIL if backward.")
+  "Direction of last search in WordStar mode. t if forward, nil if backward.")
 
 (defvar ws-last-cursorposition nil 
   "Position before last search etc. in WordStar mode.")
--- a/lisp/gnus/gnus-art.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/gnus/gnus-art.el	Thu Dec 20 19:01:00 2001 +0000
@@ -1963,7 +1963,7 @@
 
 (defun gnus-article-check-hidden-text (type arg)
   "Return nil if hiding is necessary.
-Arg can be nil or a number.  Nil and positive means hide, negative
+Arg can be nil or a number.  nil and positive means hide, negative
 means show, 0 means toggle."
   (save-excursion
     (save-restriction
--- a/lisp/gnus/gnus-sum.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/gnus/gnus-sum.el	Thu Dec 20 19:01:00 2001 +0000
@@ -5972,7 +5972,7 @@
   (unless (eq major-mode 'gnus-summary-mode)
     (set-buffer gnus-summary-buffer))
   (let ((article (or article (gnus-summary-article-number)))
-	(all-headers (not (not all-headers))) ;Must be T or NIL.
+	(all-headers (not (not all-headers))) ;Must be t or nil.
 	gnus-summary-display-article-function)
     (and (not pseudo)
 	 (gnus-summary-article-pseudo-p article)
--- a/lisp/gnus/mailcap.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/gnus/mailcap.el	Thu Dec 20 19:01:00 2001 +0000
@@ -274,7 +274,7 @@
 
 (defcustom mailcap-download-directory nil
   "*Directory to which `mailcap-save-binary-file' downloads files by default.
-Nil means your home directory."
+nil means your home directory."
   :type '(choice (const :tag "Home directory" nil)
 		 directory)
   :group 'mailcap)
--- a/lisp/gnus/mm-util.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/gnus/mm-util.el	Thu Dec 20 19:01:00 2001 +0000
@@ -491,7 +491,7 @@
 
 (defun mm-find-mime-charset-region (b e &optional hack-charsets)
   "Return the MIME charsets needed to encode the region between B and E.
-Nil means ASCII, a single-element list represents an appropriate MIME
+nil means ASCII, a single-element list represents an appropriate MIME
 charset, and a longer list means no appropriate charset."
   (let (charsets)
     ;; The return possibilities of this function are a mess...
--- a/lisp/gnus/nnfolder.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/gnus/nnfolder.el	Thu Dec 20 19:01:00 2001 +0000
@@ -99,7 +99,7 @@
 (defvoo nnfolder-file-coding-system mm-text-coding-system)
 (defvoo nnfolder-file-coding-system-for-write nnheader-file-coding-system
   "Coding system for save nnfolder file.
-If NIL, NNFOLDER-FILE-CODING-SYSTEM is used.")
+If nil, `nnfolder-file-coding-system' is used.")
 
 
 
--- a/lisp/gnus/nnmail.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/gnus/nnmail.el	Thu Dec 20 19:01:00 2001 +0000
@@ -318,7 +318,7 @@
 \(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message
   field FIELD (a regexp) contains VALUE (a regexp), store the messages 
   as specified by SPLIT.  If RESTRICT (a regexp) matches some string
-  after FIELD and before the end of the matched VALUE, return NIL,
+  after FIELD and before the end of the matched VALUE, return nil,
   otherwise process SPLIT.  Multiple RESTRICTs add up, further
   restricting the possibility of processing SPLIT.
 
--- a/lisp/ls-lisp.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/ls-lisp.el	Thu Dec 20 19:01:00 2001 +0000
@@ -113,7 +113,7 @@
 	(t '(links uid gid)))		; GNU ls
   "*A list of optional file attributes that ls-lisp should display.
 It should contain none or more of the symbols: links, uid, gid.
-Nil (or an empty list) means display none of them.
+nil (or an empty list) means display none of them.
 
 Concepts come from UNIX: `links' means count of names associated with
 the file\; `uid' means user (owner) identifier\; `gid' means group
--- a/lisp/mail/feedmail.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/mail/feedmail.el	Thu Dec 20 19:01:00 2001 +0000
@@ -684,7 +684,7 @@
 
 (defcustom feedmail-fiddle-headers-upwardly t
   "*Non-nil means fiddled header fields should go at the top of the header.
-Nil means insert them at the bottom.  This is mostly a novelty issue since
+nil means insert them at the bottom.  This is mostly a novelty issue since
 the standards define the ordering of header fields to be immaterial and it's
 fairly likely that some MTA along the way will have its own idea of what the
 order should be, regardless of what you specify."
--- a/lisp/mail/mh-pick.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/mail/mh-pick.el	Thu Dec 20 19:01:00 2001 +0000
@@ -1,5 +1,5 @@
 ;;; mh-pick.el --- make a search pattern and search for a message in mh-e
-;; Time-stamp: <2001-07-14 13:09:34 pavel>
+;; Time-stamp: <2001-12-20 18:55:31 pavel>
 
 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
 
@@ -26,7 +26,7 @@
 
 ;;; Change Log:
 
-;; $Id: mh-pick.el,v 1.5 1996/01/14 07:34:30 erik Exp $
+;; $Id: mh-pick.el,v 1.6 2001/07/15 19:53:53 pj Exp $
 
 ;;; Code:
 
@@ -154,7 +154,7 @@
   ;; Return the next piece of a pick argument that can be extracted from the
   ;; BUFFER.
   ;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat")
-  ;; or NIL if no pieces remain.
+  ;; or nil if no pieces remain.
   (set-buffer buffer)
   (let ((case-fold-search t))
     (cond ((eobp)
--- a/lisp/mail/supercite.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/mail/supercite.el	Thu Dec 20 19:01:00 2001 +0000
@@ -1866,7 +1866,7 @@
 
 (defun sc-toggle-var (variable)
   "Boolean toggle VARIABLE's value.
-VARIABLE must be a bound symbol.  Nil values change to t, non-nil
+VARIABLE must be a bound symbol.  nil values change to t, non-nil
 values are changed to nil."
   (message "%s changed from %s to %s"
 	   variable (symbol-value variable)
--- a/lisp/msb.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/msb.el	Thu Dec 20 19:01:00 2001 +0000
@@ -282,7 +282,7 @@
 (defcustom msb-max-menu-items 15
   "*The maximum number of items in a menu.
 If this variable is set to 15 for instance, then the submenu will be
-split up in minor parts, 15 items each.  Nil means no limit."
+split up in minor parts, 15 items each.  nil means no limit."
   :type '(choice integer (const nil))
   :set 'msb-custom-set
   :group 'msb)
--- a/lisp/pcvs.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/pcvs.el	Thu Dec 20 19:01:00 2001 +0000
@@ -13,7 +13,7 @@
 ;;	(Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.30 2001/10/30 04:41:28 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.31 2001/12/02 07:40:43 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2079,7 +2079,7 @@
 ;;;###autoload
 (defcustom cvs-dired-use-hook '(4)
   "Whether or not opening a CVS directory should run PCL-CVS.
-NIL means never do it.
+nil means never do it.
 ALWAYS means to always do it unless a prefix argument is given to the
   command that prompted the opening of the directory.
 Anything else means to do it only if the prefix arg is equal to this value."
--- a/lisp/play/decipher.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/play/decipher.el	Thu Dec 20 19:01:00 2001 +0000
@@ -100,7 +100,7 @@
 
 (defcustom decipher-force-uppercase t
   "*Non-nil means to convert ciphertext to uppercase.
-Nil means the case of the ciphertext is preserved.
+nil means the case of the ciphertext is preserved.
 This variable must be set before typing `\\[decipher]'."
   :type 'boolean
   :group 'decipher)
--- a/lisp/play/mpuz.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/play/mpuz.el	Thu Dec 20 19:01:00 2001 +0000
@@ -39,7 +39,7 @@
 (random t)				; randomize
 
 (defcustom mpuz-silent nil
-  "*Set this to T if you don't want dings on inputs."
+  "*Set this to t if you don't want dings on inputs."
   :type 'boolean
   :group 'mpuz)
 
--- a/lisp/progmodes/ada-mode.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/progmodes/ada-mode.el	Thu Dec 20 19:01:00 2001 +0000
@@ -7,7 +7,7 @@
 ;;      Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de>
 ;;      Emmanuel Briot  <briot@gnat.com>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.45 $
+;; Ada Core Technologies's version:   $Revision: 1.46 $
 ;; Keywords: languages ada
 
 ;; This file is part of GNU Emacs.
@@ -241,7 +241,7 @@
 
 (defcustom ada-indent-comment-as-code t
   "*Non-nil means indent comment lines as code.
-Nil means do not auto-indent comments."
+nil means do not auto-indent comments."
   :type 'boolean :group 'ada)
 
 (defcustom ada-indent-is-separate t
--- a/lisp/terminal.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/terminal.el	Thu Dec 20 19:01:00 2001 +0000
@@ -60,7 +60,7 @@
   :type 'character
   :group 'terminal)
 
-(defcustom terminal-scrolling t ;;>> Setting this to T sort-of defeats my whole aim in writing this package...
+(defcustom terminal-scrolling t ;;>> Setting this to t sort-of defeats my whole aim in writing this package...
   "*If non-nil, the terminal-emulator will losingly `scroll' when output occurs
 past the bottom of the screen.  If nil, output will win and `wrap' to the top
 of the screen.
--- a/lisp/textmodes/ispell.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/textmodes/ispell.el	Thu Dec 20 19:01:00 2001 +0000
@@ -2104,7 +2104,7 @@
    ORIGINAL-WORD is a string of the possibly misspelled word.
    OFFSET is an integer giving the line offset of the word.
    MISS-LIST and GUESS-LIST are possibly null lists of guesses and misses.
-4: Nil when an error has occurred.
+4: nil when an error has occurred.
 
 Optional second arg ACCEPT-LIST is list of words already accepted.
 Optional third arg SHIFT is an offset to apply based on previous corrections."
--- a/lisp/vc-cvs.el	Thu Dec 20 18:59:32 2001 +0000
+++ b/lisp/vc-cvs.el	Thu Dec 20 19:01:00 2001 +0000
@@ -5,7 +5,7 @@
 ;; Author:      FSF (see vc.el for full credits)
 ;; Maintainer:  Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-cvs.el,v 1.27 2001/11/25 23:52:51 monnier Exp $
+;; $Id: vc-cvs.el,v 1.28 2001/11/30 13:47:39 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -561,7 +561,7 @@
 
 (defun vc-cvs-annotate-time ()
   "Return the time of the next annotation (as fraction of days)
-systime , or NIL if there is none."
+systime, or nil if there is none."
   (let ((time-stamp 
 	 "^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): "))
     (if (looking-at time-stamp)
--- a/src/keymap.c	Thu Dec 20 18:59:32 2001 +0000
+++ b/src/keymap.c	Thu Dec 20 19:01:00 2001 +0000
@@ -1045,7 +1045,7 @@
     }
 }
 
-/* Value is number if KEY is too long; NIL if valid but has no definition. */
+/* Value is number if KEY is too long; nil if valid but has no definition. */
 /* GC is possible in this function if it autoloads a keymap.  */
 
 DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
--- a/src/lread.c	Thu Dec 20 18:59:32 2001 +0000
+++ b/src/lread.c	Thu Dec 20 19:01:00 2001 +0000
@@ -3229,8 +3229,8 @@
   SET_SYMBOL_VALUE (sym, val);
 }
 
-/* Similar but define a variable whose value is T if address contains 1,
-   NIL if address contains 0 */
+/* Similar but define a variable whose value is t if address contains 1,
+   nil if address contains 0 */
 void
 defvar_bool (namestring, address)
      char *namestring;
--- a/src/w32term.c	Thu Dec 20 18:59:32 2001 +0000
+++ b/src/w32term.c	Thu Dec 20 19:01:00 2001 +0000
@@ -11113,7 +11113,7 @@
   DEFVAR_BOOL ("x-use-underline-position-properties",
 	       &x_use_underline_position_properties,
 	       doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
-Nil means ignore them.  If you encounter fonts with bogus
+nil means ignore them.  If you encounter fonts with bogus
 UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
 to 4.1, set this to nil.  */);
   x_use_underline_position_properties = 1;
--- a/src/xdisp.c	Thu Dec 20 18:59:32 2001 +0000
+++ b/src/xdisp.c	Thu Dec 20 19:01:00 2001 +0000
@@ -14952,7 +14952,7 @@
   DEFVAR_BOOL ("cursor-in-non-selected-windows",
 	       &cursor_in_non_selected_windows,
     doc: /* *Non-nil means display a hollow cursor in non-selected windows.
-Nil means don't display a cursor there.  */);
+nil means don't display a cursor there.  */);
   cursor_in_non_selected_windows = 1;
   
   DEFVAR_BOOL ("automatic-hscrolling", &automatic_hscrolling_p,
--- a/src/xfaces.c	Thu Dec 20 18:59:32 2001 +0000
+++ b/src/xfaces.c	Thu Dec 20 19:01:00 2001 +0000
@@ -3330,7 +3330,7 @@
    elements, this macro begins consing in order to keep more precise
    track of elements.
 
-   Returns NIL if a cycle was detected, otherwise a new value for CHECK
+   Returns nil if a cycle was detected, otherwise a new value for CHECK
    that includes EL.
 
    CHECK is evaluated multiple times, EL and SUSPICIOUS 0 or 1 times, so
--- a/src/xterm.c	Thu Dec 20 18:59:32 2001 +0000
+++ b/src/xterm.c	Thu Dec 20 19:01:00 2001 +0000
@@ -14871,7 +14871,7 @@
   DEFVAR_BOOL ("x-use-underline-position-properties",
 	       &x_use_underline_position_properties,
      doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
-Nil means ignore them.  If you encounter fonts with bogus
+nil means ignore them.  If you encounter fonts with bogus
 UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
 to 4.1, set this to nil.  */);
   x_use_underline_position_properties = 1;