procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-compile-output-file-form):

Browse source 
Quote doc string reference in defvaralias as it is not in special form.
(byte-compile-output-docform): Doc fix.
This commit is contained in:
YAMAMOTO Mitsuharu 2009-11-16 04:06:12 +00:00
parent 7d8ba25431
commit 1e8571214b
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-11-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* emacs-lisp/bytecomp.el (byte-compile-output-file-form):
Quote doc string reference in defvaralias as it is not in special form.
(byte-compile-output-docform): Doc fix.
2009-11-16 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc.el (math-2-word-size, math-half-2-word-size)

7
lisp/emacs-lisp/bytecomp.el
View file

@ -1925,7 +1925,7 @@ Call from the source buffer."
(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 @@ Call from the source buffer."
(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 @@ we output that argument and the following argument
\(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))