Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a2f645c6b9f8
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 ;;; Warning-free compile 30 ;;; Warning-free compile
31 (eval-when-compile 31 (eval-when-compile
32 (defvar language-environment-list)) 32 (defvar language-environment-list)
33 (require 'pending-del))
33 34
34 (defconst default-menubar 35 (defconst default-menubar
35 (purecopy-menubar 36 (purecopy-menubar
36 ;; note backquote. 37 ;; note backquote.
37 `( 38 `(
189 (setq-default case-fold-search 190 (setq-default case-fold-search
190 case-fold-search)) 191 case-fold-search))
191 :style toggle :selected (not case-fold-search)] 192 :style toggle :selected (not case-fold-search)]
192 ["Case Matching Replace" (setq case-replace (not case-replace)) 193 ["Case Matching Replace" (setq case-replace (not case-replace))
193 :style toggle :selected case-replace] 194 :style toggle :selected case-replace]
194 ["Auto Delete Selection" (if (memq 'pending-delete-pre-hook 195 ["Auto Delete Selection" (pending-delete-mode
195 pre-command-hook) 196 (if pending-delete-mode 0 1))
196 (pending-delete-off nil)
197 (pending-delete-on nil))
198 :style toggle 197 :style toggle
199 :selected (memq 'pending-delete-pre-hook pre-command-hook)] 198 :selected (and (boundp 'pending-delete-mode) pending-delete-mode)]
200 ["Active Regions" (setq zmacs-regions (not zmacs-regions)) 199 ["Active Regions" (setq zmacs-regions (not zmacs-regions))
201 :style toggle :selected zmacs-regions] 200 :style toggle :selected zmacs-regions]
202 ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point 201 ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point
203 (not mouse-yank-at-point)) 202 (not mouse-yank-at-point))
204 :style toggle :selected mouse-yank-at-point] 203 :style toggle :selected mouse-yank-at-point]
770 (progn 769 (progn
771 (setq name (aref item 0)) 770 (setq name (aref item 0))
772 (and put-buffer-names-in-file-menu 771 (and put-buffer-names-in-file-menu
773 (member name '("Save" "Revert Buffer" "Print Buffer" 772 (member name '("Save" "Revert Buffer" "Print Buffer"
774 "Pretty-Print Buffer" "Delete Buffer")) 773 "Pretty-Print Buffer" "Delete Buffer"))
775 (>= 4 (length item)) 774 (>= (length item) 4)
776 (aset item 3 bufname)) 775 (aset item 3 bufname))
777 (and (string= "Save" name) 776 (and (string= "Save" name)
778 (aset item 2 (buffer-modified-p))) 777 (aset item 2 (buffer-modified-p)))
779 (and (string= "Revert Buffer" name) 778 (and (string= "Revert Buffer" name)
780 (aset item 2 (not (not (or buffer-file-name 779 (aset item 2 (not (not (or buffer-file-name
1155 `(setq-default overwrite-mode ,(default-value 'overwrite-mode)) 1154 `(setq-default overwrite-mode ,(default-value 'overwrite-mode))
1156 (if (default-value 'overwrite-mode) 1155 (if (default-value 'overwrite-mode)
1157 '(overwrite-mode 1)) 1156 '(overwrite-mode 1))
1158 `(setq-default case-fold-search ,(default-value 'case-fold-search)) 1157 `(setq-default case-fold-search ,(default-value 'case-fold-search))
1159 case-replace 1158 case-replace
1160 (if (memq 'pending-delete-pre-hook pre-command-hook) 1159 (if pending-delete-mode
1161 '(progn 1160 '(pending-delete-mode 1))
1162 (require 'pending-del)
1163 (pending-delete-on nil)))
1164 zmacs-regions 1161 zmacs-regions
1165 mouse-yank-at-point 1162 mouse-yank-at-point
1166 require-final-newline 1163 require-final-newline
1167 next-line-add-newlines 1164 next-line-add-newlines
1168 1165