Mercurial > hg > xemacs-beta

comparison lisp/modes/outl-mouse.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents cca96a509cfe
children f53b5ca2e663
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
67 ;; 67 ;;
68 ;; Only works in XEmacs 19.10 and onwards. 68 ;; Only works in XEmacs 19.10 and onwards.
69 ;; 69 ;;
70 ;; User definable variables. 70 ;; User definable variables.
71 ;; 71 ;;
72 (defvar outline-mac-style nil 72
73 "*If t then outline glyphs will be right and down arrows.") 73 (defgroup outl-mouse nil
74 74 "Outline mouse mode commands for Emacs"
75 (defvar outline-glyphs-on-left nil 75 :prefix "outline-"
76 "*The position of outline glyphs on a line.") 76 :group 'outlines
77 77 :group 'mouse)
78 (defvar outline-glyph-colour "Gray75" 78
79 "*The colour of outlining arrows.") 79
80 80 (defcustom outline-mac-style nil
81 (defvar outline-glyph-shade-colour "Gray40" 81 "*If t then outline glyphs will be right and down arrows."
82 "*The shadow colour of outlining arrows.") 82 :type 'boolean
83 83 :group 'outl-mouse)
84 (defvar outline-glyph-lit-colour "Gray90" 84
85 "*The lit colour of outlining arrows.") 85 (defcustom outline-glyphs-on-left nil
86 "*The position of outline glyphs on a line."
87 :type 'boolean
88 :group 'outl-mouse)
89
90 (defcustom outline-glyph-colour "Gray75"
91 "*The colour of outlining arrows."
92 :type 'color
93 :group 'outl-mouse)
94
95 (defcustom outline-glyph-shade-colour "Gray40"
96 "*The shadow colour of outlining arrows."
97 :type 'color
98 :group 'outl-mouse)
99
100 (defcustom outline-glyph-lit-colour "Gray90"
101 "*The lit colour of outlining arrows."
102 :type 'color
103 :group 'outl-mouse)
86 104
87 (defvar outline-fold-in-function 'outline-fold-in 105 (defvar outline-fold-in-function 'outline-fold-in
88 "Function to call for folding in. 106 "Function to call for folding in.
89 The function should take an annotation argument.") 107 The function should take an annotation argument.")
90 (make-variable-buffer-local 'outline-fold-in-function) 108 (make-variable-buffer-local 'outline-fold-in-function)
92 (defvar outline-fold-out-function 'outline-fold-out 110 (defvar outline-fold-out-function 'outline-fold-out
93 "Function to call for folding out. 111 "Function to call for folding out.
94 The function should take an annotation argument.") 112 The function should take an annotation argument.")
95 (make-variable-buffer-local 'outline-fold-out-function) 113 (make-variable-buffer-local 'outline-fold-out-function)
96 114
97 (defvar outline-sync-with-func-menu nil 115 (defcustom outline-sync-with-func-menu nil
98 "*If t then outline glyphs are permanently added by func-menu scans. 116 "*If t then outline glyphs are permanently added by func-menu scans.
99 If outline-minor-mode is turned off then turing it back on will have 117 If outline-minor-mode is turned off then turing it back on will have
100 no effect. Instead the buffer should be rescanned from the function 118 no effect. Instead the buffer should be rescanned from the function
101 menu.") 119 menu."
102 120 :type 'boolean
103 (defvar outline-move-point-after-click t 121 :group 'outl-mouse)
104 "*If t then point is moved to the current heading when clicked.") 122
105 123 (defcustom outline-move-point-after-click t
106 (defvar outline-scanning-message "Adding glyphs... (%3d%%)" 124 "*If t then point is moved to the current heading when clicked."
125 :type 'boolean
126 :group 'outl-mouse)
127
128 (defcustom outline-scanning-message "Adding glyphs... (%3d%%)"
107 "*Progress message during the scanning of the buffer. 129 "*Progress message during the scanning of the buffer.
108 Set this to nil to inhibit progress messages.") 130 Set this to nil to inhibit progress messages."
131 :type 'string
132 :group 'outl-mouse)
109 133
110 ;; 134 ;;
111 ;; No user definable variables beyond this point. 135 ;; No user definable variables beyond this point.
112 ;; 136 ;;
113 137