Mercurial > hg > xemacs-beta
diff lisp/x11/x-menubar.el @ 12:bcdc7deadc19 r19-15b7
Import from CVS: tag r19-15b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:48:16 +0200 |
parents | 49a24b4fd526 |
children | 9ee227acff29 |
line wrap: on
line diff
--- a/lisp/x11/x-menubar.el Mon Aug 13 08:47:56 2007 +0200 +++ b/lisp/x11/x-menubar.el Mon Aug 13 08:48:16 2007 +0200 @@ -156,6 +156,13 @@ ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point (not mouse-yank-at-point)) :style toggle :selected mouse-yank-at-point] + ["Require Newline At End" (setq require-final-newline + (or (eq require-final-newline 'ask) + (not require-final-newline))) + :style toggle :selected (eq require-final-newline 't)] + ["Add Newline When Moving Past End" (setq next-line-add-newlines + (not next-line-add-newlines)) + :style toggle :selected next-line-add-newlines] ) ("General Options" ["Teach Extended Commands" (setq teach-extended-commands-p @@ -225,6 +232,14 @@ (setq temp-buffer-show-function nil) :style radio :selected (null temp-buffer-show-function)] + "-----" + ["Make current frame gnuserv target" + (setq gnuserv-frame + (if (equal gnuserv-frame (selected-frame)) + nil + (selected-frame))) + :style radio + :selected (equal gnuserv-frame (selected-frame))] ) "-----" @@ -311,11 +326,15 @@ ;; this shouldn't be necessary so there has to ;; be a redisplay bug lurking somewhere (or ;; possibly another event handler bug) - (redraw-modeline)) + (redraw-modeline) + (remove-hook 'font-lock-mode-hook + 'turn-on-lazy-lock)) (if font-lock-mode (progn (lazy-lock-mode 1) - (redraw-modeline))))) + (redraw-modeline) + (add-hook 'font-lock-mode-hook + 'turn-on-lazy-lock))))) :active font-lock-mode :style toggle :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)] @@ -966,6 +985,8 @@ (pending-delete-on nil))) zmacs-regions mouse-yank-at-point + require-final-newline + next-line-add-newlines ;; General Options menu. teach-extended-commands-p @@ -982,6 +1003,8 @@ ;; Other Window Location get-frame-for-buffer-default-instance-limit temp-buffer-show-function + (if gnuserv-frame + '(setq gnuserv-frame (selected-frame))) ;; Syntax Highlighting font-lock-auto-fontify