Mercurial > hg > xemacs-beta

comparison lisp/x-menubar.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 90d73dddcdc4
children
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
103 (eq last-buffer-undo-list 103 (eq last-buffer-undo-list
104 (cdr-safe buffer-undo-list))))) 104 (cdr-safe buffer-undo-list)))))
105 (or (eq buffer-undo-list pending-undo-list) 105 (or (eq buffer-undo-list pending-undo-list)
106 (eq (cdr buffer-undo-list) pending-undo-list)))) 106 (eq (cdr buffer-undo-list) pending-undo-list))))
107 :suffix (if (eq last-command 'redo) "More" "")] 107 :suffix (if (eq last-command 'redo) "More" "")]
108 ["Cut" x-kill-primary-selection 108 ["Cut" kill-primary-selection
109 :active (and (eq 'x (device-type (selected-device))) 109 :active (selection-owner-p)]
110 (x-selection-owner-p))] 110 ["Copy" copy-primary-selection
111 ["Copy" x-copy-primary-selection 111 :active (selection-owner-p)]
112 :active (and (eq 'x (device-type (selected-device))) 112 ["Paste" yank-clipboard-selection
113 (x-selection-owner-p))] 113 :active (selection-exists-p 'CLIPBOARD)]
114 ["Paste" x-yank-clipboard-selection 114 ["Clear" delete-primary-selection
115 :active (and (eq 'x (device-type (selected-device))) 115 :active (selection-owner-p)]
116 (x-selection-exists-p 'CLIPBOARD))]
117 ["Clear" x-delete-primary-selection
118 :active (and (eq 'x (device-type (selected-device)))
119 (x-selection-owner-p))]
120 "----" 116 "----"
121 ["Search..." isearch-forward] 117 ["Search..." isearch-forward]
122 ["Search Backward..." isearch-backward] 118 ["Search Backward..." isearch-backward]
123 ["Replace..." query-replace] 119 ["Replace..." query-replace]
124 "----" 120 "----"