Mercurial > hg > xemacs-beta

diff lisp/menubar-items.el @ 838:bf645ed7cfe3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-14 09:28:06 by ben] revert-buffer, others files.el: Andy's patch from 21.4. Fix evil nasty problems with revert-buffer. menubar-items.el: Add Append to Register to Rectangles/Register menu. config.h.in, font-lock.c: Reenable font-lock code since it's used by mouse.el. The flag for this exists in config.h.in but not currently controllable through configure.
author ben
date Tue, 14 May 2002 09:28:14 +0000
parents 0cce4fee510b
children 047d37eb70d7
line wrap: on
line diff
--- a/lisp/menubar-items.el	Tue May 14 05:30:36 2002 +0000
+++ b/lisp/menubar-items.el	Tue May 14 09:28:14 2002 +0000
@@ -424,7 +424,7 @@
 
 
      ("C%_mds"
-      ["Repeat Last %_Complex Command..." repeat-complex-command]
+      ["Repeat Last Comple%_x Command..." repeat-complex-command]
       ["E%_valuate Lisp Expression..." eval-expression]
       ["Execute %_Named Command..." execute-extended-command]
       "----"
@@ -432,7 +432,7 @@
        :included (not defining-kbd-macro)]
       ["Stop %_Defining Macro" end-kbd-macro
        :included defining-kbd-macro]
-      ["E%_xecute Last Macro" call-last-kbd-macro
+      ["%_Execute Last Macro" call-last-kbd-macro
        :active last-kbd-macro]
       ("Other %_Macro"
        ["Edit %_Last Macro" edit-last-kbd-macro
@@ -506,12 +506,12 @@
        ["L%_oad Abbrevs..." read-abbrev-file]
        )
 	"---"
-      ["%_Kill Rectangle" kill-rectangle]
+      ["%_Cut Rectangle" kill-rectangle]
       ("Other %_Rectangles/Register"
        ["%_Yank Rectangle" yank-rectangle]
        ["Rectangle %_to Register" copy-rectangle-to-register]
        ["Rectangle %_from Register" insert-register]
-       ["%_Clear Rectangle" clear-rectangle]
+       ["%_Delete Rectangle" clear-rectangle]
        ["%_Open Rectangle" open-rectangle]
        ["%_Prefix Rectangle..." string-rectangle]
        ["Rectangle %_Mousing"
@@ -520,7 +520,8 @@
 	:style toggle :selected mouse-track-rectangle-p]
        "---"
        ["%_Copy to Register..." copy-to-register :active (region-exists-p)]
-       ["%_Paste Register..." insert-register]
+       ["%_Append to Register..." append-register :active (region-exists-p)]
+       ["%_Insert Register..." insert-register]
        "---"
        ["%_Save Point to Register" point-to-register]
        ["%_Jump to Register"  register-to-point]