diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-04-09 20:36:01 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-04-09 20:36:01 +0800 |
| commit | b4d3bc10dc84f6b01a2b6b215d0e489555aa6edd (patch) | |
| tree | efc38746407c5604b926f192b6f1339dbac410d1 /lisp/woman.el | |
| parent | 9e40dda4c65e2b5a3dba82c180a20bb5c4687540 (diff) | |
| download | emacs-b4d3bc10dc84f6b01a2b6b215d0e489555aa6edd.tar.gz | |
Remove defining user variables via * in docstring.
* lisp/apropos.el (apropos-variable):
* lisp/files-x.el (read-file-local-variable):
* lisp/simple.el (set-variable):
* lisp/woman.el (woman-mini-help):
* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Callers changed.
* lisp/custom.el (custom-variable-p): Return nil for non-symbol
arguments instead of signaling an error.
(user-variable-p): Obsolete alias for custom-variable-p.
* lisp/erc/erc.el (erc-cmd-SET): Call custom-variable-p instead of
user-variable-p.
* src/callint.c (Finteractive, Fcall_interactively):
* src/minibuf.c (Fread_variable): Callers changed.
* src/eval.c (Fuser_variable_p, user_variable_p_eh)
(lisp_indirect_variable): Functions deleted.
(Fdefvar): Caller changed.
* doc/lispref/commands.texi (Interactive Codes):
* doc/lispref/help.texi (Accessing Documentation):
* doc/lispref/minibuf.texi (High-Level Completion): Callers changed.
* doc/lispref/customize.texi (Variable Definitions): Remove user-variable-p.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 4ecf7c8891d..c76399a96e5 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -1987,7 +1987,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated." (lambda (symbol) (and (or (commandp symbol) - (user-variable-p symbol)) + (custom-variable-p symbol)) (not (get symbol 'apropos-inhibit)))))) ;; Find documentation strings: (let ((p apropos-accumulator) @@ -1999,7 +1999,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated." (if (setq doc (documentation symbol t)) (substring doc 0 (string-match "\n" doc)) "(not documented)")) - (if (user-variable-p symbol) ; 3. variable doc + (if (custom-variable-p symbol) ; 3. variable doc (if (setq doc (documentation-property symbol 'variable-documentation t)) (substring doc 0 (string-match "\n" doc)))))) |