# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1257315341 0
# Node ID 69c90cb0d1e31fd7c366dae987f779e548a4b078
# Parent  b7557958fa7d3fe9b40bb95010df77b450c7a2be
* emacs-lisp/bytecomp.el (byte-compile-output-file-form): Handle defvaralias.

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

diff -r b7557958fa7d -r 69c90cb0d1e3 lib-src/ChangeLog
--- a/lib-src/ChangeLog	Wed Nov 04 04:33:25 2009 +0000
+++ b/lib-src/ChangeLog	Wed Nov 04 06:15:41 2009 +0000
@@ -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 -r b7557958fa7d -r 69c90cb0d1e3 lib-src/make-docfile.c
--- a/lib-src/make-docfile.c	Wed Nov 04 04:33:25 2009 +0000
+++ b/lib-src/make-docfile.c	Wed Nov 04 06:15:41 2009 +0000
@@ -1007,7 +1007,9 @@
 	    }
 	}
 
-      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 -r b7557958fa7d -r 69c90cb0d1e3 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 04 04:33:25 2009 +0000
+++ b/lisp/ChangeLog	Wed Nov 04 06:15:41 2009 +0000
@@ -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 -r b7557958fa7d -r 69c90cb0d1e3 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Nov 04 04:33:25 2009 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Nov 04 06:15:41 2009 +0000
@@ -2077,7 +2077,7 @@
   ;; 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