3790 |
(defun byte-compile-no-warnings (form) |
(defun byte-compile-no-warnings (form) |
3791 |
(let (byte-compile-warnings) |
(let (byte-compile-warnings) |
3792 |
(byte-compile-form (cons 'progn (cdr form))))) |
(byte-compile-form (cons 'progn (cdr form))))) |
3793 |
|
|
3794 |
|
;; Warn about misuses of make-variable-buffer-local. |
3795 |
|
(byte-defop-compiler-1 make-variable-buffer-local byte-compile-make-variable-buffer-local) |
3796 |
|
(defun byte-compile-make-variable-buffer-local (form) |
3797 |
|
(if (eq (car-safe (car-safe (cdr-safe form))) 'quote) |
3798 |
|
(byte-compile-warn |
3799 |
|
"`make-variable-buffer-local' should be called at toplevel")) |
3800 |
|
(byte-compile-normal-call form)) |
3801 |
|
(put 'make-variable-buffer-local |
3802 |
|
'byte-hunk-handler 'byte-compile-form-make-variable-buffer-local) |
3803 |
|
(defun byte-compile-form-make-variable-buffer-local (form) |
3804 |
|
(byte-compile-keep-pending form 'byte-compile-normal-call)) |
3805 |
|
|
3806 |
|
|
3807 |
;;; tags |
;;; tags |
3808 |
|
|