From: yamaoka <yamaoka>
Date: Tue, 27 Apr 2004 11:29:48 +0000 (+0000)
Subject: (describe-key-briefly): Remove compiler macro.
X-Git-Tag: t-gnus-6_17_4-quimby-~959
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2dd508b6fc5468f77e11a73df9d8446dc9664a0;p=elisp%2Fgnus.git-

(describe-key-briefly): Remove compiler macro.
---

diff --git a/ChangeLog b/ChangeLog
index 7b1ca1c..8abacae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/dgnushack.el (describe-key-briefly): Remove compiler macro.
+
 2004-04-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* texi/ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm.
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 0debd8a..7673f74 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -691,19 +691,4 @@ dgnushack-compile."
 	(while (setq file (pop files))
 	  (insert "info/" file "\n"))))))
 
-
-(define-compiler-macro describe-key-briefly (&whole form key &optional insert)
-  (if (condition-case nil
-	  (progn
-	    (describe-key-briefly '((())) nil)
-	    t)
-	(wrong-number-of-arguments nil);; Old Emacsen.
-	(error t))
-      form
-    (if insert
-	`(if ,insert
-	     (insert (funcall 'describe-key-briefly ,key))
-	   (funcall 'describe-key-briefly ,key))
-      `(funcall 'describe-key-briefly ,key))))
-
 ;;; dgnushack.el ends here