diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-10 01:50:22 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-10 01:50:22 -0400 |
| commit | 26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b (patch) | |
| tree | 1009712ed76be8785abbfa2cfb6ddc9359b46ced /lisp/edmacro.el | |
| parent | 519489089197ce2d41c72e20773438d415ce8564 (diff) | |
| download | emacs-26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b.tar.gz | |
cl-lib.el: Partial revert of "2015-04-05 Rationalize c[ad]+r"
* lisp/emacs-lisp/cl-lib.el: Partial revert of "2015-04-05 Rationalize
use of c[ad]+r", so as to keep the "cl-" prefix on all
cl-lib definitions.
Diffstat (limited to 'lisp/edmacro.el')
| -rw-r--r-- | lisp/edmacro.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index d759160d10d..84dfd4f1ebf 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -612,7 +612,7 @@ This function assumes that the events can be stored in a string." ((eq (car ev) 'switch-frame)) ((equal ev '(menu-bar)) (push 'menu-bar result)) - ((equal (cadadr ev) '(menu-bar)) + ((equal (cl-cadadr ev) '(menu-bar)) (push (vector 'menu-bar (car ev)) result)) ;; It would be nice to do pop-up menus, too, but not enough ;; info is recorded in macros to make this possible. |