* emacs-lisp/bytecomp.el (byte-compile-output-file-form): Handle defvaralias.

* make-docfile.c (scan_lisp_file): Also look for `defvaralias'.

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index d16500a..b72d928 100644 (file)
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * make-docfile.c (scan_lisp_file): Also look for `defvaralias'.
+
 2009-10-15  Juanma Barranquero  <lekktu@gmail.com>
 
        * .gitignore: Add echolisp.tmp.

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index ad366bb..3583f36 100644 (file)
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -1007,7 +1007,9 @@ scan_lisp_file (filename, mode)
            }
        }
 
-      else if (! strcmp (buffer, "custom-declare-variable"))
+      else if (! strcmp (buffer, "custom-declare-variable")
+              || ! strcmp (buffer, "defvaralias")
+              )
        {
          char c1 = 0, c2 = 0;
          type = 'V';

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 194fdfd..a5e762d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-03  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * emacs-lisp/bytecomp.el (byte-compile-output-file-form): Handle defvaralias.
+
 2009-11-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * descr-text.el: Require help-mode rather than help-fns (bug#4861).

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3f33070..e527d07 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2077,7 +2077,7 @@ and will be removed soon.  See (elisp)Backquote in the manual."))
   ;; defalias calls are output directly by byte-compile-file-form-defmumble;
   ;; it does not pay to first build the defalias in defmumble and then parse
   ;; it here.
-  (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload
+  (if (and (memq (car-safe form) '(defun defmacro defvar defvaralias defconst autoload
                                   custom-declare-variable))
           (stringp (nth 3 form)))
       (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil