diff options
author | Richard M. Stallman <rms@gnu.org> | 2001-12-22 01:36:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2001-12-22 01:36:37 +0000 |
commit | ad23ffba80eb34dbd97ff51813c8d6f8fa4518c5 (patch) | |
tree | f0098b7b0b7aed995fa8360856c163251a244c4e /lisp/apropos.el | |
parent | 19e40e396816d98fb60f9c5d19544119b8c5ccfe (diff) | |
download | emacs-ad23ffba80eb34dbd97ff51813c8d6f8fa4518c5.tar.gz |
(apropos-print): SPACING is now nil or a separator string.
(apropos-documentation, apropos-value): Pass a suitable string.
Diffstat (limited to 'lisp/apropos.el')
-rw-r--r-- | lisp/apropos.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index fa3be6f0a5c..3ad41627ece 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -386,7 +386,7 @@ Returns list of symbols and values found." (if (or f v p) (setq apropos-accumulator (cons (list symbol f v p) apropos-accumulator)))))) - (apropos-print nil t)) + (apropos-print nil "\n----------------\n")) ;;;###autoload @@ -424,7 +424,7 @@ Returns list of symbols and documentation found." (setq apropos-accumulator (cons (list symbol f v) apropos-accumulator))))))) - (apropos-print nil t)) + (apropos-print nil "\n----------------\n")) (kill-buffer standard-input)))) @@ -585,7 +585,10 @@ The value of `apropos-accumulator' is the list of items to output. Each element should have the format (SYMBOL FN-DOC VAR-DOC [PLIST-DOC]). The return value is the list that was in `apropos-accumulator', sorted alphabetically by symbol name; but this function also sets -`apropos-accumulator' to nil before returning." +`apropos-accumulator' to nil before returning. + +If SPACING is non-nil, it should be a string; +separate items with that string." (if (null apropos-accumulator) (message "No apropos matches for `%s'" apropos-regexp) (setq apropos-accumulator @@ -606,7 +609,8 @@ alphabetically by symbol name; but this function also sets (substitute-command-keys "and type \\[apropos-follow] to get full documentation.\n\n")) (while (consp p) - (or (not spacing) (bobp) (terpri)) + (when (and spacing (not (bobp))) + (princ spacing)) (setq apropos-item (car p) symbol (car apropos-item) p (cdr p)) |