Mercurial > hg > xemacs-beta

diff lisp/packages/hyper-apropos.el @ 179:9ad43877534d r20-3b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents 8eaf7971accc
children 3d6bfa290dbd
line wrap: on
line diff
--- a/lisp/packages/hyper-apropos.el	Mon Aug 13 09:51:18 2007 +0200
+++ b/lisp/packages/hyper-apropos.el	Mon Aug 13 09:52:19 2007 +0200
@@ -303,6 +303,11 @@
 			 (if (natnump l) l 0)))
       (and hyper-apropos-show-brief-docs
 	   (setq doc (documentation fn))
+	   (if  (string-match
+		 "^([^\n\t )]+[\t ]*\\([^\n)]+\\)?)\\(:[\t ]*\\|\n?\\'\\)"
+		 doc)
+	       (setq doc (substring doc (match-end 0) (string-match "\n" doc)))
+	     t)
 	   (insert-face (if doc
 			    (concat " - "
 				    (substring doc 0 (string-match "\n" doc)))