Mercurial > emacs

changeset 42256:f06cb3ff301f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(apropos-print): SPACING is now nil or a separator string. (apropos-documentation, apropos-value): Pass a suitable string.
author Richard M. Stallman <rms@gnu.org>
date Sat, 22 Dec 2001 01:36:37 +0000
parents 262eaf1a389e
children 2ec3375076e1
files lisp/apropos.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/apropos.el	Sat Dec 22 01:27:34 2001 +0000
+++ b/lisp/apropos.el	Sat Dec 22 01:36:37 2001 +0000
@@ -386,7 +386,7 @@
 	(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 @@
 		       (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 @@
 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 @@
 		(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))