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