/[emacs]/emacs/lisp/fringe.el
ViewVC logotype

Diff of /emacs/lisp/fringe.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by kfstorm, Sun Nov 28 00:56:28 2004 UTC revision 1.16 by teirllm, Sun Nov 28 02:28:09 2004 UTC
# Line 1  Line 1 
1  ;;; fringe.el --- change fringes appearance in various ways  ;;; fringe.el --- change fringes appearance in various ways
2    
3  ;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.  ;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Simon Josefsson <simon@josefsson.org>  ;; Author: Simon Josefsson <simon@josefsson.org>
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 257  SIDE must be the symbol `left' or `right Line 257  SIDE must be the symbol `left' or `right
257                 0)                 0)
258             (float (frame-char-width))))             (float (frame-char-width))))
259    
260    ;; Fake defvar.  Real definition using defcustom is below.  The fake
261  ;;;###autoload  ;; defvar is necessary because `fringe-indicators' and
262  (defcustom fringe-indicators nil  ;; `set-fringe-indicators-1' mutually use each other.
263    "Visually indicate buffer boundaries and scrolling.  (defvar fringe-indicators)
 Setting this variable, changes `default-indicate-buffer-boundaries'."  
   :type '(choice (const :tag "No indicators" nil)  
                  (const :tag "On left" left)  
                  (const :tag "On right" right)  
                  (const :tag "Opposite, no arrows" box)  
                  (const :tag "Opposite, arrows right" mixed)  
                  (const :tag "Empty lines" empty))  
   :group 'fringe  
   :require 'fringe  
   :set 'set-fringe-indicators-1)  
264    
265  (defun set-fringe-indicators-1 (ignore value)  (defun set-fringe-indicators-1 (ignore value)
266    "Set fringe indicators according to VALUE.    "Set fringe indicators according to VALUE.
# Line 290  This is usually invoked when setting `fr Line 280  This is usually invoked when setting `fr
280            nil)            nil)
281           (t nil))))           (t nil))))
282    
283    ;;;###autoload
284    (defcustom fringe-indicators nil
285      "Visually indicate buffer boundaries and scrolling.
286    Setting this variable, changes `default-indicate-buffer-boundaries'."
287      :type '(choice (const :tag "No indicators" nil)
288                     (const :tag "On left" left)
289                     (const :tag "On right" right)
290                     (const :tag "Opposite, no arrows" box)
291                     (const :tag "Opposite, arrows right" mixed)
292                     (const :tag "Empty lines" empty))
293      :group 'fringe
294      :require 'fringe
295      :set 'set-fringe-indicators-1)
296    
297  (provide 'fringe)  (provide 'fringe)
298    
299  ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d  ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26