Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 49a24b4fd526
children 9ee227acff29
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
154 ["Active Regions" (setq zmacs-regions (not zmacs-regions)) 154 ["Active Regions" (setq zmacs-regions (not zmacs-regions))
155 :style toggle :selected zmacs-regions] 155 :style toggle :selected zmacs-regions]
156 ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point 156 ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point
157 (not mouse-yank-at-point)) 157 (not mouse-yank-at-point))
158 :style toggle :selected mouse-yank-at-point] 158 :style toggle :selected mouse-yank-at-point]
159 ["Require Newline At End" (setq require-final-newline
160 (or (eq require-final-newline 'ask)
161 (not require-final-newline)))
162 :style toggle :selected (eq require-final-newline 't)]
163 ["Add Newline When Moving Past End" (setq next-line-add-newlines
164 (not next-line-add-newlines))
165 :style toggle :selected next-line-add-newlines]
159 ) 166 )
160 ("General Options" 167 ("General Options"
161 ["Teach Extended Commands" (setq teach-extended-commands-p 168 ["Teach Extended Commands" (setq teach-extended-commands-p
162 (not teach-extended-commands-p)) 169 (not teach-extended-commands-p))
163 :style toggle :selected teach-extended-commands-p] 170 :style toggle :selected teach-extended-commands-p]
223 'show-temp-buffer-in-current-frame)] 230 'show-temp-buffer-in-current-frame)]
224 ["Temp Buffers Like Other Buffers" 231 ["Temp Buffers Like Other Buffers"
225 (setq temp-buffer-show-function nil) 232 (setq temp-buffer-show-function nil)
226 :style radio 233 :style radio
227 :selected (null temp-buffer-show-function)] 234 :selected (null temp-buffer-show-function)]
235 "-----"
236 ["Make current frame gnuserv target"
237 (setq gnuserv-frame
238 (if (equal gnuserv-frame (selected-frame))
239 nil
240 (selected-frame)))
241 :style radio
242 :selected (equal gnuserv-frame (selected-frame))]
228 ) 243 )
229 244
230 "-----" 245 "-----"
231 ("Syntax Highlighting" 246 ("Syntax Highlighting"
232 ["In This Buffer" (font-lock-mode) 247 ["In This Buffer" (font-lock-mode)
309 (progn 324 (progn
310 (lazy-lock-mode 0) 325 (lazy-lock-mode 0)
311 ;; this shouldn't be necessary so there has to 326 ;; this shouldn't be necessary so there has to
312 ;; be a redisplay bug lurking somewhere (or 327 ;; be a redisplay bug lurking somewhere (or
313 ;; possibly another event handler bug) 328 ;; possibly another event handler bug)
314 (redraw-modeline)) 329 (redraw-modeline)
330 (remove-hook 'font-lock-mode-hook
331 'turn-on-lazy-lock))
315 (if font-lock-mode 332 (if font-lock-mode
316 (progn 333 (progn
317 (lazy-lock-mode 1) 334 (lazy-lock-mode 1)
318 (redraw-modeline))))) 335 (redraw-modeline)
336 (add-hook 'font-lock-mode-hook
337 'turn-on-lazy-lock)))))
319 :active font-lock-mode 338 :active font-lock-mode
320 :style toggle 339 :style toggle
321 :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)] 340 :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)]
322 ["Caching" (progn (require 'fast-lock) 341 ["Caching" (progn (require 'fast-lock)
323 (if fast-lock-mode 342 (if fast-lock-mode
964 '(progn 983 '(progn
965 (require 'pending-del) 984 (require 'pending-del)
966 (pending-delete-on nil))) 985 (pending-delete-on nil)))
967 zmacs-regions 986 zmacs-regions
968 mouse-yank-at-point 987 mouse-yank-at-point
988 require-final-newline
989 next-line-add-newlines
969 990
970 ;; General Options menu. 991 ;; General Options menu.
971 teach-extended-commands-p 992 teach-extended-commands-p
972 ;; (#### not actually on Options menu) 993 ;; (#### not actually on Options menu)
973 teach-extended-commands-timeout 994 teach-extended-commands-timeout
980 ps-paper-type 1001 ps-paper-type
981 1002
982 ;; Other Window Location 1003 ;; Other Window Location
983 get-frame-for-buffer-default-instance-limit 1004 get-frame-for-buffer-default-instance-limit
984 temp-buffer-show-function 1005 temp-buffer-show-function
1006 (if gnuserv-frame
1007 '(setq gnuserv-frame (selected-frame)))
985 1008
986 ;; Syntax Highlighting 1009 ;; Syntax Highlighting
987 font-lock-auto-fontify 1010 font-lock-auto-fontify
988 font-lock-use-fonts 1011 font-lock-use-fonts
989 font-lock-use-colors 1012 font-lock-use-colors