X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmenubar-items.el;h=b73d1b6522047fd85f3d7e4096f3adc8163196b4;hb=6fbe8f82054c53b9e8c9c9ba037926f245c53da8;hp=1c1accd47a39ee60c7b2195bb75797afb251db4a;hpb=e5614d88ac90ae5cf1fc7620e4f22e7360bd30fd;p=sxemacs

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index 1c1accd..b73d1b6 100644
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -58,9 +58,9 @@ Return a list of (label value) lists with labels truncated to last
 LABEL-LENGTH characters of value."
   (mapcar #'(lambda (x)
 	      (if (<= (length x) label-length)
-                  (list x x)
-                (list
-                 (concat "..." (substring x (- label-length))) x)))
+		  (list x x)
+		(list
+		 (concat "..." (substring x (- label-length))) x)))
 	  (if (<= (length list) count)
 	      list
 	    (butlast list (- (length list) count)))))
@@ -531,11 +531,11 @@ See also `menu-split-long-menu'."
 	     menu
 	   (let ((items
 		  (submenu-generate-accelerator-spec
-                   (mapcar #'(lambda (label-value)
+		   (mapcar #'(lambda (label-value)
 			       (vector (first label-value)
 				       (list 'grep (second label-value))))
 			   (Menubar-items-truncate-history
-                            grep-history 10 50)))))
+			    grep-history 10 50)))))
 	     (append menu '("---") items))))
        ["%_Grep..." grep :active (fboundp 'grep)]
        ["%_Kill Grep" kill-compilation
@@ -644,7 +644,7 @@ See also `menu-split-long-menu'."
 			       (vector (first label-value)
 				       (list 'compile (second label-value))))
 			   (Menubar-items-truncate-history
-                            compile-history 10 50)))))
+			    compile-history 10 50)))))
 	     (append menu '("---") items))))
        ["%_Compile..." compile :active (fboundp 'compile)]
        ["%_Repeat Compilation" recompile :active (fboundp 'recompile)]
@@ -987,12 +987,12 @@ See also `menu-split-long-menu'."
 	 :active (and (boundp 'browse-url-browser-function)
 		      (fboundp 'browse-url-w3)
 		      (fboundp 'w3-fetch))]
-        ["Emacs-%_W3 (gnudoit)"
-         (customize-set-variable 'browse-url-browser-function 'browse-url-w3-gnudoit)
-         :style radio
-         :selected (and (boundp 'browse-url-browser-function)
-                        (eq browse-url-browser-function
-                            'browse-url-w3-gnudoit))
+	["Emacs-%_W3 (gnuclient)"
+	 (customize-set-variable 'browse-url-browser-function 'browse-url-w3-gnudoit)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function
+			    'browse-url-w3-gnudoit))
 	 :active (and (boundp 'browse-url-browser-function)
 		      (fboundp 'browse-url-w3-gnudoit))]
 	["%_Netscape"