Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents c0c698873ce1
children 1ce6082ce73f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
159 ["Active Regions" (setq zmacs-regions (not zmacs-regions)) 159 ["Active Regions" (setq zmacs-regions (not zmacs-regions))
160 :style toggle :selected zmacs-regions] 160 :style toggle :selected zmacs-regions]
161 ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point 161 ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point
162 (not mouse-yank-at-point)) 162 (not mouse-yank-at-point))
163 :style toggle :selected mouse-yank-at-point] 163 :style toggle :selected mouse-yank-at-point]
164 ["Require Newline At End" (setq require-final-newline
165 (or (eq require-final-newline 'ask)
166 (not require-final-newline)))
167 :style toggle :selected (eq require-final-newline 't)]
168 ["Add Newline When Moving Past End" (setq next-line-add-newlines
169 (not next-line-add-newlines))
170 :style toggle :selected next-line-add-newlines]
164 ) 171 )
165 ("General Options" 172 ("General Options"
166 ["Teach Extended Commands" (setq teach-extended-commands-p 173 ["Teach Extended Commands" (setq teach-extended-commands-p
167 (not teach-extended-commands-p)) 174 (not teach-extended-commands-p))
168 :style toggle :selected teach-extended-commands-p] 175 :style toggle :selected teach-extended-commands-p]
228 'show-temp-buffer-in-current-frame)] 235 'show-temp-buffer-in-current-frame)]
229 ["Temp Buffers Like Other Buffers" 236 ["Temp Buffers Like Other Buffers"
230 (setq temp-buffer-show-function nil) 237 (setq temp-buffer-show-function nil)
231 :style radio 238 :style radio
232 :selected (null temp-buffer-show-function)] 239 :selected (null temp-buffer-show-function)]
240 "-----"
241 ["Make current frame gnuserv target"
242 (setq gnuserv-frame
243 (if (equal gnuserv-frame (selected-frame))
244 nil
245 (selected-frame)))
246 :style radio
247 :selected (equal gnuserv-frame (selected-frame))]
233 ) 248 )
234 249
235 "-----" 250 "-----"
236 ("Syntax Highlighting" 251 ("Syntax Highlighting"
237 ["In This Buffer" (font-lock-mode) 252 ["In This Buffer" (font-lock-mode)
314 (progn 329 (progn
315 (lazy-lock-mode 0) 330 (lazy-lock-mode 0)
316 ;; this shouldn't be necessary so there has to 331 ;; this shouldn't be necessary so there has to
317 ;; be a redisplay bug lurking somewhere (or 332 ;; be a redisplay bug lurking somewhere (or
318 ;; possibly another event handler bug) 333 ;; possibly another event handler bug)
319 (redraw-modeline)) 334 (redraw-modeline)
335 (remove-hook 'font-lock-mode-hook
336 'turn-on-lazy-lock))
320 (if font-lock-mode 337 (if font-lock-mode
321 (progn 338 (progn
322 (lazy-lock-mode 1) 339 (lazy-lock-mode 1)
323 (redraw-modeline))))) 340 (redraw-modeline)
341 (add-hook 'font-lock-mode-hook
342 'turn-on-lazy-lock)))))
324 :active font-lock-mode 343 :active font-lock-mode
325 :style toggle 344 :style toggle
326 :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)] 345 :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)]
327 ["Caching" (progn (require 'fast-lock) 346 ["Caching" (progn (require 'fast-lock)
328 (if fast-lock-mode 347 (if fast-lock-mode
988 '(progn 1007 '(progn
989 (require 'pending-del) 1008 (require 'pending-del)
990 (pending-delete-on nil))) 1009 (pending-delete-on nil)))
991 zmacs-regions 1010 zmacs-regions
992 mouse-yank-at-point 1011 mouse-yank-at-point
1012 require-final-newline
1013 next-line-add-newlines
993 1014
994 ;; General Options menu. 1015 ;; General Options menu.
995 teach-extended-commands-p 1016 teach-extended-commands-p
996 ;; (#### not actually on Options menu) 1017 ;; (#### not actually on Options menu)
997 teach-extended-commands-timeout 1018 teach-extended-commands-timeout
1004 ps-paper-type 1025 ps-paper-type
1005 1026
1006 ;; Other Window Location 1027 ;; Other Window Location
1007 get-frame-for-buffer-default-instance-limit 1028 get-frame-for-buffer-default-instance-limit
1008 temp-buffer-show-function 1029 temp-buffer-show-function
1030 (if gnuserv-frame
1031 '(setq gnuserv-frame (selected-frame)))
1009 1032
1010 ;; Syntax Highlighting 1033 ;; Syntax Highlighting
1011 font-lock-auto-fontify 1034 font-lock-auto-fontify
1012 font-lock-use-fonts 1035 font-lock-use-fonts
1013 font-lock-use-colors 1036 font-lock-use-colors