diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-08-19 07:36:05 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-08-19 23:29:28 -0400 |
| commit | 2326a3ab13d49f40115e9093bcf71d7d68c11772 (patch) | |
| tree | afcdb1098d678df1d7c65942e1e42a59d430a95a /lisp/emacs-lisp | |
| parent | 1b8d0fe44a38c91f5bb7a819749ea1c1aa8a5a5f (diff) | |
| download | emacs-2326a3ab13d49f40115e9093bcf71d7d68c11772.tar.gz emacs-2326a3ab13d49f40115e9093bcf71d7d68c11772.tar.bz2 emacs-2326a3ab13d49f40115e9093bcf71d7d68c11772.zip | |
Stop printing '4' in .elc files after 'define-symbol-prop' calls
* lisp/emacs-lisp/bytecomp.el (byte-compile-define-symbol-prop):
Return nil in case we have compiled the form, to prevent a redundant
constant from getting added to the compiled output.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 9e14c91c953..d769a155aa0 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -4740,7 +4740,8 @@ binding slots have been popped." . (,prop ,val ,@(alist-get fun overriding-plist-environment))) overriding-plist-environment) (byte-compile-push-constant val) - (byte-compile-out 'byte-call 3))) + (byte-compile-out 'byte-call 3) + nil)) (_ (byte-compile-keep-pending form)))) |