# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1120941812 0
# Node ID 258eefd93f5ca18834fe6c4d16c931ff619ae643
# Parent  f7b96b7c946d8ab20a4eac87aa731113dbf14a8f
(fringe-mode): Add period in docstring.
(fringe-query-style): Build prompt depending on `all-frames' arg.

diff -r f7b96b7c946d -r 258eefd93f5c lisp/fringe.el
--- a/lisp/fringe.el	Sat Jul 09 16:16:54 2005 +0000
+++ b/lisp/fringe.el	Sat Jul 09 20:43:32 2005 +0000
@@ -150,7 +150,7 @@
 it take real effect.
 Setting the variable with a customization buffer also takes effect.
 If you only want to modify the appearance of the fringe in one frame,
-you can use the interactive function `set-fringe-style'"
+you can use the interactive function `set-fringe-style'."
   :type '(choice (const :tag "Default width" nil)
 		 (const :tag "No fringes" 0)
 		 (const :tag "Only right" (0 . nil))
@@ -174,7 +174,10 @@
 Otherwise the negation of the fringe value in the currently selected
 frame parameter is used."
   (let ((mode (intern (completing-read
-		       "Select fringe mode for all frames (type ? for list): "
+		       (concat
+			"Select fringe mode for "
+			(if all-frames "all frames" "selected frame")
+			" (type ? for list): ")
 		       '(("none") ("default") ("left-only")
 			 ("right-only") ("half") ("minimal"))
 		       nil t))))