* 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 d16500a76cb7a199d74e42da84c107ef31766341..b72d928dc6cf21bbeafac1c350b383ff3bc253ed 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 ad366bb2e064303d6994f6c2c62b3c323fa26d32..3583f363f935381432a2a9d92f7be8d4b18e18e6 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 194fdfdd915e97bd18f4f6079289a19d65562ba4..a5e762d021017f4f26f65f84251e967eab52670f 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 3f330703d51f71dfce3e62c6f0cfa04137d9f6db..e527d07029aeb8f53f7310510c0821565383f18e 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