X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fhyper-apropos.el;h=1e34bfa10887ea49a66baee120aa39c58fb07c6b;hb=e899a8eb731451c717d11a9f4b0d799e978714b3;hp=2839b734b3b404b2b094864675bc457a7511cb0d;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/hyper-apropos.el b/lisp/hyper-apropos.el
index 2839b73..1e34bfa 100644
--- a/lisp/hyper-apropos.el
+++ b/lisp/hyper-apropos.el
@@ -211,7 +211,7 @@ This map inherits from `hyper-apropos-help-map.'")
 
 (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 @@ General Commands:
 
 ;; ---------------------------------------------------------------------- ;;
 
-;; 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 @@ See also `hyper-apropos' and `hyper-describe-function'."
 			  (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 "")
@@ -481,6 +481,7 @@ See also `hyper-apropos' and `hyper-describe-function'."
 	(setq hyper-apropos-prev-wconfig (current-window-configuration)))
     (hyper-apropos-get-doc symbol t nil this-ref-buffer)))
 
+;;;###autoload
 (defun hyper-where-is (symbol)
   "Print message listing key sequences that invoke specified command."
   (interactive (list (hyper-apropos-read-function-symbol "Where is function")))
@@ -885,14 +886,13 @@ See also `hyper-apropos' and `hyper-describe-function'."
 	     (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))