Mercurial > emacs
changeset 64192:258eefd93f5c
(fringe-mode): Add period in docstring.
(fringe-query-style): Build prompt depending on `all-frames' arg.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 09 Jul 2005 20:43:32 +0000 |
| parents | f7b96b7c946d |
| children | 7fc36b055c09 |
| files | lisp/fringe.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))))