diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-12-19 15:21:26 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-12-19 15:21:26 +0100 |
| commit | bc13902d3a069089792a65129efa6ed3176cac60 (patch) | |
| tree | 4b2f9ef4b78f0604df0b743405f6462291109c8f /lisp/emacs-lisp/bytecomp.el | |
| parent | 4de46e6872d31c151c13e3fde97b43902cb06588 (diff) | |
| parent | 8535861430fc0ce82da73e01063ae11c85c65267 (diff) | |
| download | emacs-bc13902d3a069089792a65129efa6ed3176cac60.tar.gz emacs-bc13902d3a069089792a65129efa6ed3176cac60.tar.bz2 emacs-bc13902d3a069089792a65129efa6ed3176cac60.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 644d9f1a470..a98c9197a06 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2677,15 +2677,6 @@ list that represents a doc string reference. (prog1 (byte-compile-keep-pending form) (apply 'make-obsolete (mapcar 'eval (cdr form))))) -;; This handler is not necessary, but it makes the output from dont-compile -;; and similar macros cleaner. -(put 'eval 'byte-hunk-handler 'byte-compile-file-form-eval) -(defun byte-compile-file-form-eval (form) - (if (and (eq (car-safe (nth 1 form)) 'quote) - (equal (nth 2 form) lexical-binding)) - (nth 1 (nth 1 form)) - (byte-compile-keep-pending form))) - (defun byte-compile-file-form-defmumble (name macro arglist body rest) "Process a `defalias' for NAME. If MACRO is non-nil, the definition is known to be a macro. |