X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmenubar-items.el;h=75abd1be9483328a247a44721fa7d86a280ea0a9;hp=499d150bcc63eb22e9cfc9da92d57c0bd1753e70;hb=02f4d2761a98c5cb9d5b423d2361160a5d8c9ee4;hpb=041e98cf4c48018877365e3bfb37cfc09b54cc6d

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index 499d150..75abd1b 100644
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -147,8 +147,9 @@ which will not be used as accelerators."
        :active (or (valid-specifier-tag-p 'msprinter)
 		   (and (not (eq system-type 'windows-nt))
 			(fboundp 'lpr-region)))
-       :suffix (if put-buffer-names-in-file-menu (concat (buffer-name) "...")
-		 "...")]
+       :suffix (if (region-active-p) "Selection..."
+		 (if put-buffer-names-in-file-menu (concat (buffer-name) "...")
+		   "..."))]
       ,@(unless (eq system-type 'windows-nt)
 	  '(["Prett%_y-Print" ps-print-buffer-with-faces
 	     :active (fboundp 'ps-print-buffer-with-faces)