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

diff --git a/ChangeLog b/ChangeLog
index 7b1ca1c..8abacae 100644 (file)
--- 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 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -691,19 +691,4 @@ dgnushack-compile."
        (while (setq file (pop files))
          (insert "info/" file "\n"))))))
 
-\f
-(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