[Emacs-diffs] emacs/lisp/emacs-lisp bytecomp.el

[YAMAMOTO Mitsuharu]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     YAMAMOTO Mitsuharu <mituharu>   09/11/16 04:05:51

Modified files:
        lisp/emacs-lisp: bytecomp.el 

Log message:
        (byte-compile-output-file-form):
        Quote doc string reference in defvaralias as it is not in special form.
        (byte-compile-output-docform): Doc fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bytecomp.el?cvsroot=emacs&r1=2.273&r2=2.274

Patches:
Index: bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.273
retrieving revision 2.274
diff -u -b -r2.273 -r2.274
--- bytecomp.el 14 Nov 2009 04:23:21 -0000      2.273
+++ bytecomp.el 16 Nov 2009 04:05:51 -0000      2.274
@@ -1925,7 +1925,7 @@
 
 (defun byte-compile-output-file-form (form)
   ;; writes the given form to the output buffer, being careful of docstrings
-  ;; in defun, defmacro, defvar, defconst, autoload and
+  ;; in defun, defmacro, defvar, defvaralias, defconst, autoload and
   ;; custom-declare-variable because make-docfile is so amazingly stupid.
   ;; 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
@@ -1935,7 +1935,8 @@
           (stringp (nth 3 form)))
       (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil
                                   (memq (car form)
-                                        '(autoload custom-declare-variable)))
+                                        '(defvaralias autoload
+                                          custom-declare-variable)))
     (let ((print-escape-newlines t)
          (print-length nil)
          (print-level nil)
@@ -1959,7 +1960,7 @@
 \(the constants vector) together, for lazy loading.
 QUOTED says that we have to put a quote before the
 list that represents a doc string reference.
-`autoload' and `custom-declare-variable' need that."
+`defvaralias', `autoload' and `custom-declare-variable' need that."
   ;; We need to examine byte-compile-dynamic-docstrings
   ;; in the input buffer (now current), not in the output buffer.
   (let ((dynamic-docstrings byte-compile-dynamic-docstrings))