xemacs-beta: lisp/menubar-items.el comparison

comparison lisp/menubar-items.el @ 398:74fd4e045ea6 r21-2-29

Import from CVS: tag r21-2-29

author	cvs
date	Mon, 13 Aug 2007 11:13:30 +0200
parents	6719134a07c2
children	2f8bb876ab1d

comparison

equal deleted inserted replaced

-:f4aeb21a5bad
+:74fd4e045ea6
 ["Undo" advertised-undo
 :active (and (not (eq buffer-undo-list t))
 		    (or buffer-undo-list pending-undo-list))
 :suffix (if (or (eq last-command 'undo)
 		       (eq last-command 'advertised-undo))
-		       "More" "")]
+		   "More" "")]
 ["Redo" redo
 :included (fboundp 'redo)
 :active (not (or (eq buffer-undo-list t)
-			 (eq last-buffer-undo-list nil)
+			(eq last-buffer-undo-list nil)
-			 (not (or (eq last-buffer-undo-list buffer-undo-list)
+			(not (or (eq last-buffer-undo-list buffer-undo-list)
-				  (and (null (car-safe buffer-undo-list))
+				 (and (null (car-safe buffer-undo-list))
-				       (eq last-buffer-undo-list
+				      (eq last-buffer-undo-list
-					   (cdr-safe buffer-undo-list)))))
+					  (cdr-safe buffer-undo-list)))))
-			 (or (eq buffer-undo-list pending-undo-list)
+			(or (eq buffer-undo-list pending-undo-list)
-			     (eq (cdr buffer-undo-list) pending-undo-list))))
+			    (eq (cdr buffer-undo-list) pending-undo-list))))
 :suffix (if (eq last-command 'redo) "More" "")]
 ["Cut" kill-primary-selection
 :active (selection-owner-p)]
 ["Copy" copy-primary-selection
 :active (selection-owner-p)]
 	 '(("Mule"
 	    ("Describe language support")
 	    ("Set language environment")
 	    "--"
 	    ["Toggle input method" toggle-input-method]
-	    ["Select input method" select-input-method]
+	    ["Select input method" set-input-method]
 	    ["Describe input method" describe-input-method]
 	    "--"
 	    ["Describe current coding systems"
 	     describe-current-coding-system]
 	    ["Set coding system of buffer file"
 :filter (lambda (&rest junk)
 (package-get-download-menu)))
 ["Update Package Index" package-get-update-base]
 ["List & Install" pui-list-packages]
 ["Update Installed Packages" package-get-update-all]
-;; hack-o-matic, we can't force a laod of package-base here
+;; hack-o-matic, we can't force a load of package-base here
 ;; since it triggers dialog box interactions which we can't
-;; deal while using a menu
+;; deal with while using a menu
 ("Using Custom"
 	:filter (lambda (&rest junk)
 		  (if package-get-base
 		      (cdr (custom-menu-create 'packages))
 		    '(["Please load Package Index" (lamda (&rest junk) ()) nil]))))
 	 :active (boundp 'ps-paper-type)]
 	)
 ["Color Printing"
 	(cond (ps-print-color-p
 	       (customize-set-variable 'ps-print-color-p nil)
-	       ;; I'm wondering whether all this muck is usefull.
+	       ;; I'm wondering whether all this muck is useful.
 	       (and (boundp 'original-face-background)
 		    original-face-background
 		    (set-face-background 'default original-face-background)))
 	      (t
 	       (customize-set-variable 'ps-print-color-p t)
 	(progn
 	  (customize-set-variable 'bar-cursor t)
 	  (force-cursor-redisplay))
 	:style radio
 	:selected (eq bar-cursor t)]
-	["Bar cursor (2 pixels)"
+["Bar cursor (2 pixels)"
-	 (progn
+	(progn
-	   (customize-set-variable 'bar-cursor 2)
+	  (customize-set-variable 'bar-cursor 2)
-	   (force-cursor-redisplay))
+	  (force-cursor-redisplay))
-	 :style radio
+	:style radio
-	 :selected (and bar-cursor (not (eq bar-cursor t)))]
+	:selected (and bar-cursor (not (eq bar-cursor t)))]
-	"------"
+"------"
-	["Line Numbers"
+["Line Numbers"
-	 (progn
+	(progn
-	   (customize-set-variable 'line-number-mode (not line-number-mode))
+	  (customize-set-variable 'line-number-mode (not line-number-mode))
-	   (redraw-modeline))
+	  (redraw-modeline))
-	 :style toggle :selected line-number-mode]
+	:style toggle :selected line-number-mode]
-	["Column Numbers"
+["Column Numbers"
-	 (progn
+	(progn
-	   (customize-set-variable 'column-number-mode
+	  (customize-set-variable 'column-number-mode
-				   (not column-number-mode))
+				  (not column-number-mode))
-	   (redraw-modeline))
+	  (redraw-modeline))
-	 :style toggle :selected column-number-mode]
+	:style toggle :selected column-number-mode]
 )
 ("Menubar Appearance"
 ["Buffers Menu Length..."
 	(customize-set-variable
 	 'buffers-menu-max-size
 		 (customize-set-variable 'default-toolbar-position 'right)
 		 :style radio
 		 :selected (eq default-toolbar-position 'right)]
 		)
 	       )))
+,@(if (featurep 'gutter)
+	    '(("Gutter Appearance"
+	       ["Visible"
+		(customize-set-variable 'gutter-visible-p
+					(not gutter-visible-p))
+		:style toggle
+		:selected gutter-visible-p]
+	       ("Default Location"
+		["Top"
+		 (customize-set-variable 'default-gutter-position 'top)
+		 :style radio
+		 :selected (eq default-gutter-position 'top)]
+		["Bottom"
+		 (customize-set-variable 'default-gutter-position 'bottom)
+		 :style radio
+		 :selected (eq default-gutter-position 'bottom)]
+		["Left"
+		 (customize-set-variable 'default-gutter-position 'left)
+		 :style radio
+		 :selected (eq default-gutter-position 'left)]
+		["Right"
+		 (customize-set-variable 'default-gutter-position 'right)
+		 :style radio
+		 :selected (eq default-gutter-position 'right)]
+		)
+	       )))
 ("Mouse"
 ["Avoid Text..."
 	(customize-set-variable 'mouse-avoidance-mode
 				(if mouse-avoidance-mode nil 'banish))
 	:style toggle
 ["Recent Messages" view-lossage]
 ("Misc"
 ["No Warranty" describe-no-warranty]
 ["XEmacs License" describe-copying]
 ["The Latest Version" describe-distribution])
-["Send Bug Report..." report-emacs-bug]))))
+["Send Bug Report..." report-emacs-bug
+:active (fboundp 'report-emacs-bug)]))))
 (defun maybe-add-init-button ()
 "Don't call this.
 Adds `Load .emacs' button to menubar when starting up with -q."
 ;; by Stig@hackvan.com
 (cond
-(init-file-user nil)
+(load-user-init-file-p nil)
 ((file-exists-p (expand-file-name ".emacs" "~"))
 (add-menu-button nil
 		     ["Load .emacs"
 		      (progn (delete-menu-item '("Load .emacs"))
-			     (load-user-init-file (user-login-name)))
+			     (load-user-init-file))
 		      ]
 		     "Help"))
 (t nil)))
 (add-hook 'before-init-hook 'maybe-add-init-button)
 (defcustom buffers-menu-sort-function
 'sort-buffers-menu-by-mode-then-alphabetically
 "*If non-nil, a function to sort the list of buffers in the buffers menu.
 It will be passed two arguments (two buffers to compare) and should return
-T if the first is \"less\" than the second.  One possible value is
+t if the first is \"less\" than the second.  One possible value is
 `sort-buffers-menu-alphabetically'; another is
 `sort-buffers-menu-by-mode-then-alphabetically'."
 :type '(choice (const :tag "None" nil)
 		 function)
 :group 'buffers-menu)
 "For use as a value of `buffers-menu-sort-function'.
 Sorts the buffers in alphabetical order by name, but puts buffers beginning
 with a star at the end of the list."
 (let* ((nam1 (buffer-name buf1))
 	 (nam2 (buffer-name buf2))
+	 (inv1p (not (null (string-match "\\` " nam1))))
+	 (inv2p (not (null (string-match "\\` " nam2))))
 	 (star1p (not (null (string-match "\\`*" nam1))))
 	 (star2p (not (null (string-match "\\`*" nam2)))))
-(if (not (eq star1p star2p))
+(cond ((not (eq inv1p inv2p))
-	(not star1p)
+	   (not inv1p))
-(string-lessp nam1 nam2))))
+	  ((not (eq star1p star2p))
+	   (not star1p))
+	  (t
+	   (string-lessp nam1 nam2)))))
 (defun sort-buffers-menu-by-mode-then-alphabetically (buf1 buf2)
 "For use as a value of `buffers-menu-sort-function'.
 Sorts first by major mode and then alphabetically by name, but puts buffers
 beginning with a star at the end of the list."
 (let* ((nam1 (buffer-name buf1))
 	 (nam2 (buffer-name buf2))
+	 (inv1p (not (null (string-match "\\` " nam1))))
+	 (inv2p (not (null (string-match "\\` " nam2))))
 	 (star1p (not (null (string-match "\\`*" nam1))))
 	 (star2p (not (null (string-match "\\`*" nam2))))
 	 (mode1 (symbol-value-in-buffer 'major-mode buf1))
 	 (mode2 (symbol-value-in-buffer 'major-mode buf2)))
-(cond ((not (eq star1p star2p)) (not star1p))
+(cond ((not (eq inv1p inv2p))
+	   (not inv1p))
+	  ((not (eq star1p star2p))
+	   (not star1p))
 	  ((and star1p star2p (string-lessp nam1 nam2)))
-	  ((string-lessp mode1 mode2) t)
+	  ((string-lessp mode1 mode2)
-	  ((string-lessp mode2 mode1) nil)
+	   t)
-	  (t (string-lessp nam1 nam2)))))
+	  ((string-lessp mode2 mode1)
+	   nil)
+	  (t
+	   (string-lessp nam1 nam2)))))
 ;; this version is too slow on some machines.
 (defun slow-format-buffers-menu-line (buffer)
 "For use as a value of `buffers-menu-format-buffer-line-function'.
 This returns a string containing a bunch of info about the buffer."
 			     )
 			   (vector "Save As..."
 				   (list 'buffer-menu-write-file name) t)
 			   (vector "Delete Buffer" (list 'kill-buffer name)
 				   t)))
-	     ;; ### We don't want buffer names to be translated,
+	     ;; #### We don't want buffer names to be translated,
-	     ;; ### so we put the buffer name in the suffix.
+	     ;; #### so we put the buffer name in the suffix.
-	     ;; ### Also, avoid losing with non-ASCII buffer names.
+	     ;; #### Also, avoid losing with non-ASCII buffer names.
-	     ;; ### We still lose, however, if complex-buffers-menu-p. --mrb
+	     ;; #### We still lose, however, if complex-buffers-menu-p. --mrb
 	     (vector ""
 		     (list buffers-menu-switch-to-buffer-function
 			   (buffer-name buffer))
 		     t line))))
 buffers)))
 This is appended to the default items in `global-popup-menu'.
 See the function `popup-menu' for a description of menu syntax.")
 (make-variable-buffer-local 'mode-popup-menu)
 ;; In an effort to avoid massive menu clutter, this mostly worthless menu is
-;; superceded by any local popup menu...
+;; superseded by any local popup menu...
 (setq-default mode-popup-menu default-popup-menu)
 (defvar activate-popup-menu-hook nil
 "Function or functions run before a mode-specific popup menu is made visible.
 These functions are called with no arguments, and should interrogate and
 ;;; backwards compatibility
 (provide 'x-menubar)
 (provide 'menubar-items)
-;;; x-menubar.el ends here.
+;;; menubar-items.el ends here.

Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 398:74fd4e045ea6 r21-2-29