diff -rc emacs/lisp/allout.el emacs-lisp/allout.el
*** emacs/lisp/allout.el	Tue Feb 25 00:46:26 2003
--- emacs-lisp/allout.el	Tue May  6 03:12:28 2003
***************
*** 82,88 ****
  variable `allout-layout' is non-nil, and whether or not the layout
  dictated by `allout-layout' should be imposed on mode activation.
  
! With value `t', auto-mode-activation and auto-layout are enabled.
  \(This also depends on `allout-find-file-hook' being installed in
  `find-file-hooks', which is also done by `allout-init'.)
  
--- 82,88 ----
  variable `allout-layout' is non-nil, and whether or not the layout
  dictated by `allout-layout' should be imposed on mode activation.
  
! With value t, auto-mode-activation and auto-layout are enabled.
  \(This also depends on `allout-find-file-hook' being installed in
  `find-file-hooks', which is also done by `allout-init'.)
  
***************
*** 92,98 ****
  With value `activate', only auto-mode-activation is enabled,
  auto-layout is not.
  
! With value `nil', neither auto-mode-activation nor auto-layout are
  enabled.
  
  See the docstring for `allout-init' for the proper interface to
--- 92,98 ----
  With value `activate', only auto-mode-activation is enabled,
  auto-layout is not.
  
! With value nil, neither auto-mode-activation nor auto-layout are
  enabled.
  
  See the docstring for `allout-init' for the proper interface to
***************
*** 226,239 ****
  
  String values are used as they stand.
  
! Value `t' means to first check for assoc value in `allout-mode-leaders'
  alist, then use comment-start string, if any, then use default \(`.').
  \(See note about use of comment-start strings, below.)
  
  Set to the symbol for either of `allout-mode-leaders' or
  `comment-start' to use only one of them, respectively.
  
! Value `nil' means to always use the default \(`.').
  
  comment-start strings that do not end in spaces are tripled, and an
  `_' underscore is tacked on the end, to distinguish them from regular
--- 226,239 ----
  
  String values are used as they stand.
  
! Value t means to first check for assoc value in `allout-mode-leaders'
  alist, then use comment-start string, if any, then use default \(`.').
  \(See note about use of comment-start strings, below.)
  
  Set to the symbol for either of `allout-mode-leaders' or
  `comment-start' to use only one of them, respectively.
  
! Value nil means to always use the default \(`.').
  
  comment-start strings that do not end in spaces are tripled, and an
  `_' underscore is tacked on the end, to distinguish them from regular
***************
*** 480,486 ****
  their topic header are reindented to correspond with depth shifts of
  the header.
  
! A value of `t' enables reindent in non-programming-code buffers, ie
  those that do not have the variable `comment-start' set.  A value of
  `force' enables reindent whether or not `comment-start' is set."
    :type '(choice (const nil) (const t) (const text) (const force))
--- 480,486 ----
  their topic header are reindented to correspond with depth shifts of
  the header.
  
! A value of t enables reindent in non-programming-code buffers, ie
  those that do not have the variable `comment-start' set.  A value of
  `force' enables reindent whether or not `comment-start' is set."
    :type '(choice (const nil) (const t) (const text) (const force))
***************
*** 893,899 ****
  (make-variable-buffer-local 'allout-override-protect)
  ;;;_   > allout-unprotected (expr)
  (defmacro allout-unprotected (expr)
!   "Evaluate EXPRESSION with `allout-override-protect' let-bound `t'."
    `(let ((allout-override-protect t))
       ,expr))
  ;;;_   = allout-undo-aggregation
--- 893,899 ----
  (make-variable-buffer-local 'allout-override-protect)
  ;;;_   > allout-unprotected (expr)
  (defmacro allout-unprotected (expr)
!   "Evaluate EXPRESSION with `allout-override-protect' let-bound t."
    `(let ((allout-override-protect t))
       ,expr))
  ;;;_   = allout-undo-aggregation
diff -rc emacs/lisp/emacs-lisp/cl-macs.el emacs-lisp/emacs-lisp/cl-macs.el
*** emacs/lisp/emacs-lisp/cl-macs.el	Tue Feb 11 02:40:37 2003
--- emacs-lisp/emacs-lisp/cl-macs.el	Tue May  6 03:13:44 2003
***************
*** 486,492 ****
  Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared
  against each key in each KEYLIST; the corresponding BODY is evaluated.
  If no clause succeeds, case returns nil.  A single atom may be used in
! place of a KEYLIST of one atom.  A KEYLIST of `t' or `otherwise' is
  allowed only in the final clause, and matches if no other keys match.
  Key values are compared by `eql'."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
--- 486,492 ----
  Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared
  against each key in each KEYLIST; the corresponding BODY is evaluated.
  If no clause succeeds, case returns nil.  A single atom may be used in
! place of a KEYLIST of one atom.  A KEYLIST of t or `otherwise' is
  allowed only in the final clause, and matches if no other keys match.
  Key values are compared by `eql'."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
***************
*** 523,529 ****
    "Evals EXPR, chooses from CLAUSES on that value.
  Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it
  satisfies TYPE, the corresponding BODY is evaluated.  If no clause succeeds,
! typecase returns nil.  A TYPE of `t' or `otherwise' is allowed only in the
  final clause, and matches if no other keys match."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
  	 (type-list nil)
--- 523,529 ----
    "Evals EXPR, chooses from CLAUSES on that value.
  Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it
  satisfies TYPE, the corresponding BODY is evaluated.  If no clause succeeds,
! typecase returns nil.  A TYPE of t or `otherwise' is allowed only in the
  final clause, and matches if no other keys match."
    (let* ((temp (if (cl-simple-expr-p expr 3) expr (gensym)))
  	 (type-list nil)
diff -rc emacs/lisp/emacs-lisp/eldoc.el emacs-lisp/emacs-lisp/eldoc.el
*** emacs/lisp/emacs-lisp/eldoc.el	Tue Feb 11 02:40:38 2003
--- emacs-lisp/emacs-lisp/eldoc.el	Tue May  6 03:14:08 2003
***************
*** 81,91 ****
  
  (defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit
    "*Allow long eldoc messages to resize echo area display.
! If value is `t', never attempt to truncate messages; complete symbol name
  and function arglist or 1-line variable documentation will be displayed
  even if echo area must be resized to fit.
  
! If value is any non-nil value other than `t', symbol name may be truncated
  if it will enable the function arglist or documentation string to fit on a
  single line without resizing window.  Otherwise, behavior is just like
  former case.
--- 81,91 ----
  
  (defcustom eldoc-echo-area-use-multiline-p 'truncate-sym-name-if-fit
    "*Allow long eldoc messages to resize echo area display.
! If value is t, never attempt to truncate messages; complete symbol name
  and function arglist or 1-line variable documentation will be displayed
  even if echo area must be resized to fit.
  
! If value is any non-nil value other than t, symbol name may be truncated
  if it will enable the function arglist or documentation string to fit on a
  single line without resizing window.  Otherwise, behavior is just like
  former case.
diff -rc emacs/lisp/emacs-lisp/lmenu.el emacs-lisp/emacs-lisp/lmenu.el
*** emacs/lisp/emacs-lisp/lmenu.el	Sun Jul 15 21:53:53 2001
--- emacs-lisp/emacs-lisp/lmenu.el	Tue May  6 03:06:11 2003
***************
*** 143,149 ****
  It will be invoked with `call-interactively'.  If it is a list, then it is
  evaluated with `eval'.
  
! One (and only one) of the buttons may be `nil'.  This marker means that all
  following buttons should be flushright instead of flushleft.
  
  The syntax, more precisely:
--- 143,149 ----
  It will be invoked with `call-interactively'.  If it is a list, then it is
  evaluated with `eval'.
  
! One (and only one) of the buttons may be nil.  This marker means that all
  following buttons should be flushright instead of flushleft.
  
  The syntax, more precisely:
diff -rc emacs/lisp/emacs-lisp/lucid.el emacs-lisp/emacs-lisp/lucid.el
*** emacs/lisp/emacs-lisp/lucid.el	Mon May  5 00:53:51 2003
--- emacs-lisp/emacs-lisp/lucid.el	Tue May  6 03:06:29 2003
***************
*** 130,136 ****
  
  (defun buffer-syntactic-context (&optional buffer)
    "Syntactic context at point in BUFFER.
! Either of `string', `comment' or `nil'.
  This is an XEmacs compatibility function."
    (with-current-buffer (or buffer (current-buffer))
      (let ((state (syntax-ppss (point))))
--- 130,136 ----
  
  (defun buffer-syntactic-context (&optional buffer)
    "Syntactic context at point in BUFFER.
! Either of `string', `comment' or nil.
  This is an XEmacs compatibility function."
    (with-current-buffer (or buffer (current-buffer))
      (let ((state (syntax-ppss (point))))
diff -rc emacs/lisp/env.el emacs-lisp/env.el
*** emacs/lisp/env.el	Tue Feb 25 18:56:16 2003
--- emacs-lisp/env.el	Tue May  6 03:02:21 2003
***************
*** 89,96 ****
  
  (defun setenv (variable &optional value unset substitute-env-vars)
    "Set the value of the environment variable named VARIABLE to VALUE.
! VARIABLE should be a string.  VALUE is optional; if not provided or is
! `nil', the environment variable VARIABLE will be removed.  UNSET
  if non-nil means to remove VARIABLE from the environment.
  SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment
  variables in VALUE with `substitute-env-vars', where see.
--- 89,96 ----
  
  (defun setenv (variable &optional value unset substitute-env-vars)
    "Set the value of the environment variable named VARIABLE to VALUE.
! VARIABLE should be a string.  VALUE is optional; if not provided or
! nil, the environment variable VARIABLE will be removed.  UNSET
  if non-nil means to remove VARIABLE from the environment.
  SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment
  variables in VALUE with `substitute-env-vars', where see.
diff -rc emacs/lisp/gnus/gnus-art.el emacs-lisp/gnus/gnus-art.el
*** emacs/lisp/gnus/gnus-art.el	Tue Feb  4 19:57:43 2003
--- emacs-lisp/gnus/gnus-art.el	Tue May  6 02:59:41 2003
***************
*** 661,667 ****
  For `undisplayed-alternative' (default), the first undisplayed
  part or alternative part is used.  For `undisplayed', the first
  undisplayed part is used.  For a function, the first part which
! the function return `t' is used.  For `nil', the first part is
  used."
    :version "21.1"
    :group 'gnus-article-mime
--- 661,667 ----
  For `undisplayed-alternative' (default), the first undisplayed
  part or alternative part is used.  For `undisplayed', the first
  undisplayed part is used.  For a function, the first part which
! the function return t is used.  For nil, the first part is
  used."
    :version "21.1"
    :group 'gnus-article-mime
diff -rc emacs/lisp/gnus/gnus-cus.el emacs-lisp/gnus/gnus-cus.el
*** emacs/lisp/gnus/gnus-cus.el	Fri Oct 18 10:38:17 2002
--- emacs-lisp/gnus/gnus-cus.el	Tue May  6 03:11:34 2003
***************
*** 161,167 ****
  		      (string :format "%v" :hide-front-space t)) "\
  Specify default value for GCC header.
  
! If this symbol is present in the group parameter list and set to `t',
  new composed messages will be `Gcc''d to the current group.  If it is
  present and set to `none', no `Gcc:' header will be generated, if it
  is present and a string, this string will be inserted literally as a
--- 161,167 ----
  		      (string :format "%v" :hide-front-space t)) "\
  Specify default value for GCC header.
  
! If this symbol is present in the group parameter list and set to t,
  new composed messages will be `Gcc''d to the current group.  If it is
  present and set to `none', no `Gcc:' header will be generated, if it
  is present and a string, this string will be inserted literally as a
***************
*** 387,393 ****
  If you want to turn threading off in `news.answers', you could put
  `(gnus-show-threads nil)' in the group parameters of that group.
  `gnus-show-threads' will be made into a local variable in the summary
! buffer you enter, and the form `nil' will be `eval'ed there.
  
  This can also be used as a group-specific hook function, if you'd
  like.  If you want to hear a beep when you enter a group, you could
--- 387,393 ----
  If you want to turn threading off in `news.answers', you could put
  `(gnus-show-threads nil)' in the group parameters of that group.
  `gnus-show-threads' will be made into a local variable in the summary
! buffer you enter, and the form nil will be `eval'ed there.
  
  This can also be used as a group-specific hook function, if you'd
  like.  If you want to hear a beep when you enter a group, you could
***************
*** 500,514 ****
  		   (sexp :format "%v"
  			 :hide-front-space t)) "\
  This entry controls the adaptive scoring.
! If it is `t', the default adaptive scoring rules will be used.  If it
  is `ignore', no adaptive scoring will be performed on this group.  If
  it is a list, this list will be used as the adaptive scoring rules.
! If it isn't present, or is something other than `t' or `ignore', the
  default adaptive scoring rules will be used.  If you want to use
  adaptive scoring on most groups, you'd set `gnus-use-adaptive-scoring'
! to `t', and insert an `(adapt ignore)' in the groups where you do not
  want adaptive scoring.  If you only want adaptive scoring in a few
! groups, you'd set `gnus-use-adaptive-scoring' to `nil', and insert
  `(adapt t)' in the score files of the groups where you want it.")
  
      (adapt-file (file :tag "Adapt-file") "\
--- 500,514 ----
  		   (sexp :format "%v"
  			 :hide-front-space t)) "\
  This entry controls the adaptive scoring.
! If it is t, the default adaptive scoring rules will be used.  If it
  is `ignore', no adaptive scoring will be performed on this group.  If
  it is a list, this list will be used as the adaptive scoring rules.
! If it isn't present, or is something other than t or `ignore', the
  default adaptive scoring rules will be used.  If you want to use
  adaptive scoring on most groups, you'd set `gnus-use-adaptive-scoring'
! to t, and insert an `(adapt ignore)' in the groups where you do not
  want adaptive scoring.  If you only want adaptive scoring in a few
! groups, you'd set `gnus-use-adaptive-scoring' to nil, and insert
  `(adapt t)' in the score files of the groups where you want it.")
  
      (adapt-file (file :tag "Adapt-file") "\
diff -rc emacs/lisp/gnus/gnus-score.el emacs-lisp/gnus/gnus-score.el
*** emacs/lisp/gnus/gnus-score.el	Sun Nov 25 16:17:24 2001
--- emacs-lisp/gnus/gnus-score.el	Tue May  6 03:01:01 2003
***************
*** 1495,1501 ****
    "Lower the score on THREAD with SCORE-ADJUST.
  THREAD is expected to contain a list of the form `(PARENT [CHILD1
  CHILD2 ...])' where PARENT is a header array and each CHILD is a list
! of the same form as THREAD.  The empty list `nil' is valid.  For each
  article in the tree, the score of the corresponding entry in
  `gnus-newsgroup-scored' is adjusted by SCORE-ADJUST."
    (while thread
--- 1495,1501 ----
    "Lower the score on THREAD with SCORE-ADJUST.
  THREAD is expected to contain a list of the form `(PARENT [CHILD1
  CHILD2 ...])' where PARENT is a header array and each CHILD is a list
! of the same form as THREAD.  The empty list nil is valid.  For each
  article in the tree, the score of the corresponding entry in
  `gnus-newsgroup-scored' is adjusted by SCORE-ADJUST."
    (while thread
diff -rc emacs/lisp/mail/mailalias.el emacs-lisp/mail/mailalias.el
*** emacs/lisp/mail/mailalias.el	Tue Feb  4 19:57:48 2003
--- emacs-lisp/mail/mailalias.el	Tue May  6 03:07:21 2003
***************
*** 93,106 ****
    :group 'mailalias)
  
  (defcustom mail-directory-function nil
!   "*Function to get completions from directory service or `nil' for none.
  See `mail-directory-requery'."
    :type '(choice function (const nil))
    :group 'mailalias)
  
  ;; This is for when the directory is huge, or changes frequently.
  (defcustom mail-directory-requery nil
!   "*When non-`nil' call `mail-directory-function' for each completion.
  In that case, one argument gets passed to the function, the partial string
  entered so far."
    :type 'boolean
--- 93,106 ----
    :group 'mailalias)
  
  (defcustom mail-directory-function nil
!   "*Function to get completions from directory service or nil for none.
  See `mail-directory-requery'."
    :type '(choice function (const nil))
    :group 'mailalias)
  
  ;; This is for when the directory is huge, or changes frequently.
  (defcustom mail-directory-requery nil
!   "*When non-nil call `mail-directory-function' for each completion.
  In that case, one argument gets passed to the function, the partial string
  entered so far."
    :type 'boolean
***************
*** 478,484 ****
  
  
  (defun mail-directory (pattern)
!   "Call directory to get names matching PATTERN or all if `nil'.
  Calls `mail-directory-function' and applies `mail-directory-parser' to output."
    (save-excursion
      (message "Querying directory...")
--- 478,484 ----
  
  
  (defun mail-directory (pattern)
!   "Call directory to get names matching PATTERN or all if nil.
  Calls `mail-directory-function' and applies `mail-directory-parser' to output."
    (save-excursion
      (message "Querying directory...")
diff -rc emacs/lisp/mail/rmail.el emacs-lisp/mail/rmail.el
*** emacs/lisp/mail/rmail.el	Fri Feb 21 14:50:50 2003
--- emacs-lisp/mail/rmail.el	Tue May  6 03:07:32 2003
***************
*** 212,218 ****
  ;;;###autoload
  (defcustom rmail-primary-inbox-list nil "\
  *List of files which are inboxes for user's primary mail file `~/RMAIL'.
! `nil' means the default, which is (\"/usr/spool/mail/$USER\")
  \(the name varies depending on the operating system,
  and the value of the environment variable MAIL overrides it)."
    ;; Don't use backquote here, because we don't want to need it
--- 212,218 ----
  ;;;###autoload
  (defcustom rmail-primary-inbox-list nil "\
  *List of files which are inboxes for user's primary mail file `~/RMAIL'.
! nil means the default, which is (\"/usr/spool/mail/$USER\")
  \(the name varies depending on the operating system,
  and the value of the environment variable MAIL overrides it)."
    ;; Don't use backquote here, because we don't want to need it
diff -rc emacs/lisp/mwheel.el emacs-lisp/mwheel.el
*** emacs/lisp/mwheel.el	Thu Feb  6 22:59:33 2003
--- emacs-lisp/mwheel.el	Tue May  6 03:02:47 2003
***************
*** 105,111 ****
  Elements of the list have the form (MODIFIERS . AMOUNT) or just AMOUNT if
  MODIFIERS is nil.
  
! AMOUNT should be the number of lines to scroll, or `nil' for near full
  screen.  It can also be a floating point number, specifying the fraction of
  a full screen to scroll.  A near full screen is `next-screen-context-lines'
  less than a full screen."
--- 105,111 ----
  Elements of the list have the form (MODIFIERS . AMOUNT) or just AMOUNT if
  MODIFIERS is nil.
  
! AMOUNT should be the number of lines to scroll, or nil for near full
  screen.  It can also be a floating point number, specifying the fraction of
  a full screen to scroll.  A near full screen is `next-screen-context-lines'
  less than a full screen."
diff -rc emacs/lisp/net/rlogin.el emacs-lisp/net/rlogin.el
*** emacs/lisp/net/rlogin.el	Thu Mar 14 12:51:47 2002
--- emacs-lisp/net/rlogin.el	Tue May  6 03:07:52 2003
***************
*** 71,78 ****
                  (string-match "-solaris2" system-configuration))
             t)
            (t nil)))
!   "*If non-`nil', use a pty for the local rlogin process.
! If `nil', use a pipe (if pipes are supported on the local system).
  
  Generally it is better not to waste ptys on systems which have a static
  number of them.  On the other hand, some implementations of `rlogin' assume
--- 71,78 ----
                  (string-match "-solaris2" system-configuration))
             t)
            (t nil)))
!   "*If non-nil, use a pty for the local rlogin process.
! If nil, use a pipe (if pipes are supported on the local system).
  
  Generally it is better not to waste ptys on systems which have a static
  number of them.  On the other hand, some implementations of `rlogin' assume
diff -rc emacs/lisp/play/decipher.el emacs-lisp/play/decipher.el
*** emacs/lisp/play/decipher.el	Mon Jan 13 03:54:49 2003
--- emacs-lisp/play/decipher.el	Tue May  6 03:08:10 2003
***************
*** 108,115 ****
  
  (defcustom decipher-ignore-spaces nil
    "*Non-nil means to ignore spaces and punctuation when counting digrams.
! You should set this to `nil' if the cipher message is divided into words,
! or `t' if it is not.
  This variable is buffer-local."
    :type 'boolean
    :group 'decipher)
--- 108,115 ----
  
  (defcustom decipher-ignore-spaces nil
    "*Non-nil means to ignore spaces and punctuation when counting digrams.
! You should set this to nil if the cipher message is divided into words,
! or t if it is not.
  This variable is buffer-local."
    :type 'boolean
    :group 'decipher)
diff -rc emacs/lisp/play/mpuz.el emacs-lisp/play/mpuz.el
*** emacs/lisp/play/mpuz.el	Sat May  4 16:17:07 2002
--- emacs-lisp/play/mpuz.el	Tue May  6 03:14:35 2003
***************
*** 40,47 ****
  (random t)				; randomize
  
  (defcustom mpuz-silent 'error
!   "*Set this to `nil' if you want dings on inputs.
! `t' means never ding, and `error' means only ding on wrong input."
    :type '(choice (const :tag "No" nil)
  		 (const :tag "Yes" t)
  		 (const :tag "If correct" error))
--- 40,47 ----
  (random t)				; randomize
  
  (defcustom mpuz-silent 'error
!   "*Set this to nil if you want dings on inputs.
! t means never ding, and `error' means only ding on wrong input."
    :type '(choice (const :tag "No" nil)
  		 (const :tag "Yes" t)
  		 (const :tag "If correct" error))
diff -rc emacs/lisp/progmodes/cc-align.el emacs-lisp/progmodes/cc-align.el
*** emacs/lisp/progmodes/cc-align.el	Mon Apr 22 02:35:36 2002
--- emacs-lisp/progmodes/cc-align.el	Tue May  6 03:08:48 2003
***************
*** 107,113 ****
  foo (xyz, aaa + bbb + ccc
            + ddd + eee + fff);    <- c-lineup-argcont
  
! Only continuation lines like this are touched, `nil' is returned on lines
  which are the start of an argument.
  
  Within a gcc asm block, \":\" is recognised as an argument separator,
--- 107,113 ----
  foo (xyz, aaa + bbb + ccc
            + ddd + eee + fff);    <- c-lineup-argcont
  
! Only continuation lines like this are touched, nil is returned on lines
  which are the start of an argument.
  
  Within a gcc asm block, \":\" is recognised as an argument separator,
***************
*** 842,848 ****
  similarly \"z\" under \"y\".
  
  This is done only in an \"asm\" or \"__asm__\" block, and only to those
! lines mentioned.  Anywhere else `nil' is returned.  The usual arrangement is
  to have this routine as an extra feature at the start of arglist lineups, e.g.
  
      (c-lineup-gcc-asm-reg c-lineup-arglist)
--- 842,848 ----
  similarly \"z\" under \"y\".
  
  This is done only in an \"asm\" or \"__asm__\" block, and only to those
! lines mentioned.  Anywhere else nil is returned.  The usual arrangement is
  to have this routine as an extra feature at the start of arglist lineups, e.g.
  
      (c-lineup-gcc-asm-reg c-lineup-arglist)
diff -rc emacs/lisp/progmodes/compile.el emacs-lisp/progmodes/compile.el
*** emacs/lisp/progmodes/compile.el	Mon Jan 13 23:29:53 2003
--- emacs-lisp/progmodes/compile.el	Tue May  6 03:14:49 2003
***************
*** 987,993 ****
  \`compilation-buffer-name-function', `compilation-enter-directory-regexp-alist',
  \`compilation-leave-directory-regexp-alist', `compilation-file-regexp-alist',
  \ and `compilation-nomessage-regexp-alist', respectively.
! For arg 7-10 a value `t' means an empty alist.
  
  If NO-ASYNC is non-nil, start the compilation process synchronously.
  
--- 987,993 ----
  \`compilation-buffer-name-function', `compilation-enter-directory-regexp-alist',
  \`compilation-leave-directory-regexp-alist', `compilation-file-regexp-alist',
  \ and `compilation-nomessage-regexp-alist', respectively.
! For arg 7-10 a value t means an empty alist.
  
  If NO-ASYNC is non-nil, start the compilation process synchronously.
  
diff -rc emacs/lisp/progmodes/cperl-mode.el emacs-lisp/progmodes/cperl-mode.el
*** emacs/lisp/progmodes/cperl-mode.el	Sat May  3 19:22:08 2003
--- emacs-lisp/progmodes/cperl-mode.el	Tue May  6 03:09:04 2003
***************
*** 5403,5409 ****
  MINSHIFT is the minimal amount of space to insert before the construction.
  STEP is the tabwidth to position constructions.
  If STEP is nil, `cperl-lineup-step' will be used
! \(or `cperl-indent-level', if `cperl-lineup-step' is `nil').
  Will not move the position at the start to the left."
    (interactive "r")
    (let (search col tcol seen b e)
--- 5403,5409 ----
  MINSHIFT is the minimal amount of space to insert before the construction.
  STEP is the tabwidth to position constructions.
  If STEP is nil, `cperl-lineup-step' will be used
! \(or `cperl-indent-level', if `cperl-lineup-step' is nil).
  Will not move the position at the start to the left."
    (interactive "r")
    (let (search col tcol seen b e)
diff -rc emacs/lisp/progmodes/cpp.el emacs-lisp/progmodes/cpp.el
*** emacs/lisp/progmodes/cpp.el	Tue Feb  4 19:57:53 2003
--- emacs-lisp/progmodes/cpp.el	Tue May  6 03:09:20 2003
***************
*** 92,98 ****
  0. The name of the macro (a string).
  1. Face used for text that is `ifdef' the macro.
  2. Face used for text that is `ifndef' the macro.
! 3. `t', `nil', or `both' depending on what text may be edited."
    :type '(repeat (list string face face
  		       (choice (const t)
  			       (const nil)
--- 92,98 ----
  0. The name of the macro (a string).
  1. Face used for text that is `ifdef' the macro.
  2. Face used for text that is `ifndef' the macro.
! 3. t, nil, or `both' depending on what text may be edited."
    :type '(repeat (list string face face
  		       (choice (const t)
  			       (const nil)
diff -rc emacs/lisp/progmodes/idlwave.el emacs-lisp/progmodes/idlwave.el
*** emacs/lisp/progmodes/idlwave.el	Mon Feb 17 16:14:47 2003
--- emacs-lisp/progmodes/idlwave.el	Tue May  6 03:09:42 2003
***************
*** 5272,5280 ****
    "List of special completion functions.
  These functions are called for each completion.  Each function must check
  if its own special completion context is present.  If yes, it should
! use `idlwave-complete-in-buffer' to do some completion and return `t'.
! If such a function returns `t', *no further* attempts to complete
! other contexts will be done.  If the function returns `nil', other completions
  will be tried.")
  
  (defun idlwave-call-special (functions &rest args)
--- 5272,5280 ----
    "List of special completion functions.
  These functions are called for each completion.  Each function must check
  if its own special completion context is present.  If yes, it should
! use `idlwave-complete-in-buffer' to do some completion and return t.
! If such a function returns t, *no further* attempts to complete
! other contexts will be done.  If the function returns nil, other completions
  will be tried.")
  
  (defun idlwave-call-special (functions &rest args)
diff -rc emacs/lisp/progmodes/tcl.el emacs-lisp/progmodes/tcl.el
*** emacs/lisp/progmodes/tcl.el	Wed Feb 12 00:37:09 2003
--- emacs-lisp/progmodes/tcl.el	Tue May  6 03:09:58 2003
***************
*** 437,443 ****
  is a Tcl expression, and the last argument is Tcl commands.")
  
  (defvar tcl-explain-indentation nil
!   "If not `nil', debugging message will be printed during indentation.")
  
  
  
--- 437,443 ----
  is a Tcl expression, and the last argument is Tcl commands.")
  
  (defvar tcl-explain-indentation nil
!   "If non-nil, debugging message will be printed during indentation.")
  
  
  
diff -rc emacs/lisp/ps-print.el emacs-lisp/ps-print.el
*** emacs/lisp/ps-print.el	Thu Mar  6 17:59:19 2003
--- emacs-lisp/ps-print.el	Tue May  6 03:03:10 2003
***************
*** 2134,2140 ****
  		22       +   22          +
  		--------     -----------     ---------     ----------------
  
! Any other value is treated as `nil'."
    :type '(choice :menu-tag "Zebra Stripe Follow"
  		 :tag "Zebra Stripe Follow"
  		 (const :tag "Always Restart" nil)
--- 2134,2140 ----
  		22       +   22          +
  		--------     -----------     ---------     ----------------
  
! Any other value is treated as nil."
    :type '(choice :menu-tag "Zebra Stripe Follow"
  		 :tag "Zebra Stripe Follow"
  		 (const :tag "Always Restart" nil)
diff -rc emacs/lisp/simple.el emacs-lisp/simple.el
*** emacs/lisp/simple.el	Thu Apr 24 16:37:38 2003
--- emacs-lisp/simple.el	Tue May  6 03:03:22 2003
***************
*** 80,86 ****
  text-property `hard'.
  With ARG, insert that many newlines.
  Call `auto-fill-function' if the current column number is greater
! than the value of `fill-column' and ARG is `nil'."
    (interactive "*P")
    (barf-if-buffer-read-only)
    ;; Inserting a newline at the end of a line produces better redisplay in
--- 80,86 ----
  text-property `hard'.
  With ARG, insert that many newlines.
  Call `auto-fill-function' if the current column number is greater
! than the value of `fill-column' and ARG is nil."
    (interactive "*P")
    (barf-if-buffer-read-only)
    ;; Inserting a newline at the end of a line produces better redisplay in
diff -rc emacs/lisp/skeleton.el emacs-lisp/skeleton.el
*** emacs/lisp/skeleton.el	Fri Jan 17 22:47:23 2003
--- emacs-lisp/skeleton.el	Tue May  6 03:13:01 2003
***************
*** 52,58 ****
  (defvar skeleton-autowrap t
    "Controls wrapping behaviour of functions created with `define-skeleton'.
  When the region is visible (due to `transient-mark-mode' or marking a region
! with the mouse) and this is non-`nil' and the function was called without an
  explicit ARG, then the ARG defaults to -1, i.e. wrapping around the visible
  region.
  
--- 52,58 ----
  (defvar skeleton-autowrap t
    "Controls wrapping behaviour of functions created with `define-skeleton'.
  When the region is visible (due to `transient-mark-mode' or marking a region
! with the mouse) and this is non-nil and the function was called without an
  explicit ARG, then the ARG defaults to -1, i.e. wrapping around the visible
  region.
  
***************
*** 78,87 ****
    "Function for transforming a skeleton proxy's aliases' variable value.")
  
  (defvar skeleton-untabify t
!   "When non-`nil' untabifies when deleting backwards with element -ARG.")
  
  (defvar skeleton-newline-indent-rigidly nil
!   "When non-`nil', indent rigidly under current line for element `\\n'.
  Else use mode's `indent-line-function'.")
  
  (defvar skeleton-further-elements ()
--- 78,87 ----
    "Function for transforming a skeleton proxy's aliases' variable value.")
  
  (defvar skeleton-untabify t
!   "When non-nil untabifies when deleting backwards with element -ARG.")
  
  (defvar skeleton-newline-indent-rigidly nil
!   "When non-nil, indent rigidly under current line for element `\\n'.
  Else use mode's `indent-line-function'.")
  
  (defvar skeleton-further-elements ()
***************
*** 284,302 ****
  
  Quoted Lisp expressions are evaluated for their side-effects.
  Other Lisp expressions are evaluated and the value treated as above.
! Note that expressions may not return `t' since this implies an
  endless loop.  Modes can define other symbols by locally setting them
  to any valid skeleton element.  The following local variables are
  available:
  
  	str	first time: read a string according to INTERACTOR
  		then: insert previously read string once more
! 	help	help-form during interaction with the user or `nil'
  	input	initial input (string or cons with index) while reading str
  	v1, v2	local variables for memorizing anything you want
  
  When done with skeleton, but before going back to `_'-point call
! `skeleton-end-hook' if that is non-`nil'."
    (let ((skeleton-regions regions))
      (and skeleton-regions
  	 (setq skeleton-regions
--- 284,302 ----
  
  Quoted Lisp expressions are evaluated for their side-effects.
  Other Lisp expressions are evaluated and the value treated as above.
! Note that expressions may not return t since this implies an
  endless loop.  Modes can define other symbols by locally setting them
  to any valid skeleton element.  The following local variables are
  available:
  
  	str	first time: read a string according to INTERACTOR
  		then: insert previously read string once more
! 	help	help-form during interaction with the user or nil
  	input	initial input (string or cons with index) while reading str
  	v1, v2	local variables for memorizing anything you want
  
  When done with skeleton, but before going back to `_'-point call
! `skeleton-end-hook' if that is non-nil."
    (let ((skeleton-regions regions))
      (and skeleton-regions
  	 (setq skeleton-regions
***************
*** 334,341 ****
  
  PROMPT must be a string or a form that evaluates to a string.
  It may contain a `%s' which will be replaced by `skeleton-subprompt'.
! If non-`nil' second arg INITIAL-INPUT or variable `input' is a string or
! cons with index to insert before reading.  If third arg RECURSIVE is non-`nil'
  i.e. we are handling the iterator of a subskeleton, returns empty string if
  user didn't modify input.
  While reading, the value of `minibuffer-help-form' is variable `help' if that
--- 334,341 ----
  
  PROMPT must be a string or a form that evaluates to a string.
  It may contain a `%s' which will be replaced by `skeleton-subprompt'.
! If non-nil second arg INITIAL-INPUT or variable `input' is a string or
! cons with index to insert before reading.  If third arg RECURSIVE is non-nil
  i.e. we are handling the iterator of a subskeleton, returns empty string if
  user didn't modify input.
  While reading, the value of `minibuffer-help-form' is variable `help' if that
diff -rc emacs/lisp/type-break.el emacs-lisp/type-break.el
*** emacs/lisp/type-break.el	Fri Apr 11 15:32:08 2003
--- emacs-lisp/type-break.el	Tue May  6 03:05:43 2003
***************
*** 97,103 ****
  (defcustom type-break-good-rest-interval (/ type-break-interval 6)
    "*Number of seconds of idle time considered to be an adequate typing rest.
  
! When this variable is non-`nil', emacs checks the idle time between
  keystrokes.  If this idle time is long enough to be considered a \"good\"
  rest from typing, then the next typing break is simply rescheduled for later.
  
--- 97,103 ----
  (defcustom type-break-good-rest-interval (/ type-break-interval 6)
    "*Number of seconds of idle time considered to be an adequate typing rest.
  
! When this variable is non-nil, emacs checks the idle time between
  keystrokes.  If this idle time is long enough to be considered a \"good\"
  rest from typing, then the next typing break is simply rescheduled for later.
  
***************
*** 145,151 ****
    :group 'type-break)
  
  (defcustom type-break-query-mode t
!   "*Non-`nil' means ask whether or not to prompt user for breaks.
  If so, call the function specified in the value of the variable
  `type-break-query-function' to do the asking."
    :type 'boolean
--- 145,151 ----
    :group 'type-break)
  
  (defcustom type-break-query-mode t
!   "*Non-nil means ask whether or not to prompt user for breaks.
  If so, call the function specified in the value of the variable
  `type-break-query-function' to do the asking."
    :type 'boolean
***************
*** 156,162 ****
  It should take a string as an argument, the prompt.
  Usually this should be set to `yes-or-no-p' or `y-or-n-p'.
  
! To avoid being queried at all, set `type-break-query-mode' to `nil'."
    :type '(radio function
                  (function-item yes-or-no-p)
                  (function-item y-or-n-p))
--- 156,162 ----
  It should take a string as an argument, the prompt.
  Usually this should be set to `yes-or-no-p' or `y-or-n-p'.
  
! To avoid being queried at all, set `type-break-query-mode' to nil."
    :type '(radio function
                  (function-item yes-or-no-p)
                  (function-item y-or-n-p))
***************
*** 222,228 ****
  ;; Mode line frobs
  
  (defcustom type-break-mode-line-message-mode nil
!   "*Non-`nil' means put type-break related messages in the mode line.
  Otherwise, messages typically go in the echo area.
  
  See also `type-break-mode-line-format' and its members."
--- 222,228 ----
  ;; Mode line frobs
  
  (defcustom type-break-mode-line-message-mode nil
!   "*Non-nil means put type-break related messages in the mode line.
  Otherwise, messages typically go in the echo area.
  
  See also `type-break-mode-line-format' and its members."