Mercurial > hg > xemacs-beta

diff lisp/hyper-apropos.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children bbff43aa5eb7
line wrap: on
line diff
--- a/lisp/hyper-apropos.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/hyper-apropos.el	Mon Aug 13 11:07:10 2007 +0200
@@ -211,7 +211,7 @@
 
 (defvar hyper-apropos-mode-hook nil
   "*User function run after hyper-apropos mode initialization.  Usage:
-\(setq hyper-apropos-mode-hook '(lambda () ... your init forms ...)).")
+\(add-hook 'hyper-apropos-mode-hook #'(lambda () ... your init forms ...)).")
 
 ;; ---------------------------------------------------------------------- ;;
 
@@ -380,7 +380,7 @@
 
 ;; ---------------------------------------------------------------------- ;;
 
-;; similar to `describe-key-briefly', copied from prim/help.el by CW
+;; similar to `describe-key-briefly', copied from help.el by CW
 
 ;;;###autoload
 (defun hyper-describe-key (key)
@@ -452,7 +452,7 @@
 			  (if v
 			      (format " (default %s): " v)
 			    ": "))
-		  (mapcar (function (lambda (x) (list (symbol-name x))))
+		  (mapcar #'(lambda (x) (list (symbol-name x)))
 			  (face-list))
 		  nil t nil 'hyper-apropos-face-history)))
      (list (if (string= val "")
@@ -885,14 +885,13 @@
 	     (progn
 	       (setq ok t)
 	       (copy-face symbol 'hyper-apropos-temp-face 'global)
-	       (mapcar (function
-			(lambda (property)
-			  (setq symtype (face-property-instance symbol
-								property))
-			  (if symtype
-			      (set-face-property 'hyper-apropos-temp-face
-						 property
-						 symtype))))
+	       (mapcar #'(lambda (property)
+			   (setq symtype (face-property-instance symbol
+								 property))
+			   (if symtype
+			       (set-face-property 'hyper-apropos-temp-face
+						  property
+						  symtype)))
 		       built-in-face-specifiers)
 	       (setq font (cons (face-property-instance symbol 'font nil 0 t)
 				(face-property-instance symbol 'font))