emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/fringe.el


From: Juri Linkov
Subject: [Emacs-diffs] Changes to emacs/lisp/fringe.el
Date: Sat, 09 Jul 2005 16:43:32 -0400

Index: emacs/lisp/fringe.el
diff -c emacs/lisp/fringe.el:1.19 emacs/lisp/fringe.el:1.20
*** emacs/lisp/fringe.el:1.19   Fri Jul  8 22:50:50 2005
--- emacs/lisp/fringe.el        Sat Jul  9 20:43:32 2005
***************
*** 150,156 ****
  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'"
    :type '(choice (const :tag "Default width" nil)
                 (const :tag "No fringes" 0)
                 (const :tag "Only right" (0 . nil))
--- 150,156 ----
  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'."
    :type '(choice (const :tag "Default width" nil)
                 (const :tag "No fringes" 0)
                 (const :tag "Only right" (0 . nil))
***************
*** 174,180 ****
  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): "
                       '(("none") ("default") ("left-only")
                         ("right-only") ("half") ("minimal"))
                       nil t))))
--- 174,183 ----
  Otherwise the negation of the fringe value in the currently selected
  frame parameter is used."
    (let ((mode (intern (completing-read
!                      (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))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]