Commit 0ff9b955 authored by Pavel Janík's avatar Pavel Janík

Doc fixes.

parent 3c08498a
......@@ -239,8 +239,8 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Address of the author of Calc, for use by report-calc-bug.
(defvar calc-bug-address "walters@debian.org")
;; If T, scan keymaps to find all DEL-like keys.
;; If NIL, only DEL itself is mapped to calc-pop.
;; If t, scan keymaps to find all DEL-like keys.
;; if nil, only DEL itself is mapped to calc-pop.
(defvar calc-scan-for-dels t)
(defvar calc-extensions-loaded nil)
......@@ -253,16 +253,16 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; This is 1 unless calc-truncate-stack has been used.
;;(defvar calc-stack-top 1)
;; If non-NIL, load the calc-ext module automatically when calc is loaded.
;; If non-nil, load the calc-ext module automatically when calc is loaded.
;;(defvar calc-always-load-extensions nil)
;; If non-NIL, display line numbers in Calculator stack.
;; If non-nil, display line numbers in Calculator stack.
;;(defvar calc-line-numbering t)
;; If non-NIL, break long values across multiple lines in Calculator stack.
;; If non-nil, break long values across multiple lines in Calculator stack.
;;(defvar calc-line-breaking t)
;; If NIL, stack display is left-justified.
;; If nil, stack display is left-justified.
;; If 'right, stack display is right-justified.
;; If 'center, stack display is centered."
;;(defvar calc-display-just nil)
......@@ -276,10 +276,10 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Radix for entry and display of numbers in calc-mode, 2-36.
;;(defvar calc-number-radix 10)
;; If non-NIL, leading zeros are provided to pad integers to calc-word-size.
;; If non-nil, leading zeros are provided to pad integers to calc-word-size.
;;(defvar calc-leading-zeros nil)
;; If non-NIL, group digits in large displayed integers by inserting spaces.
;; If non-nil, group digits in large displayed integers by inserting spaces.
;; If an integer, group that many digits at a time.
;; If 't', use 4 for binary and hex, 3 otherwise.
;;(defvar calc-group-digits nil)
......@@ -294,7 +294,7 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Format of displayed fractions; a string of one or two of ":" or "/".
;;(defvar calc-frac-format '(":" nil))
;; If non-NIL, prefer fractional over floating-point results.
;; If non-nil, prefer fractional over floating-point results.
;;(defvar calc-prefer-frac nil)
;; Format of displayed hours-minutes-seconds angles, a format string.
......@@ -330,32 +330,32 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Preferred form, either 'cplx or 'polar, for complex numbers.
;;(defvar calc-complex-mode 'cplx)
;; If NIL, 1 / 0 is left unsimplified.
;; If nil, 1 / 0 is left unsimplified.
;; If 0, 1 / 0 is changed to inf (zeros are considered positive).
;; Otherwise, 1 / 0 is changed to uinf (undirected infinity).
;;(defvar calc-infinite-mode nil)
;; If non-NIL, display vectors of byte-sized integers as strings.
;; If non-nil, display vectors of byte-sized integers as strings.
;;(defvar calc-display-strings nil)
;; If NIL, vector elements are left-justified.
;; If nil, vector elements are left-justified.
;; If 'right, vector elements are right-justified.
;; If 'center, vector elements are centered."
;;(defvar calc-matrix-just 'center)
;; If non-NIL, display vectors one element per line.
;; If non-nil, display vectors one element per line.
;;(defvar calc-break-vectors nil)
;; If non-NIL, display long vectors in full. If NIL, use abbreviated form.
;; If non-nil, display long vectors in full. If nil, use abbreviated form.
;;(defvar calc-full-vectors t)
;; If non-NIL, display long vectors in full in the trail.
;; If non-nil, display long vectors in full in the trail.
;;(defvar calc-full-trail-vectors t)
;; If non-NIL, separate elements of displayed vectors with this string.
;; If non-nil, separate elements of displayed vectors with this string.
;;(defvar calc-vector-commas ",")
;; If non-NIL, surround displayed vectors with these characters.
;; If non-nil, surround displayed vectors with these characters.
;;(defvar calc-vector-brackets "[]")
;; A list of code-letter symbols that control "big" matrix display.
......@@ -411,79 +411,79 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Type of simplification applied to results.
;; If 'none, results are not simplified when pushed on the stack.
;; If 'num, functions are simplified only when args are constant.
;; If NIL, only fast simplifications are applied.
;; If nil, only fast simplifications are applied.
;; If 'binary, math-clip is applied if appropriate.
;; If 'alg, math-simplify is applied.
;; If 'ext, math-simplify-extended is applied.
;; If 'units, math-simplify-units is applied.
;;(defvar calc-simplify-mode nil)
;; If non-NIL, recompute evalto's automatically when necessary.
;; If non-nil, recompute evalto's automatically when necessary.
;;(defvar calc-auto-recompute t)
;; If non-NIL, display shows unformatted Lisp exprs. (For debugging)
;; If non-nil, display shows unformatted Lisp exprs. (For debugging)
;;(defvar calc-display-raw nil)
;; Number of digits of internal precision for calc-mode calculations.
;;(defvar calc-internal-prec 12)
;; If non-NIL, next operation is Inverse.
;; If non-nil, next operation is Inverse.
;;(defvar calc-inverse-flag nil)
;; If non-NIL, next operation is Hyperbolic.
;; If non-nil, next operation is Hyperbolic.
;;(defvar calc-hyperbolic-flag nil)
;; If non-NIL, next operation should not remove its arguments from stack.
;; If non-nil, next operation should not remove its arguments from stack.
;;(defvar calc-keep-args-flag nil)
;; If deg, angles are in degrees; if rad, angles are in radians.
;; If hms, angles are in degrees-minutes-seconds.
;;(defvar calc-angle-mode 'deg)
;; If non-NIL, numeric entry accepts whole algebraic expressions.
;; If NIL, algebraic expressions must be preceded by "'".
;; If non-nil, numeric entry accepts whole algebraic expressions.
;; If nil, algebraic expressions must be preceded by "'".
;;(defvar calc-algebraic-mode nil)
;; Like calc-algebraic-mode except only affects ( and [ keys.
;;(defvar calc-incomplete-algebraic-mode nil)
;; If non-NIL, inexact numeric computations like sqrt(2) are postponed.
;; If NIL, computations on numbers always yield numbers where possible.
;; If non-nil, inexact numeric computations like sqrt(2) are postponed.
;; If nil, computations on numbers always yield numbers where possible.
;;(defvar calc-symbolic-mode nil)
;; If 'matrix, variables are assumed to be matrix-valued.
;; If a number, variables are assumed to be NxN matrices.
;; If 'scalar, variables are assumed to be scalar-valued.
;; If NIL, symbolic math routines make no assumptions about variables.
;; If nil, symbolic math routines make no assumptions about variables.
;;(defvar calc-matrix-mode nil)
;; If non-NIL, shifted letter keys are prefix keys rather than normal meanings.
;; If non-nil, shifted letter keys are prefix keys rather than normal meanings.
;;(defvar calc-shift-prefix nil)
;; Initial height of Calculator window.
;;(defvar calc-window-height 7)
;; If non-NIL, M-x calc creates a window to display Calculator trail.
;; If non-nil, M-x calc creates a window to display Calculator trail.
;;(defvar calc-display-trail t)
;; If non-NIL, selected sub-formulas are shown by obscuring rest of formula.
;; If NIL, selected sub-formulas are highlighted by obscuring the sub-formulas.
;; If non-nil, selected sub-formulas are shown by obscuring rest of formula.
;; If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.
;;(defvar calc-show-selections t)
;; If non-NIL, commands operate only on selected portions of formulas.
;; If NIL, selections displayed but ignored.
;; If non-nil, commands operate only on selected portions of formulas.
;; If nil, selections displayed but ignored.
;;(defvar calc-use-selections t)
;; If non-NIL, selection hides deep structure of associative formulas.
;; If non-nil, selection hides deep structure of associative formulas.
;;(defvar calc-assoc-selections t)
;; If non-NIL, display "Working..." for potentially slow Calculator commands.
;; If non-nil, display "Working..." for potentially slow Calculator commands.
;;(defvar calc-display-working-message 'lots)
;; If non-NIL, automatically execute a "why" command to explain odd results.
;; If non-nil, automatically execute a "why" command to explain odd results.
;;(defvar calc-auto-why nil)
;; If non-NIL, display timing information on each slow command.
;; If non-nil, display timing information on each slow command.
;;(defvar calc-timing nil)
;; Floating-point numbers with this positive exponent or higher above the
......@@ -501,7 +501,7 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; List of strings for Y prefix help.
(defvar calc-Y-help-msgs nil)
;; T if calc-settings-file has been loaded yet.
;; t if calc-settings-file has been loaded yet.
(defvar calc-loaded-settings-file nil)
......
......@@ -352,7 +352,7 @@ next one.")
(defun scheme-load-file (file-name)
"Load a Scheme file FILE-NAME into the inferior Scheme process."
(interactive (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file
scheme-source-modes t)) ; T because LOAD
scheme-source-modes t)) ; t because `load'
; needs an exact name
(comint-check-source file-name) ; Check to see if buffer needs saved.
(setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name)
......@@ -366,7 +366,7 @@ next one.")
(interactive (comint-get-source "Compile Scheme file: "
scheme-prev-l/c-dir/file
scheme-source-modes
nil)) ; NIL because COMPILE doesn't
nil)) ; nil because COMPILE doesn't
; need an exact name.
(comint-check-source file-name) ; Check to see if buffer needs saved.
(setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name)
......
......@@ -695,7 +695,7 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(comint-exec-1 name buffer command switches))))
(set-process-filter proc 'comint-output-filter)
(make-local-variable 'comint-ptyp)
(setq comint-ptyp process-connection-type) ; T if pty, NIL if pipe.
(setq comint-ptyp process-connection-type) ; t if pty, nil if pipe.
;; Jump to the end, and set the process mark.
(goto-char (point-max))
(set-marker (process-mark proc) (point))
......@@ -2272,8 +2272,8 @@ This command is like `M-.' in bash."
;;============================================================================
;; Many command-interpreters (e.g., Lisp, Scheme, Soar) have
;; commands that process files of source text (e.g. loading or compiling
;; files). So the corresponding process-in-a-buffer modes have commands
;; for doing this (e.g., lisp-load-file). The functions below are useful
;; files). So the corresponding process-in-a-buffer modes have commands
;; for doing this (e.g., lisp-load-file). The functions below are useful
;; for defining these commands.
;;
;; Alas, these guys don't do exactly the right thing for Lisp, Scheme
......@@ -2281,9 +2281,9 @@ This command is like `M-.' in bash."
;; So the compile/load interface gets the wrong default occasionally.
;; The load-file/compile-file default mechanism could be smarter -- it
;; doesn't know about the relationship between filename extensions and
;; whether the file is source or executable. If you compile foo.lisp
;; whether the file is source or executable. If you compile foo.lisp
;; with compile-file, then the next load-file should use foo.bin for
;; the default, not foo.lisp. This is tricky to do right, particularly
;; the default, not foo.lisp. This is tricky to do right, particularly
;; because the extension for executable files varies so much (.o, .bin,
;; .lbin, .mo, .vo, .ao, ...).
......@@ -2304,14 +2304,14 @@ This command is like `M-.' in bash."
;; commands for tea, soar, cmulisp, and cmuscheme modes.
;;
;; - PREVIOUS-DIR/FILE is a pair (directory . filename) from the last
;; source-file processing command. NIL if there hasn't been one yet.
;; source-file processing command. nil if there hasn't been one yet.
;; - SOURCE-MODES is a list used to determine what buffers contain source
;; files: if the major mode of the buffer is in SOURCE-MODES, it's source.
;; Typically, (lisp-mode) or (scheme-mode).
;;
;; If the command is given while the cursor is inside a string, *and*
;; the string is an existing filename, *and* the filename is not a directory,
;; then the string is taken as default. This allows you to just position
;; then the string is taken as default. This allows you to just position
;; your cursor over a string that's a filename and have it taken as default.
;;
;; If the command is given in a file buffer whose major mode is in
......
......@@ -842,7 +842,7 @@ during the search."
(reset-cdabbrev-window t))
(defun set-cdabbrev-buffer ()
;; cdabbrev-current-window must not be NIL
;; cdabbrev-current-window must not be nil
(set-buffer (if (eq cdabbrev-current-window t)
(other-buffer)
(window-buffer cdabbrev-current-window))))
......@@ -1001,7 +1001,7 @@ Each symbol is bound to a single completion entry.")
;; A completion entry is a LIST of string, prefix-symbol num-uses, and
;; last-use-time (the time the completion was last used)
;; last-use-time is T if the string should be kept permanently
;; last-use-time is t if the string should be kept permanently
;; num-uses is incremented every time the completion is used.
;; We chose lists because (car foo) is faster than (aref foo 0) and the
......@@ -1019,7 +1019,7 @@ Each symbol is bound to a single completion entry.")
(defmacro completion-last-use-time (completion-entry)
;; "The time it was last used. In hours since origin. Used to decide
;; whether to save it. T if one should always save it."
;; whether to save it. t if one should always save it."
(list 'nth 2 completion-entry))
(defmacro completion-source (completion-entry)
......@@ -1132,7 +1132,7 @@ Each symbol is bound to a single completion entry.")
;; "The interned prefix symbol corresponding to cmpl-db-downcase-string."
(defvar cmpl-db-entry nil)
(defvar cmpl-db-debug-p nil
"Set to T if you want to debug the database.")
"Set to t if you want to debug the database.")
;; READS
(defun find-exact-completion (string)
......
......@@ -939,7 +939,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
(defcustom dired-recursive-copies nil
"*Decide whether recursive copies are allowed.
Nil means no recursive copies.
nil means no recursive copies.
`always' means copy recursively without asking.
`top' means ask for each directory at top level.
Anything else means ask for each directory."
......@@ -1336,7 +1336,7 @@ Optional arg HOW-TO is used to set the value of the into-dir variable
;; symlinks.
(defvar dired-copy-how-to-fn nil
"Nil or a function used by `dired-do-copy' to determine target.
"nil or a function used by `dired-do-copy' to determine target.
See HOW-TO argument for `dired-do-create-files'.")
;;;###autoload
......
......@@ -590,7 +590,7 @@ highlighted using ASCII flags."
Actually, Ediff restores the scope of visibility that existed at startup.")
(defcustom ediff-keep-variants t
"*Nil means that non-modified variant buffers should be removed at the end of the session after some interrogation.
"*nil means that non-modified variant buffers should be removed at the end of the session after some interrogation.
Supplying a prefix argument to the quit command `q' temporarily reverses the
meaning of this variable."
:type 'boolean
......@@ -1241,7 +1241,7 @@ This property can be toggled interactively."
(defcustom ediff-autostore-merges 'group-jobs-only
"*Save the results of merge jobs automatically.
Nil means don't save automatically. t means always save. Anything but nil or t
nil means don't save automatically. t means always save. Anything but nil or t
means save automatically only if the merge job is part of a group of jobs, such
as `ediff-merge-directory' or `ediff-merge-directory-revisions'."
:type '(choice (const nil) (const t) (const group-jobs-only))
......
......@@ -216,7 +216,7 @@
(defconst foldout-fold-list nil
"List of start and end markers for the folds currently entered.
An end marker of NIL means the fold ends after (point-max).")
An end marker of nil means the fold ends after (point-max).")
(make-variable-buffer-local 'foldout-fold-list)
(defconst foldout-modeline-string nil
......@@ -269,7 +269,7 @@ optional arg EXPOSURE \(interactively with prefix arg\) changes this:-
;; I need a marker that will follow the end of the region even when
;; text is inserted right at the end. Text gets inserted *after*
;; markers, so I need it at end+1. Unfortunately I can't set a
;; marker at (point-max)+1, so I use NIL to mean the region ends at
;; marker at (point-max)+1, so I use nil to mean the region ends at
;; (point-max).
(end-marker (if (eobp) nil (set-marker (make-marker) (1+ end))))
)
......@@ -517,7 +517,7 @@ if the event didn't occur on a heading."
;;; Keymaps:
(defvar foldout-inhibit-key-bindings nil
"Set non-NIL before loading foldout to inhibit key bindings.")
"Set non-nil before loading foldout to inhibit key bindings.")
(defvar foldout-mouse-modifiers '(meta control)
"List of modifier keys to apply to foldout's mouse events.
......
......@@ -1751,21 +1751,21 @@ Return nil if no complete line has arrived."
;;
;; addr-adl = nstring
;; ; Holds route from [RFC-822] route-addr if
;; ; non-NIL
;; ; non-nil
;;
;; addr-host = nstring
;; ; NIL indicates [RFC-822] group syntax.
;; ; nil indicates [RFC-822] group syntax.
;; ; Otherwise, holds [RFC-822] domain name
;;
;; addr-mailbox = nstring
;; ; NIL indicates end of [RFC-822] group; if
;; ; non-NIL and addr-host is NIL, holds
;; ; nil indicates end of [RFC-822] group; if
;; ; non-nil and addr-host is nil, holds
;; ; [RFC-822] group name.
;; ; Otherwise, holds [RFC-822] local-part
;; ; after removing [RFC-822] quoting
;;
;; addr-name = nstring
;; ; If non-NIL, holds phrase from [RFC-822]
;; ; If non-nil, holds phrase from [RFC-822]
;; ; mailbox after removing [RFC-822] quoting
;;
......@@ -2455,7 +2455,7 @@ Return nil if no complete line has arrived."
(push (imap-parse-nstring) body);; body-fld-desc
(imap-forward)
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a
;; nstring and return NIL instead of defaulting back to 7BIT
;; nstring and return nil instead of defaulting back to 7BIT
;; as the standard says.
(push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc
(imap-forward)
......
......@@ -263,7 +263,7 @@ Can contain both regexps matching buffer names (as strings) and major modes
(defcustom hippie-expand-only-buffers ()
"*A list specifying the only buffers to search (in addition to current).
Can contain both regexps matching buffer names (as strings) and major modes
\(as atoms). If non-NIL, this variable overrides the variable
\(as atoms). If non-nil, this variable overrides the variable
`hippie-expand-ignore-buffers'."
:type '(repeat (choice regexp (symbol :tag "Major Mode")))
:group 'hippie-expand)
......@@ -382,7 +382,7 @@ undoes the expansion."
;; Check if STR is a member of LST.
;; Transform to the final case if optional TRANS-CASE is non-NIL.
;; Transform to the final case if optional TRANS-CASE is non-nil.
(defun he-string-member (str lst &optional trans-case)
(if str
(member (if (and trans-case
......
......@@ -513,7 +513,7 @@ styles."
(defun Footnote-text-under-cursor ()
"Return the number of footnote if in footnote text.
Nil is returned if the cursor is not positioned over the text of
Return nil if the cursor is not positioned over the text of
a footnote."
(when (and (let ((old-point (point)))
(save-excursion
......@@ -536,7 +536,7 @@ a footnote."
(defun Footnote-under-cursor ()
"Return the number of the footnote underneath the cursor.
Nil is returned if the cursor is not over a footnote."
Return nil if the cursor is not over a footnote."
(or (get-text-property (point) 'footnote-number)
(Footnote-text-under-cursor)))
......
;;; mh-comp.el --- mh-e functions for composing messages
;; Time-stamp: <2001-07-15 09:36:30 pavel>
;; Time-stamp: <2001-12-20 18:55:07 pavel>
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc.
......@@ -30,7 +30,7 @@
;;; Change Log:
;; $Id: mh-comp.el,v 1.21 2001/02/08 00:01:35 fx Exp $
;; $Id: mh-comp.el,v 1.22 2001/07/15 19:53:53 pj Exp $
;;; Code:
......@@ -540,7 +540,7 @@ See also documentation for `\\[mh-send]' function."
(defun mh-read-draft (use initial-contents delete-contents-file)
;; Read draft file into a draft buffer and make that buffer the current one.
;; USE is a message used for prompting about the intended use of the message.
;; INITIAL-CONTENTS is filename that is read into an empty buffer, or NIL
;; INITIAL-CONTENTS is filename that is read into an empty buffer, or nil
;; if buffer should not be modified. Delete the initial-contents file if
;; DELETE-CONTENTS-FILE flag is set.
;; Returns the draft folder's name.
......@@ -651,7 +651,7 @@ See also documentation for `\\[mh-send]' function."
(defun mh-goto-header-field (field)
;; Move to FIELD in the message header.
;; Move to the end of the FIELD name, which should end in a colon.
;; Returns T if found, NIL if not.
;; Returns t if found, nil if not.
(goto-char (point-min))
(let ((case-fold-search t)
(headers-end (save-excursion
......
......@@ -60,7 +60,7 @@
;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
;; Modified by Stephen Gildea 1988. gildea@stop.mail-abuse.org
(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.28 2001/07/15 19:53:53 pj Exp $")
(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.30 2001/09/23 17:38:22 eliz Exp $")
;;; Code:
......@@ -203,7 +203,7 @@ A directory name string, or nil to use current directory."
(defvar mh-partial-folder-mode-line-annotation "select"
"Annotation when displaying part of a folder.
The string is displayed after the folder's name. NIL for no annotation.")
The string is displayed after the folder's name. nil for no annotation.")
;;; Internal variables:
......@@ -779,8 +779,8 @@ Variables controlling mh-e operation are (defaults in parentheses):
`mhl-formfile' (nil)
Name of format file to be used by mhl to show messages.
A value of T means use the default format file.
Nil means don't use mhl to format messages.
A value of t means use the default format file.
nil means don't use mhl to format messages.
`mh-lpr-command-format' (\"lpr -p -J '%s'\")
Format for command used to print a message on a system printer.
......@@ -1080,7 +1080,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
(defun mh-update-unseen ()
;; Flush updates to the Unseen sequence out to MH.
;; Return non-NIL iff set the MH folder.
;; Return non-nil iff set the MH folder.
(if mh-seen-list
(let* ((unseen-seq (mh-find-seq mh-unseen-seq))
(unseen-msgs (mh-seq-msgs unseen-seq)))
......@@ -1211,7 +1211,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
(defun mh-internal-seq (name)
;; Return non-NIL if NAME is the name of an internal mh-e sequence.
;; Return non-nil if NAME is the name of an internal mh-e sequence.
(or (memq name '(answered cur deleted forwarded printed))
(eq name mh-unseen-seq)
(eq name mh-previous-seq)
......
......@@ -116,8 +116,8 @@ The desired message's number will be an argument to format.")
(defcustom mhl-formfile nil
"*Name of format file to be used by mhl to show and print messages.
A value of T means use the default format file.
Nil means don't use mhl to format messages when showing; mhl is still used,
A value of t means use the default format file.
nil means don't use mhl to format messages when showing; mhl is still used,
with the default format file, to format messages when printing them.
The format used should specify a non-zero value for overflowoffset so
the message continues to conform to RFC 822 and mh-e can parse the headers."
......@@ -133,7 +133,7 @@ prompting the user for a folder. The function is called from within a
save-excursion, with point at the start of the message. It should
return the folder to offer as the refile or Fcc folder, as a string
with a leading `+' sign. It can also return an empty string to use no
default, or NIL to calculate the default the usual way.
default, or nil to calculate the default the usual way.
NOTE: This variable is not an ordinary hook;
It may not be a list of functions.")
......@@ -162,7 +162,7 @@ First argument is folder name. Second is message number.")
;; Cached value of the `Path:' component in the user's MH profile.
(defvar mh-user-path nil) ;User's mail folder directory.
;; An mh-draft-folder of NIL means do not use a draft folder.
;; An mh-draft-folder of nil means do not use a draft folder.
;; Cached value of the `Draft-Folder:' component in the user's MH profile.
(defvar mh-draft-folder nil) ;Name of folder containing draft messages.
......@@ -529,7 +529,7 @@ Non-nil third argument means not to show the message."
(defun mh-get-profile-field (field)
;; Find and return the value of FIELD in the current buffer.
;; Returns NIL if the field is not in the buffer.
;; Returns nil if the field is not in the buffer.
(let ((case-fold-search t))
(goto-char (point-min))
(cond ((not (re-search-forward (format "^%s" field) nil t)) nil)
......@@ -848,7 +848,7 @@ directory names."
(defun mh-folder-name-p (name)
;; Return non-NIL if NAME is possibly the name of a folder.
;; Return non-nil if NAME is possibly the name of a folder.
;; A name (a string or symbol) can be a folder name if it begins with "+".
(if (symbolp name)
(eq (aref (symbol-name name) 0) ?+)
......
......@@ -169,7 +169,7 @@ with the colon on the first line."
:group 'old-c++)
(defcustom c++-empty-arglist-indent nil
"*Indicates how far to indent an line following an empty argument
list. Nil indicates to just after the paren."
list. nil indicates to just after the paren."
:type '(choice (const nil) integer)
:group 'old-c++)
......@@ -316,7 +316,7 @@ Variables controlling indentation style:
Indentation level of member initializations in function declarations,
if they are on a separate line beginning with a colon.
c++-continued-member-init-offset
Extra indentation for continuation lines of member initializations; NIL
Extra indentation for continuation lines of member initializations; nil
means to align with previous initializations rather than with the colon.
Settings for K&R, BSD, and Stroustrup indentation styles are
......
......@@ -325,7 +325,7 @@
"* If non-nil, this inhibits progress indicators during highlighting")
(defvar hilit-auto-highlight t
"* T if we should highlight all buffers as we find 'em, nil to disable
"* t if we should highlight all buffers as we find 'em, nil to disable
automatic highlighting by the find-file hook.")
(defvar hilit-auto-highlight-maxout 60000 ; hilit19 keeps getting bigger...
......@@ -333,7 +333,7 @@
(defvar hilit-auto-rehighlight t
"* If this is non-nil, then hilit-redraw and hilit-recenter will also
rehighlight part or all of the current buffer. T will rehighlight the
rehighlight part or all of the current buffer. t will rehighlight the
whole buffer, a NUMBER will rehighlight that many lines before and after
the cursor, and the symbol 'visible' will rehighlight only the visible
portion of the current buffer. This variable is buffer-local.")
......@@ -346,10 +346,10 @@
THRESHOLD.")
(defvar hilit-face-check t
"* T slows down highlighting but permits the user to change fonts without
losing bold and italic faces... T causes hilit-lookup-face-create to dig
"* t slows down highlighting but permits the user to change fonts without
losing bold and italic faces... t causes hilit-lookup-face-create to dig
through the frame parameters for the current window every time it's called.
If you never change fonts in emacs, set this to NIL.")
If you never change fonts in emacs, set this to nil.")
;; Variables which must be set before loading hilit19.
......@@ -1051,7 +1051,7 @@ Optionally, place the new pattern first in the pattern list"
(and (interactive-p) (hilit-rehighlight-buffer)))
(defun hilit-string-find (qchar)
"looks for a string and returns (start . end) or NIL. The argument QCHAR
"Looks for a string and returns (start . end) or nil. The argument QCHAR
is the character that would precede a character constant double quote.
Finds strings delimited by double quotes. The first double quote may not be
preceded by QCHAR and the closing double quote may not be preceded by an odd
......
......@@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-defs.el,v 1.15 2001/07/16 07:46:48 pj Exp $
;; Revision: $Id: pcvs-defs.el,v 1.16 2001/10/31 17:39:07 sds Exp $
;; This file is part of GNU Emacs.
......@@ -168,7 +168,7 @@ displayed when asking for confirmation."
(defcustom cvs-add-default-message nil
"*Default message to use when adding files.
If set to NIL, `cvs-mode-add' will always prompt for a message."
If set to nil, `cvs-mode-add' will always prompt for a message."
:group 'pcl-cvs
:type '(choice (const :tag "Prompt" nil)
(string)))
......@@ -495,7 +495,7 @@ whether to use the new feature or not.
Sadly, even with a new cvs executable, if you connect to an older cvs server
\(typically a cvs-1.9 on the server), the old restriction applies. In such
a case the sanity check made by pcl-cvs fails and you will have to manually
set this variable to T (until the cvs server is upgraded).
set this variable to t (until the cvs server is upgraded).
When the above problem occurs, pcl-cvs should (hopefully) catch cvs' error
message and replace it with a message tell you to change this variable.")
......
......@@ -5,7 +5,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-util.el,v 1.15 2001/11/17 00:48:14 monnier Exp $
;; Revision: $Id: pcvs-util.el,v 1.16 2001/12/02 07:41:47 monnier Exp $
;; This file is part of GNU Emacs.
......@@ -372,7 +372,7 @@ If ARG is negative (or \\[universal-argument] which corresponds to negative 0),
it queries the user and sets the -ARG'th default.
If ARG is greater than 9 (or \\[universal-argument] \\[universal-argument]),
the (ARG mod 10)'th prefix is made persistent.
If ARG is NIL toggle the PREFIX's value between its 0th default and NIL
If ARG is nil toggle the PREFIX's value between its 0th default and nil
and reset the persistence."
(let* ((prefix (symbol-value (cvs-prefix-sym sym)))
(numarg (if (integerp arg) arg 0))
......