From: Juri Linkov <juri@jurta.org>
Date: Sat, 9 Jul 2005 20:43:32 +0000 (+0000)
Subject: (fringe-mode): Add period in docstring.
X-Git-Tag: emacs-pretest-22.0.90~8264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=feed81e98e2c5addbdb25f7d1a632f25240ef0be;p=emacs.git

(fringe-mode): Add period in docstring.
(fringe-query-style): Build prompt depending on `all-frames' arg.
---

diff --git a/lisp/fringe.el b/lisp/fringe.el
index 0346341d536..1265e8308a0 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -150,7 +150,7 @@ To set this variable in a Lisp program, use `set-fringe-mode' to make
 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 @@ If ALL-FRAMES, the negation of the fringe values in
 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))))