diff options
| author | Noam Postavsky | 2017-08-19 07:36:05 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2017-08-19 23:29:28 -0400 |
| commit | 2326a3ab13d49f40115e9093bcf71d7d68c11772 (patch) | |
| tree | afcdb1098d678df1d7c65942e1e42a59d430a95a | |
| parent | 1b8d0fe44a38c91f5bb7a819749ea1c1aa8a5a5f (diff) | |
| download | emacs-2326a3ab13d49f40115e9093bcf71d7d68c11772.tar.gz 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.
| -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." | |||
| 4740 | . (,prop ,val ,@(alist-get fun overriding-plist-environment))) | 4740 | . (,prop ,val ,@(alist-get fun overriding-plist-environment))) |
| 4741 | overriding-plist-environment) | 4741 | overriding-plist-environment) |
| 4742 | (byte-compile-push-constant val) | 4742 | (byte-compile-push-constant val) |
| 4743 | (byte-compile-out 'byte-call 3))) | 4743 | (byte-compile-out 'byte-call 3) |
| 4744 | nil)) | ||
| 4744 | 4745 | ||
| 4745 | (_ (byte-compile-keep-pending form)))) | 4746 | (_ (byte-compile-keep-pending form)))) |
| 4746 | 4747 | ||