annotate lisp/modes/outl-mouse.el @ 0:376386a54a3c r19-14

Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children 4b173ad71786
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;;; outl-mouse.el --- outline mode mouse commands for Emacs
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 ;; Copyright 1994 (C) Andy Piper <ajp@eng.cam.ac.uk>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 ;; Keywords: outlines, mouse
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 ;; This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 ;; XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 ;; under the terms of the GNU General Public License as published by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 ;; the Free Software Foundation; either version 2, or (at your option)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 ;; any later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 ;; XEmacs is distributed in the hope that it will be useful, but
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 ;; General Public License for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 ;; You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 ;; along with XEmacs; see the file COPYING. If not, write to the Free
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 ;; outl-mouse.el v1.3.8:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 ;; Defines button one to hide blocks when clicked on outline-up-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 ;; and expand blocks when clicked on outline-down-arrow. Features are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 ;; activated when outline-minor-mode or outline-mode are turned
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 ;; on. There is also a menu for each glyph on button 3.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 ;; To use put:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 ;; (require 'outl-mouse)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 ;; in your .emacs file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 ;; If you use func-menu all the time and want outl-mouse on all the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 ;; time as well then put:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 ;; (setq outline-sync-with-func-menu t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 ;; outlining will then be turned on when func-menu is. Note that this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 ;; requires a patch to func-menu 2.16 (in 19.10) to work:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 ;RCS file: func-menu.el,v
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 ;retrieving revision 1.1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 ;diff -r1.1 func-menu.el
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 ;180a181,183
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 ;> (defvar fume-found-function-hook nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 ;> "*Hook to call after every function match.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 ;>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 ;1137,1138c1140,1142
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 ;< (if (listp funcname)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 ;< (setq funclist (cons funcname funclist)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 ;---
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 ;> (cond ((listp funcname)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 ;> (setq funclist (cons funcname funclist))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 ;> (save-excursion (run-hooks 'fume-found-function-hook))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 ;; If you want mac-style outlining then set outline-mac-style to t.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 ;; If you want the outline arrows on the left then set
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 ;; outline-glyphs-on-left to t. If you have xpm then arrows are much
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 ;; better defined.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 ;; This package uses func-menu to define outline regexps if they are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 ;; not already defined. You should no longer need to use out-xtra.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 ;; You can define the package to do something other than outlining by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 ;; setting outline-fold-in-function and outline-fold-out-function.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 ;; You can define the color of outline arrows, but only in your .emacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 ;; Only works in XEmacs 19.10 and onwards.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 ;; User definable variables.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 (defvar outline-mac-style nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 "*If t then outline glyphs will be right and down arrows.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 (defvar outline-glyphs-on-left nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 "*The position of outline glyphs on a line.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 (defvar outline-glyph-colour "Gray75"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 "*The colour of outlining arrows.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 (defvar outline-glyph-shade-colour "Gray40"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 "*The shadow colour of outlining arrows.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 (defvar outline-glyph-lit-colour "Gray90"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 "*The lit colour of outlining arrows.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 (defvar outline-fold-in-function 'outline-fold-in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 "Function to call for folding in.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 The function should take an annotation argument.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 (make-variable-buffer-local 'outline-fold-in-function)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 (defvar outline-fold-out-function 'outline-fold-out
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 "Function to call for folding out.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 The function should take an annotation argument.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 (make-variable-buffer-local 'outline-fold-out-function)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 (defvar outline-sync-with-func-menu nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 "*If t then outline glyphs are permanently added by func-menu scans.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 If outline-minor-mode is turned off then turing it back on will have
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 no effect. Instead the buffer should be rescanned from the function
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 menu.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 (defvar outline-move-point-after-click t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 "*If t then point is moved to the current heading when clicked.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 (defvar outline-scanning-message "Adding glyphs... (%3d%%)"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 "*Progress message during the scanning of the buffer.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 Set this to nil to inhibit progress messages.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 ;; No user definable variables beyond this point.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 (defconst outline-up-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 (make-pixmap ; an up-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 (if (featurep 'xpm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 (concat "/* XPM */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 static char * arrow[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 \"10 10 5 1\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 \" c none\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 \". c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 \"X c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 \"o c " outline-glyph-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 \"O c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 \" .X \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 \" .X \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 \" ..XX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 \" ..XX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 \" ..ooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 \" ..ooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 \" ..ooooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 \" ..ooooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 \"..OOOOOOXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 \"OOOOOOOOOO\"};")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 (list 10 10 (concat "\000\000\000\000\060\000\060\000\150\000"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 "\150\000\324\000\324\000\376\001\376\001"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 "Bitmap object for outline up glyph.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 (defconst outline-up-arrow-mask
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 (make-pixmap ; an up-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 (if (featurep 'xpm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 (concat "/* XPM */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 static char * arrow[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 \"10 10 5 1\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 \" c none\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 \". c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 \"X c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 \"o c " outline-glyph-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 \"O c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 \" .X \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 \" .X \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 \" ..XX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 \" ..XX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 \" ..ooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 \" ..ooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 \" ..ooooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 \" ..ooooXX \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 \"..OOOOOOXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 \"OOOOOOOOOO\"};")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 (list 10 10 (concat "\000\000\000\000\060\000\060\000\130\000"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 "\130\000\254\000\274\000\006\001\376\001"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 "Bitmap object for outline depressed up glyph.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 (defconst outline-down-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 (make-pixmap ; a down-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 (if (featurep 'xpm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 (concat "/* XPM */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 static char * down[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 \"10 10 5 1\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 \" c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 \". c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 \"X c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 \"o c none\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 \"O c " outline-glyph-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 \" \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 \".. XX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 \"o..OOOOXXo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 \"o..OOOOXXo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 \"oo..OOXXoo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 \"oo..OOXXoo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 \"ooo..XXooo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 \"ooo..XXooo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 \"oooo.Xoooo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 \"oooo.Xoooo\"};")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 (list 10 10 (concat "\000\000\000\000\376\001\202\001\364\000"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184 "\324\000\150\000\150\000\060\000\060\000"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 "Bitmap object for outline down glyph.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 (defconst outline-down-arrow-mask
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 (make-pixmap ; a down-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 (if (featurep 'xpm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 (concat "/* XPM */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 static char * down[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 \"10 10 5 1\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 \" c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 \". c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 \"X c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 \"o c none\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 \"O c " outline-glyph-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198 \" \",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 \".. XX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 \"o..OOOOXXo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 \"o..OOOOXXo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 \"oo..OOXXoo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 \"oo..OOXXoo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 \"ooo..XXooo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 \"ooo..XXooo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 \"oooo.Xoooo\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 \"oooo.Xoooo\"};")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 (list 10 10 (concat "\000\000\000\000\376\001\376\001\254\000"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 "\254\000\130\000\130\000\060\000\060\000"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 "Bitmap object for outline depressed down glyph.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212 (defconst outline-right-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 (make-pixmap ; a right-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214 (if (featurep 'xpm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 (concat "/* XPM */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 static char * right[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 \"10 10 5 1\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 \" c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 \". c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 \"X c none\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 \"o c " outline-glyph-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 \"O c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 \" .XXXXXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 \" ...XXXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 \" ....XXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 \" oo....XX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 \" oooo....\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 \" ooooOOOO\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 \" ooOOOOXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 \" OOOOXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 \" OOOXXXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 \" OXXXXXXXX\"};")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 (list 10 10 (concat "\000\000\006\000\032\000\142\000\232\001"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 "\352\001\172\000\036\000\006\000\000\000"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 "Bitmap object for outline right glyph.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 (defconst outline-right-arrow-mask
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 (make-pixmap ; a right-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 (if (featurep 'xpm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 (concat "/* XPM */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241 static char * right[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 \"10 10 5 1\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 \" c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 \". c " outline-glyph-shade-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 \"X c none\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 \"o c " outline-glyph-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 \"O c " outline-glyph-lit-colour "\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 \" .XXXXXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 \" ...XXXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 \" ....XXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 \" oo....XX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 \" oooo....\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253 \" ooooOOOO\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 \" ooOOOOXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 \" OOOOXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 \" OOOXXXXXX\",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 \" OXXXXXXXX\"};")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 (list 10 10 (concat "\000\000\006\000\036\000\176\000\346\001"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 "\236\001\146\000\036\000\006\000\000\000"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 "Bitmap object for outline depressed right glyph.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 (defvar outline-glyph-menu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 '("Outline Commands"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264 ["Hide all" hide-body t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 ["Hide all subtrees" hide-subtrees-same-level t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266 "---"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267 ["Hide subtree" hide-subtree t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 ["Hide body" hide-body t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 ["Show subtree" show-subtree t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 ["Show body" show-entry t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 "---"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 ["Update buffer" outline-add-glyphs t]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 ["Rescan buffer" outline-rescan-buffer t])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 "Menu of commands for outline glyphs.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 (set-pixmap-contributes-to-line-height outline-down-arrow nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277 (set-pixmap-contributes-to-line-height outline-up-arrow nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278 (set-pixmap-contributes-to-line-height outline-down-arrow-mask nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279 (set-pixmap-contributes-to-line-height outline-up-arrow-mask nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 (set-pixmap-contributes-to-line-height outline-right-arrow nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281 (set-pixmap-contributes-to-line-height outline-right-arrow-mask nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
282
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283 (require 'annotations)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
284 (require 'advice) ; help me doctor !
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285 (require 'outline)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
286 (require 'func-menu) ; for those most excellent regexps.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
287
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
288 (add-hook 'outline-mode-hook 'outline-mouse-hooks)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
289 (add-hook 'outline-minor-mode-hook 'outline-mouse-hooks)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
290 ;; I thought this was done already ...
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 (make-variable-buffer-local 'outline-regexp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292 (make-variable-buffer-local 'outline-level)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
294 (cond (outline-sync-with-func-menu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
295 (add-hook 'fume-found-function-hook 'outline-heading-add-glyph-1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 (setq-default fume-rescan-buffer-hook '(lambda ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297 (outline-minor-mode 1)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299 (defadvice fume-set-defaults (after fume-set-defaults-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300 "Advise fume-set-defaults to setup outline regexps."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301 (if (and (not (assq 'outline-regexp (buffer-local-variables)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302 fume-function-name-regexp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
303 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304 (setq outline-regexp (if (listp fume-function-name-regexp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305 (car fume-function-name-regexp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 fume-function-name-regexp))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
307 (setq outline-level '(lambda () 1)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309 (defadvice outline-minor-mode (after outline-mode-mouse activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 "Advise outline-minor-mode to delete glyphs when switched off."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311 (if (not outline-minor-mode)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
312 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
313 (outline-delete-glyphs)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
314 (show-all))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316 ;; advise all outline commands so that glyphs are synced after use
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
317 (defadvice show-all (after show-all-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
318 "Advise show-all to sync headings."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
319 (outline-sync-visible-sub-headings-in-region (point-min) (point-max)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
320
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321 (defadvice hide-subtree (after hide-subtree-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322 "Advise hide-subtree to sync headings."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 (outline-sync-visible-sub-headings))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
324
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325 (defadvice hide-entry (after hide-entry-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 "Advise hide-entry to sync headings."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 (outline-sync-visible-sub-headings))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
329 (defadvice hide-body (after hide-body-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
330 "Advise hide-body to sync headings."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 (outline-sync-visible-sub-headings-in-region (point-min) (point-max)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333 (defadvice show-subtree (after show-subtree-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
334 "Advise show-subtree to sync headings."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
335 (outline-sync-visible-sub-headings))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337 (defadvice show-entry (after show-entry-ad activate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
338 "Advise shown-entry to sync headings."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
339 (outline-sync-visible-sub-headings))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
341 ;;;###autoload
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
342 (defun outl-mouse-mode ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
343 "Calls outline-mode, with outl-mouse extensions"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
344 (interactive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
345 (outline-mode))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
346
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
347 ;;;###autoload
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348 (defun outl-mouse-minor-mode (&optional arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 "Toggles outline-minor-mode, with outl-mouse extensions"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
350 (interactive "P")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351 (outline-minor-mode arg))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
353 (defun hide-subtrees-same-level ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354 "Hide all subtrees below the current level."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
355 (interactive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
356 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
357 (while (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
358 (hide-subtree)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
359 (condition-case nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
360 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
361 (outline-forward-same-level 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
362 t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
363 (error nil))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 (defun outline-mouse-hooks ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366 "Hook for installing outlining with the mouse."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
367 ;; use function menu regexps if not set
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
368 (fume-set-defaults)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
369 ;; only add glyphs when we're not synced.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370 (if (not outline-sync-with-func-menu) (outline-add-glyphs))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 ;; add C-a to local keymap
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
372 (let ((outline (cond ((keymapp (lookup-key (current-local-map)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
373 outline-minor-mode-prefix))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
374 (lookup-key (current-local-map)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375 outline-minor-mode-prefix))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 (t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377 (define-key (current-local-map)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
378 outline-minor-mode-prefix (make-sparse-keymap))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379 (lookup-key (current-local-map)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
380 outline-minor-mode-prefix)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
381 (define-key outline "\C-a" 'outline-heading-add-glyph)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382 (define-key outline-mode-map "\C-c\C-a" 'outline-heading-add-glyph)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
383
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384 (defun outline-add-glyphs ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385 "Add annotations and glyphs to all heading lines that don't have them."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386 (interactive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 (and outline-scanning-message (message outline-scanning-message 0))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389 (goto-char (point-min))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 (if (not (outline-on-heading-p)) (outline-next-visible-heading-safe))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391 (while
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393 (outline-heading-add-glyph-1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394 (and outline-scanning-message
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395 (message outline-scanning-message (fume-relative-position)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396 (outline-next-visible-heading-safe)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 (and outline-scanning-message
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
398 (message "%s done" (format outline-scanning-message 100)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400 (defun outline-delete-glyphs ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
401 "Remove annotations and glyphs from heading lines."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
403 (mapcar 'outline-heading-delete-glyph (annotation-list))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 (defun outline-rescan-buffer ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 "Remove and insert all annotations."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407 (interactive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
408 (outline-delete-glyphs)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
409 (outline-add-glyphs)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
410 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
411 (outline-sync-visible-sub-headings-in-region (point-min) (point-max))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
412
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
413 (defun outline-heading-delete-glyph (ext)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
414 "Delete annotation and glyph from a heading with annotation EXT."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415 (if (and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417 (goto-char (extent-start-position ext))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418 (beginning-of-line)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419 (outline-on-heading-p))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
420 (extent-property ext 'outline))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
421 (delete-annotation ext))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
422 nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
423
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
424 (defun outline-heading-add-glyph ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
425 "Interactive version of outline-heading-add-glyph-1."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
426 (interactive)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
427 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
428 (outline-heading-add-glyph-1)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
429
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
430 (defun outline-heading-add-glyph-1 ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
431 "Add glyph to the end of heading line which point is on.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
432 Returns nil if point is not on a heading or glyph already exists."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
433 (if (or (not (outline-on-heading-p))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
434 (outline-heading-has-glyph-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
435 (save-excursion (forward-line) (outline-on-heading-p)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
436 nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
437 (outline-back-to-heading)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
438 (let ((anot2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
439 (make-annotation (if outline-mac-style
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
440 outline-right-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
441 outline-down-arrow)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
442 (save-excursion (if outline-glyphs-on-left nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
443 (outline-end-of-heading))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
444 (point))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
445 'text nil t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
446 (if outline-mac-style
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
447 outline-right-arrow-mask
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
448 outline-down-arrow-mask)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
449 (anot1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
450 (make-annotation (if outline-mac-style
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
451 outline-down-arrow
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
452 outline-up-arrow)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
453 (save-excursion (if outline-glyphs-on-left nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
454 (outline-end-of-heading))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
455 (point))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
456 'text nil t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
457 (if outline-mac-style
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
458 outline-down-arrow-mask
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
459 outline-up-arrow-mask))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
460 ;; we cunningly make the annotation data point to its twin.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
461 (set-annotation-data anot1 anot2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
462 (set-extent-property anot1 'outline 'up)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
463 (set-annotation-action anot1 'outline-up-click)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
464 (set-annotation-menu anot1 outline-glyph-menu)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
465 (set-extent-priority anot1 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
466 (set-annotation-data anot2 anot1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
467 (set-extent-property anot2 'outline 'down)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
468 (set-annotation-menu anot2 outline-glyph-menu)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
469 (set-annotation-action anot2 'outline-down-click)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
470 (annotation-hide anot2))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
471 t))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
472
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
473 (defun outline-heading-has-glyph-p ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
474 "Return t if heading has an outline glyph."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
475 (catch 'found
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
476 (mapcar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
477 '(lambda(a)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
478 (if (extent-property a 'outline)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
479 (throw 'found t)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
480 (annotations-in-region (save-excursion (outline-back-to-heading) (point))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
481 (save-excursion (outline-end-of-heading)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
482 (+ 1 (point)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
483 (current-buffer)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
484 nil))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
485
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
486 (defun outline-sync-visible-sub-headings-in-region (pmin pmax)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
487 "Make sure all anotations on headings in region PMIN PMAX are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
488 displayed correctly."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
489 (mapcar '(lambda (x)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
490 (goto-char (extent-start-position x))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
491 (beginning-of-line)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
492 (cond ((and (eq (extent-property x 'outline) 'down)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
493 ;; skip things we can't see
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
494 (not (eq (preceding-char) ?\^M)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
495 (if (outline-more-to-hide)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
496 ;; reveal my twin
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
497 (annotation-reveal (annotation-data x))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
498 (annotation-hide (annotation-data x)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
499 (if (not (outline-hidden-p))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
500 ;; hide my self
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
501 (annotation-hide x)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
502 (annotation-reveal x)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
503 (annotations-in-region pmin pmax (current-buffer))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
504
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
505 (defun outline-sync-visible-sub-headings ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
506 "Make sure all anotations on sub-headings below the one point is on are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
507 displayed correctly."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
508 (outline-sync-visible-sub-headings-in-region
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
509 (point)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
510 (progn (outline-end-of-subtree) (point))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
511
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
512 (defun outline-fold-out (annotation)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
513 "Fold out the current heading."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
514 (beginning-of-line)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
515 ; (if (not (equal (condition-case nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
516 ; (save-excursion (outline-next-visible-heading 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
517 ; (point))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
518 ; (error nil))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
519 ; (save-excursion (outline-next-heading)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
520 ; (if (eobp) nil (point)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
521 (if (save-excursion (outline-next-heading)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
522 (eq (preceding-char) ?\^M))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
523 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
524 (save-excursion (show-children))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
525 (outline-sync-visible-sub-headings))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
526 ;; mess with single entry
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
527 (if (outline-hidden-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
528 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
529 (save-excursion (show-entry))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
530 ;; reveal my twin and hide me
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
531 (annotation-hide annotation)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
532 (annotation-reveal (annotation-data annotation))))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
533
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
534 (defun outline-fold-in (annotation)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
535 "Fold in the current heading."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
536 (beginning-of-line)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
537 ;; mess with single entries
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
538 (if (not (outline-hidden-p))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
539 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
540 (save-excursion (hide-entry))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
541 (if (not (outline-more-to-hide))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
542 (annotation-hide annotation))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
543 (annotation-reveal (annotation-data annotation)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
544 ;; otherwise look for more leaves
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
545 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
546 (if (outline-more-to-hide t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
547 (hide-subtree)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
548 (hide-leaves)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
549 ;; sync everything
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
550 (outline-sync-visible-sub-headings)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
551
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
552 (defun outline-more-to-hide (&optional arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
553 "Return t if there are more visible sub-headings or text.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
554 With ARG return t only if visible sub-headings have no visible text."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
555 (if (not (outline-hidden-p))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
556 (if arg nil t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
557 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
558 (and (< (funcall outline-level) (condition-case nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
559 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
560 (outline-next-visible-heading 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
561 (funcall outline-level))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
562 (error 0)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
563 (if (and (not (outline-hidden-p)) arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
564 nil t)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
565
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
566 (defun outline-hidden-p ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
567 "Return t if point is on the header of a hidden subtree."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
568 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
569 (let ((end-of-entry (save-excursion (outline-next-heading))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
570 ;; Make sure that the end of the entry really exists.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
571 (if (not end-of-entry)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
572 (setq end-of-entry (point-max)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
573 (outline-back-to-heading)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
574 ;; If there are ANY ^M's, the entry is hidden.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
575 (search-forward "\^M" end-of-entry t))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
576
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
577 (defun outline-next-visible-heading-safe ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
578 "Safely go to the next visible heading.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
579 nil is returned if there is none."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
580 (condition-case nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
581 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
582 (outline-next-visible-heading 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
583 t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
584 (error nil)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
585
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
586 (defun outline-up-click (data ev)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
587 "Annotation action for clicking on an up arrow.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
588 DATA is the annotation data. EV is the mouse click event."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
589 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
590 (goto-char (extent-end-position (event-glyph-extent ev)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
591 (funcall outline-fold-in-function (event-glyph-extent ev)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
592 (if outline-move-point-after-click
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
593 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
594 (goto-char (extent-end-position (event-glyph-extent ev)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
595 (beginning-of-line))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
596 ; This line demonstrates a bug in redisplay
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
597 (defun outline-down-click (data ev)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
598 "Annotation action for clicking on a down arrow.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
599 DATA is the annotation data. EV is the mouse click event."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
600 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
601 (goto-char (extent-end-position (event-glyph-extent ev)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
602 (funcall outline-fold-out-function (event-glyph-extent ev)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
603 (if outline-move-point-after-click
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
604 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
605 (goto-char (extent-end-position (event-glyph-extent ev)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
606 (beginning-of-line))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
607
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
608
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
609 (provide 'outl-mouse)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
610 (provide 'outln-18) ; fool auctex - outline is ok now.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
611
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
612 ;; Local Variables:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
613 ;; outline-regexp: ";;; \\|(def.."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
614 ;; End:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
615
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
616
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
617