Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-77
Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 504-513) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: .cvsignore: Add `lock'. * gnus--rel--5.10 (patch 99-103) - Update from CVS
This commit is contained in:
commit
5e10f34207
231 changed files with 1119 additions and 577 deletions
|
@ -3792,6 +3792,19 @@ that suppresses all warnings during execution of BODY."
|
|||
(defun byte-compile-no-warnings (form)
|
||||
(let (byte-compile-warnings)
|
||||
(byte-compile-form (cons 'progn (cdr form)))))
|
||||
|
||||
;; Warn about misuses of make-variable-buffer-local.
|
||||
(byte-defop-compiler-1 make-variable-buffer-local byte-compile-make-variable-buffer-local)
|
||||
(defun byte-compile-make-variable-buffer-local (form)
|
||||
(if (eq (car-safe (car-safe (cdr-safe form))) 'quote)
|
||||
(byte-compile-warn
|
||||
"`make-variable-buffer-local' should be called at toplevel"))
|
||||
(byte-compile-normal-call form))
|
||||
(put 'make-variable-buffer-local
|
||||
'byte-hunk-handler 'byte-compile-form-make-variable-buffer-local)
|
||||
(defun byte-compile-form-make-variable-buffer-local (form)
|
||||
(byte-compile-keep-pending form 'byte-compile-normal-call))
|
||||
|
||||
|
||||
;;; tags
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue