annotate lisp/progmodes/ebrowse.el @ 90201:fbb2bea03df9

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-69 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 474-484) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 88-91) - Merge from emacs--cvs-trunk--0 - Update FSF's address in GPL notices - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 14 Jul 2005 08:02:00 +0000
parents f9a65d7ebd29
children edf295560b5a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; ebrowse.el --- Emacs C++ class browser & tags facility
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002, 2005
40255
ad4ee591fe2f Adapt to change in perform-replace.
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
4 ;; Free Software Foundation Inc.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6 ;; Author: Gerd Moellmann <gerd@gnu.org>
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 ;; Maintainer: FSF
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 ;; Keywords: C++ tags tools
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 ;; any later version.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to
64092
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63947
diff changeset
24 ;; the Free Software Foundation, 51 Franklin Street, Fifth Floor,
e055d02d8b97 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63947
diff changeset
25 ;; Boston, MA 02110-1301, USA.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 ;; This package implements
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31 ;; - A class browser for C++
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 ;; - A complete set of tags-like functions working on class trees
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 ;; - An electric buffer list showing class browser buffers only
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
35 ;; Documentation is found in a separate Info file.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 ;;; Code:
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39 (require 'easymenu)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 (require 'view)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 (require 'ebuff-menu)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 (eval-when-compile
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 (require 'cl)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 (require 'helper))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 ;;; User-options
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 (defgroup ebrowse nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 "Settings for the C++ class browser."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 :group 'tools)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 (defcustom ebrowse-search-path nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 "*List of directories to search for source files in a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 Elements should be directory names; nil as an element means to try
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
58 to find source files relative to the location of the BROWSE file loaded."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 :group 'ebrowse
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 :type '(repeat (choice (const :tag "Default" nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 (string :tag "Directory"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 (defcustom ebrowse-view/find-hook nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 "*Hooks run after finding or viewing a member or class."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 :group 'ebrowse
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 :type 'hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 (defcustom ebrowse-not-found-hook nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 "*Hooks run when finding or viewing a member or class was not successful."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 :group 'ebrowse
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 :type 'hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 (defcustom ebrowse-electric-list-mode-hook nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 "*Hook called by `ebrowse-electric-position-mode'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 :group 'ebrowse
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 :type 'hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 (defcustom ebrowse-max-positions 50
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 "*Number of markers saved on electric position stack."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 :group 'ebrowse
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 :type 'integer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 (defgroup ebrowse-tree nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 "Settings for class tree buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 :group 'ebrowse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 (defcustom ebrowse-tree-mode-hook nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 "*Hook run in each new tree buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 :group 'ebrowse-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 :type 'hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 (defcustom ebrowse-tree-buffer-name "*Tree*"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 "*The default name of class tree buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 :group 'ebrowse-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 :type 'string)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 (defcustom ebrowse--indentation 4
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 "*The amount by which subclasses are indented in the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108 :group 'ebrowse-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
109 :type 'integer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
110
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
111
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
112 (defcustom ebrowse-source-file-column 40
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
113 "*The column in which source file names are displayed in the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
114 :group 'ebrowse-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115 :type 'integer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
117
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
118 (defcustom ebrowse-tree-left-margin 2
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
119 "*Amount of space left at the left side of the tree display.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 This space is used to display markers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 :group 'ebrowse-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 :type 'integer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
125
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 (defgroup ebrowse-member nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
127 "Settings for member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
128 :group 'ebrowse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
129
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
130
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
131 (defcustom ebrowse-default-declaration-column 25
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
132 "*The column in which member declarations are displayed in member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
133 :group 'ebrowse-member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
134 :type 'integer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
135
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
136
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
137 (defcustom ebrowse-default-column-width 25
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
138 "*The width of the columns in member buffers (short display form)."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
139 :group 'ebrowse-member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
140 :type 'integer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
141
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
142
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
143 (defcustom ebrowse-member-buffer-name "*Members*"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
144 "*The name of the buffer for member display."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
145 :group 'ebrowse-member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
146 :type 'string)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
147
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
148
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
149 (defcustom ebrowse-member-mode-hook nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
150 "*Run in each new member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
151 :group 'ebrowse-member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
152 :type 'hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
153
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
154
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
155
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
156 (defgroup ebrowse-faces nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
157 "Faces used by Ebrowse."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
158 :group 'ebrowse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
159
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
160
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
161 (defface ebrowse-tree-mark
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
162 '((((min-colors 88)) (:foreground "red1"))
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
163 (t (:foreground "red")))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
164 "*The face used for the mark character in the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
165 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
166 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
167 (put 'ebrowse-tree-mark-face 'face-alias 'ebrowse-tree-mark)
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
168
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
169
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
170 (defface ebrowse-root-class
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
171 '((((min-colors 88)) (:weight bold :foreground "blue1"))
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
172 (t (:weight bold :foreground "blue")))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
173 "*The face used for root classes in the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
174 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
175 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
176 (put 'ebrowse-root-class-face 'face-alias 'ebrowse-root-class)
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
177
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
178
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
179 (defface ebrowse-file-name
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
180 '((t (:italic t)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
181 "*The face for filenames displayed in the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
182 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
183 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
184 (put 'ebrowse-file-name-face 'face-alias 'ebrowse-file-name)
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
185
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
186
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
187 (defface ebrowse-default
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
188 '((t nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
189 "*Face for everything else in the tree not having other faces."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
190 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
191 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
192 (put 'ebrowse-default-face 'face-alias 'ebrowse-default)
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
193
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
194
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
195 (defface ebrowse-member-attribute
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
196 '((((min-colors 88)) (:foreground "red1"))
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
197 (t (:foreground "red")))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
198 "*Face used to display member attributes."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
199 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
200 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
201 (put 'ebrowse-member-attribute-face 'face-alias 'ebrowse-member-attribute)
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
202
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
203
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
204 (defface ebrowse-member-class
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
205 '((t (:foreground "purple")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
206 "*Face used to display the class title in member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
207 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
208 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
209 (put 'ebrowse-member-class-face 'face-alias 'ebrowse-member-class)
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
210
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
211
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
212 (defface ebrowse-progress
61394
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
213 '((((min-colors 88)) (:background "blue1"))
31aa9a390538 * mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents: 59550
diff changeset
214 (t (:background "blue")))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
215 "*Face for progress indicator."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
216 :group 'ebrowse-faces)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
217 ;; backward-compatibility alias
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
218 (put 'ebrowse-progress-face 'face-alias 'ebrowse-progress)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
219
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
220
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
221
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
222 ;;; Utilities.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
223
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
224 (defun ebrowse-some (predicate vector)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
225 "Return true if PREDICATE is true of some element of VECTOR.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
226 If so, return the value returned by PREDICATE."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
227 (let ((length (length vector))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
228 (i 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
229 result)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
230 (while (and (< i length) (not result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
231 (setq result (funcall predicate (aref vector i))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
232 i (1+ i)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
233 result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
234
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
235
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
236 (defun ebrowse-every (predicate vector)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
237 "Return true if PREDICATE is true of every element of VECTOR."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
238 (let ((length (length vector))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
239 (i 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
240 (result t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
241 (while (and (< i length) result)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
242 (setq result (funcall predicate (aref vector i))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
243 i (1+ i)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
244 result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
245
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
246
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
247 (defun ebrowse-position (item list &optional test)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
248 "Return the position of ITEM in LIST or nil if not found.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
249 Compare items with `eq' or TEST if specified."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
250 (let ((i 0) found)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
251 (cond (test
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
252 (while list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
253 (when (funcall test item (car list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
254 (setq found i list nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
255 (setq list (cdr list) i (1+ i))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
256 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
257 (while list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
258 (when (eq item (car list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
259 (setq found i list nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
260 (setq list (cdr list) i (1+ i)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
261 found))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
262
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
263
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
264 (defun ebrowse-delete-if-not (predicate list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
265 "Remove elements not satisfying PREDICATE from LIST and return the result.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
266 This is a destructive operation."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
267 (let (result)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
268 (while list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
269 (let ((next (cdr list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
270 (when (funcall predicate (car list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
271 (setq result (nconc result list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
272 (setf (cdr list) nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
273 (setq list next)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
274 result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
275
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
276
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
277 (defmacro ebrowse-output (&rest body)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
278 "Eval BODY with a writable current buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
279 Preserve buffer's modified state."
49832
c62a92d62ebe (ebrowse-output): Don't use gensym.
Dave Love <fx@gnu.org>
parents: 49735
diff changeset
280 (let ((modified (make-symbol "--ebrowse-output--")))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
281 `(let (buffer-read-only (,modified (buffer-modified-p)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
282 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
283 (progn ,@body)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
284 (set-buffer-modified-p ,modified)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
285
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
286
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
287 (defmacro ebrowse-ignoring-completion-case (&rest body)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
288 "Eval BODY with `completion-ignore-case' bound to t."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
289 `(let ((completion-ignore-case t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
290 ,@body))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
291
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
292
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
293 (defmacro ebrowse-save-selective (&rest body)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
294 "Eval BODY with `selective-display' restored at the end."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
295 (let ((var (make-symbol "var")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
296 `(let ((,var selective-display))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
297 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
298 (progn ,@body)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
299 (setq selective-display ,var)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
300
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
301
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
302 (defmacro ebrowse-for-all-trees (spec &rest body)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
303 "For all trees in SPEC, eval BODY."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
304 (let ((var (make-symbol "var"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
305 (spec-var (car spec))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
306 (array (cadr spec)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
307 `(loop for ,var being the symbols of ,array
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
308 as ,spec-var = (get ,var 'ebrowse-root) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
309 (when (vectorp ,spec-var)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
310 ,@body))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
311
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
312 ;;; Set indentation for macros above.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
313
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
314 (put 'ebrowse-output 'lisp-indent-hook 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
315 (put 'ebrowse-ignoring-completion-case 'lisp-indent-hook 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
316 (put 'ebrowse-save-selective 'lisp-indent-hook 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
317 (put 'ebrowse-for-all-trees 'lisp-indent-hook 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
318
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
319
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
320 (defsubst ebrowse-set-face (start end face)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
321 "Set face of a region START END to FACE."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
322 (overlay-put (make-overlay start end) 'face face))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
323
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
324
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
325 (defun ebrowse-completing-read-value (prompt table initial-input)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
326 "Read a string in the minibuffer, with completion.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
327 Case is ignored in completions.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
328
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329 PROMPT is a string to prompt with; normally it ends in a colon and a space.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
330 TABLE is an alist whose elements' cars are strings, or an obarray.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
331 TABLE can also be a function to do the completion itself.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
332 If INITIAL-INPUT is non-nil, insert it in the minibuffer initially.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
333 If it is (STRING . POSITION), the initial input
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
334 is STRING, but point is placed POSITION characters into the string."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
335 (ebrowse-ignoring-completion-case
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
336 (completing-read prompt table nil t initial-input)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
337
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
338
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
339 (defun ebrowse-value-in-buffer (sym buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
340 "Return the value of SYM in BUFFER."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
341 (let ((old-buffer (current-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
342 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
343 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
344 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
345 (symbol-value sym))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
346 (set-buffer old-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
347
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
348
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
349 (defun ebrowse-rename-buffer (new-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
350 "Rename current buffer to NEW-NAME.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
351 If a buffer with name NEW-NAME already exists, delete it first."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
352 (let ((old-buffer (get-buffer new-name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
353 (unless (eq old-buffer (current-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
354 (when old-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
355 (save-excursion (kill-buffer old-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
356 (rename-buffer new-name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
357
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
358
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
359 (defun ebrowse-trim-string (string)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
360 "Return a copy of STRING with leading white space removed.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
361 Replace sequences of newlines with a single space."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
362 (when (string-match "^[ \t\n\r]+" string)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
363 (setq string (substring string (match-end 0))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
364 (loop while (string-match "[\n]+" string)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
365 finally return string do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
366 (setq string (replace-match " " nil t string))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
367
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
368
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
369 (defun ebrowse-width-of-drawable-area ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
370 "Return the width of the display area for the current buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
371 If buffer is displayed in a window, use that window's width,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
372 otherwise use the current frame's width."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
373 (let ((window (get-buffer-window (current-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
374 (if window
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
375 (window-width window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
376 (frame-width))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
377
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
378
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
379 ;;; Structure definitions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
380
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
381 (defstruct (ebrowse-hs (:type vector) :named)
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
382 "Header structure found at the head of BROWSE files."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
383 ;; A version string that is compared against the version number of
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
384 ;; the Lisp package when the file is loaded. This is done to
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
385 ;; detect file format changes.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
386 version
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
387 ;; Command line options used for producing the BROWSE file.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
388 command-line-options
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
389 ;; The following slot is currently not used. It's kept to keep
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
390 ;; the file format compatible.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
391 unused
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
392 ;; A slot that is filled out after the tree is loaded. This slot is
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
393 ;; set to a hash table mapping members to lists of classes in which
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
394 ;; they are defined.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
395 member-table)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
396
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
397
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
398 (defstruct (ebrowse-ts (:type vector) :named)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
399 "Tree structure.
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
400 Following the header structure, a BROWSE file contains a number
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
401 of `ebrowse-ts' structures, each one describing one root class of
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
402 the class hierarchy with all its subclasses."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
403 ;; A `ebrowse-cs' structure describing the root class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
404 class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
405 ;; A list of `ebrowse-ts' structures for all subclasses.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
406 subclasses
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
407 ;; Lists of `ebrowse-ms' structures for each member in a group of
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
408 ;; members.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
409 member-variables member-functions static-variables static-functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
410 friends types
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
411 ;; List of `ebrowse-ts' structures for base classes. This slot is
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
412 ;; filled at load time.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
413 base-classes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
414 ;; A marker slot used in the tree buffer (can be saved back to disk.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
415 mark)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
416
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
417
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
418 (defstruct (ebrowse-bs (:type vector) :named)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
419 "Common sub-structure.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
420 A common structure defining an occurrence of some name in the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
421 source files."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
422 ;; The class or member name as a string constant
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
423 name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
424 ;; An optional string for the scope of nested classes or for
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
425 ;; namespaces.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
426 scope
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
427 ;; Various flags describing properties of classes/members, e.g. is
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
428 ;; template, is const etc.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
429 flags
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
430 ;; File in which the entity is found. If this is part of a
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
431 ;; `ebrowse-ms' member description structure, and FILE is nil, then
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
432 ;; search for the name in the SOURCE-FILE of the members class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
433 file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
434 ;; Regular expression to search for. This slot can be a number in
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
435 ;; which case the number is the file position at which the regular
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
436 ;; expression is found in a separate regexp file (see the header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
437 ;; structure). This slot can be nil in which case the regular
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
438 ;; expression will be generated from the class/member name.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
439 pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
440 ;; The buffer position at which the search for the class or member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
441 ;; will start.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
442 point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
443
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
444
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
445 (defstruct (ebrowse-cs (:include ebrowse-bs) (:type vector) :named)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
446 "Class structure.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
447 This is the structure stored in the CLASS slot of a `ebrowse-ts'
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
448 structure. It describes the location of the class declaration."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
449 source-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
450
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
451
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
452 (defstruct (ebrowse-ms (:include ebrowse-bs) (:type vector) :named)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
453 "Member structure.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
454 This is the structure describing a single member. The `ebrowse-ts'
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
455 structure contains various lists for the different types of
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
456 members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
457 ;; Public, protected, private
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
458 visibility
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
459 ;; The file in which the member's definition can be found.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
460 definition-file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
461 ;; Same as PATTERN above, but for the member definition.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
462 definition-pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
463 ;; Same as POINT above but for member definition.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
464 definition-point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
465
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
466
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
467
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
468 ;;; Some macros to access the FLAGS slot of a MEMBER.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
469
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
470 (defsubst ebrowse-member-bit-set-p (member bit)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
471 "Value is non-nil if MEMBER's bit BIT is set."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
472 (/= 0 (logand (ebrowse-bs-flags member) bit)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
473
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
474
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
475 (defsubst ebrowse-virtual-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
476 "Value is non-nil if MEMBER is virtual."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
477 (ebrowse-member-bit-set-p member 1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
478
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
479
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
480 (defsubst ebrowse-inline-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
481 "Value is non-nil if MEMBER is inline."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
482 (ebrowse-member-bit-set-p member 2))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
483
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
484
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
485 (defsubst ebrowse-const-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
486 "Value is non-nil if MEMBER is const."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
487 (ebrowse-member-bit-set-p member 4))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
488
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
489
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
490 (defsubst ebrowse-pure-virtual-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
491 "Value is non-nil if MEMBER is a pure virtual function."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
492 (ebrowse-member-bit-set-p member 8))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
493
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
494
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
495 (defsubst ebrowse-mutable-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
496 "Value is non-nil if MEMBER is mutable."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
497 (ebrowse-member-bit-set-p member 16))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
498
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
499
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
500 (defsubst ebrowse-template-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
501 "Value is non-nil if MEMBER is a template."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
502 (ebrowse-member-bit-set-p member 32))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
503
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
504
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
505 (defsubst ebrowse-explicit-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
506 "Value is non-nil if MEMBER is explicit."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
507 (ebrowse-member-bit-set-p member 64))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
508
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
509
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
510 (defsubst ebrowse-throw-list-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
511 "Value is non-nil if MEMBER has a throw specification."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
512 (ebrowse-member-bit-set-p member 128))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
513
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
514
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
515 (defsubst ebrowse-extern-c-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
516 "Value is non-nil if MEMBER.is `extern \"C\"'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
517 (ebrowse-member-bit-set-p member 256))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
518
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
519
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
520 (defsubst ebrowse-define-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
521 "Value is non-nil if MEMBER is a define."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
522 (ebrowse-member-bit-set-p member 512))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
524
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
525 (defconst ebrowse-version-string "ebrowse 5.0"
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
526 "Version string expected in BROWSE files.")
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
527
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
528
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
529 (defconst ebrowse-globals-name "*Globals*"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
530 "The name used for the surrogate class.containing global entities.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
531 This must be the same that `ebrowse' uses.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
532
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
533
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
534 (defvar ebrowse--last-regexp nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
535 "Last regular expression searched for in tree and member buffers.
41773
31e7749d1e1a Doc fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40255
diff changeset
536 Each tree and member buffer maintains its own search history.")
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
537 (make-variable-buffer-local 'ebrowse--last-regexp)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
538
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
539
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
540 (defconst ebrowse-member-list-accessors
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
541 '(ebrowse-ts-member-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
542 ebrowse-ts-member-functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
543 ebrowse-ts-static-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
544 ebrowse-ts-static-functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
545 ebrowse-ts-friends
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
546 ebrowse-ts-types)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
547 "List of accessors for member lists.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
548 Each element is the symbol of an accessor function.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
549 The nth element must be the accessor for the nth member list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
550 in an `ebrowse-ts' structure.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
551
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
552
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
553 ;;; FIXME: Add more doc strings for the buffer-local variables below.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
554
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
555 (defvar ebrowse--tree-obarray nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
556 "Obarray holding all `ebrowse-ts' structures of a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
557 Buffer-local in Ebrowse buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
558
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
559
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
560 (defvar ebrowse--tags-file-name nil
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
561 "File from which BROWSE file was loaded.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
562 Buffer-local in Ebrowse buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
563
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
564
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
565 (defvar ebrowse--header nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
566 "Header structure of type `ebrowse-hs' of a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
567 Buffer-local in Ebrowse buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
568
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
569
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
570 (defvar ebrowse--frozen-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
571 "Non-nil means an Ebrowse buffer won't be reused.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
572 Buffer-local in Ebrowse buffers.")
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
573
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
574
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
575 (defvar ebrowse--show-file-names-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
576 "Non-nil means show file names in a tree buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
577 Buffer-local in Ebrowse tree buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
578
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
579
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
580 (defvar ebrowse--long-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
581 "Non-nil means show members in long display form.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
582 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
583
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
584
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
585 (defvar ebrowse--n-columns nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
586 "Number of columns to display for short member display form.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
587 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
588
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
589
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
590 (defvar ebrowse--column-width nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
591 "Width of a columns to display for short member display form.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
592 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
593
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
594
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
595 (defvar ebrowse--virtual-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
596 "Non-nil means display virtual members in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
597 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
598
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
599
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
600 (defvar ebrowse--inline-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
601 "Non-nil means display inline members in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
602 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
603
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
604
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
605 (defvar ebrowse--const-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
606 "Non-nil means display const members in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
607 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
608
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
609
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
610 (defvar ebrowse--pure-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
611 "Non-nil means display pure virtual members in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
612 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
613
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
614
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
615 (defvar ebrowse--filters nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
616 "Filter for display of public, protected, and private members.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
617 This is a vector of three elements. An element nil means the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
618 corresponding members are not shown.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
619 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
620
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
621
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
622 (defvar ebrowse--show-inherited-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
623 "Non-nil means display inherited members in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
624 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
625
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
626
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
627 (defvar ebrowse--attributes-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
628 "Non-nil means display member attributes in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
629 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
630
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
631
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
632 (defvar ebrowse--source-regexp-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
633 "Non-nil means display member regexps in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
634 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
635
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
636
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
637 (defvar ebrowse--displayed-class nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
638 "Class displayed in a member buffer, a `ebrowse-ts' structure.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
639 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
640
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
641
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
642 (defvar ebrowse--accessor nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
643 "Member list displayed in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
644 This is a symbol whose function definition is an accessor for the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
645 member list in `ebrowse-cs' structures.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
646 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
647
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
648
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
649 (defvar ebrowse--member-list nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
650 "The list of `ebrowse-ms' structures displayed in a member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
651 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
652
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
653
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
654 (defvar ebrowse--decl-column nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
655 "Column in which declarations are displayed in member buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
656 Buffer-local in Ebrowse member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
657
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
658
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
659 (defvar ebrowse--frame-configuration nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
660 "Frame configuration saved when viewing a class/member in another frame.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
661 Buffer-local in Ebrowse buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
662
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
663
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
664 (defvar ebrowse--view-exit-action nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
665 "Action to perform after viewing a class/member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
666 Either `kill-buffer' or nil.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
667 Buffer-local in Ebrowse buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
668
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
669
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
670 (defvar ebrowse--tree nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
671 "Class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
672 Buffer-local in Ebrowse buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
673
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
674
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
675 ;;; Temporaries used to communicate with `ebrowse-find-pattern'.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
676
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
677 (defvar ebrowse-temp-position-to-view nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
678 (defvar ebrowse-temp-info-to-view nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
679
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
680
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
681 (defvar ebrowse-tree-mode-map ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
682 "The keymap used in tree mode buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
683
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
684
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
685 (defvar ebrowse--member-mode-strings nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
686 "Strings displayed in the mode line of member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
687
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
688
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
689 (defvar ebrowse-member-mode-map ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
690 "The keymap used in the member buffers.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
691
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
692
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
693 ;;; Define mode line titles for each member list.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
694
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
695 (put 'ebrowse-ts-member-variables 'ebrowse-title "Member Variables")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
696 (put 'ebrowse-ts-member-functions 'ebrowse-title "Member Functions")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
697 (put 'ebrowse-ts-static-variables 'ebrowse-title "Static Variables")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
698 (put 'ebrowse-ts-static-functions 'ebrowse-title "Static Functions")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
699 (put 'ebrowse-ts-friends 'ebrowse-title "Friends")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
700 (put 'ebrowse-ts-types 'ebrowse-title "Types")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
701
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
702 (put 'ebrowse-ts-member-variables 'ebrowse-global-title "Global Variables")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
703 (put 'ebrowse-ts-member-functions 'ebrowse-global-title "Global Functions")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
704 (put 'ebrowse-ts-static-variables 'ebrowse-global-title "Static Variables")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
705 (put 'ebrowse-ts-static-functions 'ebrowse-global-title "Static Functions")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
706 (put 'ebrowse-ts-friends 'ebrowse-global-title "Defines")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
707 (put 'ebrowse-ts-types 'ebrowse-global-title "Types")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
708
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
709
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
710
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
711 ;;; Operations on `ebrowse-ts' structures
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
712
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
713 (defun ebrowse-files-table (&optional marked-only)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
714 "Return an obarray containing all files mentioned in the current tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
715 The tree is expected in the buffer-local variable `ebrowse--tree-obarray'.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
716 MARKED-ONLY non-nil means include marked classes only."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
717 (let ((files (make-hash-table :test 'equal))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
718 (i -1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
719 (ebrowse-for-all-trees (tree ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
720 (when (or (not marked-only) (ebrowse-ts-mark tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
721 (let ((class (ebrowse-ts-class tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
722 (when (zerop (% (incf i) 20))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
723 (ebrowse-show-progress "Preparing file list" (zerop i)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
724 ;; Add files mentioned in class description
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
725 (let ((source-file (ebrowse-cs-source-file class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
726 (file (ebrowse-cs-file class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
727 (when source-file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
728 (puthash source-file source-file files))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
729 (when file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
730 (puthash file file files))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
731 ;; For all member lists in this class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
732 (loop for accessor in ebrowse-member-list-accessors do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
733 (loop for m in (funcall accessor tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
734 for file = (ebrowse-ms-file m)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
735 for def-file = (ebrowse-ms-definition-file m) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
736 (when file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
737 (puthash file file files))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
738 (when def-file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
739 (puthash def-file def-file files))))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
740 files))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
741
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
742
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
743 (defun ebrowse-files-list (&optional marked-only)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
744 "Return a list containing all files mentioned in a tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
745 MARKED-ONLY non-nil means include marked classes only."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
746 (let (list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
747 (maphash #'(lambda (file dummy) (setq list (cons file list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
748 (ebrowse-files-table marked-only))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
749 list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
750
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
751
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
752 (defun* ebrowse-marked-classes-p ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
753 "Value is non-nil if any class in the current class tree is marked."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
754 (ebrowse-for-all-trees (tree ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
755 (when (ebrowse-ts-mark tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
756 (return-from ebrowse-marked-classes-p tree))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
757
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
758
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
759 (defsubst ebrowse-globals-tree-p (tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
760 "Return t if TREE is the one for global entities."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
761 (string= (ebrowse-bs-name (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
762 ebrowse-globals-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
763
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
764
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
765 (defsubst ebrowse-qualified-class-name (class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
766 "Return the name of CLASS with scope prepended, if any."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
767 (if (ebrowse-cs-scope class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
768 (concat (ebrowse-cs-scope class) "::" (ebrowse-cs-name class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
769 (ebrowse-cs-name class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
770
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
771
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
772 (defun ebrowse-tree-obarray-as-alist (&optional qualified-names-p)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
773 "Return an alist describing all classes in a tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
774 Each elements in the list has the form (CLASS-NAME . TREE).
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
775 CLASS-NAME is the name of the class. TREE is the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
776 class tree whose root is QUALIFIED-CLASS-NAME.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
777 QUALIFIED-NAMES-P non-nil means return qualified names as CLASS-NAME.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
778 The class tree is found in the buffer-local variable `ebrowse--tree-obarray'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
779 (let (alist)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
780 (if qualified-names-p
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
781 (ebrowse-for-all-trees (tree ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
782 (setq alist
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
783 (acons (ebrowse-qualified-class-name (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
784 tree alist)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
785 (ebrowse-for-all-trees (tree ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
786 (setq alist
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
787 (acons (ebrowse-cs-name (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
788 tree alist))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
789 alist))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
790
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
791
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
792 (defun ebrowse-sort-tree-list (list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
793 "Sort a LIST of `ebrowse-ts' structures by qualified class names."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
794 (sort list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
795 #'(lambda (a b)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
796 (string< (ebrowse-qualified-class-name (ebrowse-ts-class a))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
797 (ebrowse-qualified-class-name (ebrowse-ts-class b))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
798
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
799
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
800 (defun ebrowse-class-in-tree (class tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
801 "Search for a class with name CLASS in TREE.
59550
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
802 If CLASS is found, return the tail of TREE starting at CLASS. This function
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
803 is used during the load phase where classes appended to a file replace older
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
804 class information."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
805 (let ((tclass (ebrowse-ts-class class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
806 found)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
807 (while (and tree (not found))
59550
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
808 (let ((root-ptr tree))
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
809 (when (string= (ebrowse-qualified-class-name (ebrowse-ts-class (car root-ptr)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
810 (ebrowse-qualified-class-name tclass))
59550
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
811 (setq found root-ptr))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
812 (setq tree (cdr tree))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
813 found))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
814
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
815
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
816 (defun ebrowse-base-classes (tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
817 "Return list of base-classes of TREE by searching subclass lists.
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
818 This function must be used instead of the struct slot
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
819 `base-classes' to access the base-class list directly because it
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
820 computes this information lazily."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
821 (or (ebrowse-ts-base-classes tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
822 (setf (ebrowse-ts-base-classes tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
823 (loop with to-search = (list tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
824 with result = nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
825 as search = (pop to-search)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
826 while search finally return result
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
827 do (ebrowse-for-all-trees (ti ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
828 (when (memq search (ebrowse-ts-subclasses ti))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
829 (unless (memq ti result)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
830 (setq result (nconc result (list ti))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
831 (push ti to-search)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
832
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
833
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
834 (defun ebrowse-direct-base-classes (tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
835 "Return the list of direct super classes of TREE."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
836 (let (result)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
837 (dolist (s (ebrowse-base-classes tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
838 (when (memq tree (ebrowse-ts-subclasses s))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
839 (setq result (cons s result))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
840 result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
841
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
842
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
843
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
844 ;;; Operations on MEMBER structures/lists
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
845
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
846 (defun ebrowse-name/accessor-alist (tree accessor)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
847 "Return an alist containing all members of TREE in group ACCESSOR.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
848 ACCESSOR is the accessor function for the member list.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
849 Elements of the result have the form (NAME . ACCESSOR), where NAME
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
850 is the member name."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
851 (loop for member in (funcall accessor tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
852 collect (cons (ebrowse-ms-name member) accessor)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
853
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
854
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
855 (defun ebrowse-name/accessor-alist-for-visible-members ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
856 "Return an alist describing all members visible in the current buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
857 Each element of the list has the form (MEMBER-NAME . ACCESSOR),
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
858 where MEMBER-NAME is the member's name, and ACCESSOR is the struct
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
859 accessor with which the member's list can be accessed in an `ebrowse-ts'
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
860 structure. The list includes inherited members if these are visible."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
861 (let* ((list (ebrowse-name/accessor-alist ebrowse--displayed-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
862 ebrowse--accessor)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
863 (if ebrowse--show-inherited-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
864 (nconc list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
865 (loop for tree in (ebrowse-base-classes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
866 ebrowse--displayed-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
867 nconc (ebrowse-name/accessor-alist
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
868 tree ebrowse--accessor)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
869 list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
870
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
871
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
872 (defun ebrowse-name/accessor-alist-for-class-members ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
873 "Like `ebrowse-name/accessor-alist-for-visible-members'.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
874 This function includes members of base classes if base class members
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
875 are visible in the buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
876 (let (list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
877 (dolist (func ebrowse-member-list-accessors list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
878 (setq list (nconc list (ebrowse-name/accessor-alist
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
879 ebrowse--displayed-class func)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
880 (when ebrowse--show-inherited-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
881 (dolist (class (ebrowse-base-classes ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
882 (setq list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
883 (nconc list (ebrowse-name/accessor-alist class func))))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
884
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
885
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
886 ;;; Progress indication
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
887
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
888 (defvar ebrowse-n-boxes 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
889 (defconst ebrowse-max-boxes 60)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
890
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
891 (defun ebrowse-show-progress (title &optional start)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
892 "Display a progress indicator.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
893 TITLE is the title of the progress message. START non-nil means
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
894 this is the first progress message displayed."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
895 (let (message-log-max)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
896 (when start (setq ebrowse-n-boxes 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
897 (setq ebrowse-n-boxes (mod (1+ ebrowse-n-boxes) ebrowse-max-boxes))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
898 (message (concat title ": "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
899 (propertize (make-string ebrowse-n-boxes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
900 (if (display-color-p) ?\ ?+))
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
901 'face 'ebrowse-progress)))))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
902
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
903
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
904 ;;; Reading a tree from disk
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
905
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
906 (defun ebrowse-read ()
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
907 "Read `ebrowse-hs' and `ebrowse-ts' structures in the current buffer.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
908 Return a list (HEADER TREE) where HEADER is the file header read
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
909 and TREE is a list of `ebrowse-ts' structures forming the class tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
910 (let ((header (condition-case nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
911 (read (current-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
912 (error (error "No Ebrowse file header found"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
913 tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
914 ;; Check file format.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
915 (unless (ebrowse-hs-p header)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
916 (error "No Ebrowse file header found"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
917 (unless (string= (ebrowse-hs-version header) ebrowse-version-string)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
918 (error "File has wrong version `%s' (`%s' expected)"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
919 (ebrowse-hs-version header) ebrowse-version-string))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
920 ;; Read Lisp objects. Temporarily increase `gc-cons-threshold' to
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
921 ;; prevent a GC that would not free any memory.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
922 (let ((gc-cons-threshold 2000000))
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
923 (while (not (progn (skip-chars-forward " \t\n\r") (eobp)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
924 (let* ((root (read (current-buffer)))
59550
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
925 (old-root-ptr (ebrowse-class-in-tree root tree)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
926 (ebrowse-show-progress "Reading data" (null tree))
59550
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
927 (if old-root-ptr
ab8776511cbc (ebrowse-class-in-tree): Return the tail of the tree
Eli Zaretskii <eliz@gnu.org>
parents: 52529
diff changeset
928 (setcar old-root-ptr root)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
929 (push root tree)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
930 (garbage-collect)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
931 (list header tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
932
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
933
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
934 (defun ebrowse-revert-tree-buffer-from-file (ignore-auto-save noconfirm)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
935 "Function installed as `revert-buffer-function' in tree buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
936 See that variable's documentation for the meaning of IGNORE-AUTO-SAVE and
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
937 NOCONFIRM."
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
938 (when (or noconfirm (yes-or-no-p "Revert tree from disk? "))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
939 (loop for member-buffer in (ebrowse-same-tree-member-buffer-list)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
940 do (kill-buffer member-buffer))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
941 (erase-buffer)
63947
a13c7f436bfa (ebrowse-revert-tree-buffer-from-file): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 63448
diff changeset
942 (with-no-warnings
a13c7f436bfa (ebrowse-revert-tree-buffer-from-file): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 63448
diff changeset
943 (insert-file (or buffer-file-name ebrowse--tags-file-name)))
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
944 (ebrowse-tree-mode)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
945 (current-buffer)))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
946
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
947
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
948 (defun ebrowse-create-tree-buffer (tree tags-file header obarray pop)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
949 "Create a new tree buffer for tree TREE.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
950 The tree was loaded from file TAGS-FILE.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
951 HEADER is the header structure of the file.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
952 OBARRAY is an obarray with a symbol for each class in the tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
953 POP non-nil means popup the buffer up at the end.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
954 Return the buffer created."
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
955 (let ((name ebrowse-tree-buffer-name))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
956 (set-buffer (get-buffer-create name))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
957 (ebrowse-tree-mode)
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
958 (setq ebrowse--tree tree
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
959 ebrowse--tags-file-name tags-file
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
960 ebrowse--tree-obarray obarray
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
961 ebrowse--header header
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
962 ebrowse--frozen-flag nil)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
963 (ebrowse-redraw-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
964 (set-buffer-modified-p nil)
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
965 (case pop
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
966 (switch (switch-to-buffer name))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
967 (pop (pop-to-buffer name)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
968 (current-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
969
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
970
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
971
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
972 ;;; Operations for member obarrays
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
973
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
974 (defun ebrowse-fill-member-table ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
975 "Return an obarray holding all members of all classes in the current tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
976
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
977 For each member, a symbol is added to the obarray. Members are
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
978 extracted from the buffer-local tree `ebrowse--tree-obarray'.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
979
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
980 Each symbol has its property `ebrowse-info' set to a list (TREE MEMBER-LIST
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
981 MEMBER) where TREE is the tree in which the member is defined,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
982 MEMBER-LIST is a symbol describing the member list in which the member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
983 is found, and MEMBER is a MEMBER structure describing the member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
984
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
985 The slot `member-table' of the buffer-local header structure of
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
986 type `ebrowse-hs' is set to the resulting obarray."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
987 (let ((members (make-hash-table :test 'equal))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
988 (i -1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
989 (setf (ebrowse-hs-member-table ebrowse--header) nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
990 (garbage-collect)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
991 ;; For all classes...
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
992 (ebrowse-for-all-trees (c ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
993 (when (zerop (% (incf i) 10))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
994 (ebrowse-show-progress "Preparing member lookup" (zerop i)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
995 (loop for f in ebrowse-member-list-accessors do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
996 (loop for m in (funcall f c) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
997 (let* ((member-name (ebrowse-ms-name m))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
998 (value (gethash member-name members)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
999 (push (list c f m) value)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1000 (puthash member-name value members)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1001 (setf (ebrowse-hs-member-table ebrowse--header) members)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1002
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1003
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1004 (defun ebrowse-member-table (header)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1005 "Return the member obarray. Build it it hasn't been set up yet.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1006 HEADER is the tree header structure of the class tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1007 (when (null (ebrowse-hs-member-table header))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1008 (loop for buffer in (ebrowse-browser-buffer-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1009 until (eq header (ebrowse-value-in-buffer 'ebrowse--header buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1010 finally do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1011 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1012 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1013 (ebrowse-fill-member-table))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1014 (ebrowse-hs-member-table header))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1015
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1016
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1017
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1018 ;;; Operations on TREE obarrays
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1019
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1020 (defun ebrowse-build-tree-obarray (tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1021 "Make sure every class in TREE is represented by a unique object.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1022 Build obarray of all classes in TREE."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1023 (let ((classes (make-vector 127 0)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1024 ;; Add root classes...
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1025 (loop for root in tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1026 as sym =
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1027 (intern (ebrowse-qualified-class-name (ebrowse-ts-class root)) classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1028 do (unless (get sym 'ebrowse-root)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1029 (setf (get sym 'ebrowse-root) root)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1030 ;; Process subclasses
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1031 (ebrowse-insert-supers tree classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1032 classes))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1033
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1034
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1035 (defun ebrowse-insert-supers (tree classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1036 "Build base class lists in class tree TREE.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1037 CLASSES is an obarray used to collect classes.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1038
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1039 Helper function for `ebrowse-build-tree-obarray'. Base classes should
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1040 be ordered so that immediate base classes come first, then the base
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1041 class of the immediate base class and so on. This means that we must
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1042 construct the base-class list top down with adding each level at the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1043 beginning of the base-class list.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1044
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1045 We have to be cautious here not to end up in an infinite recursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1046 if for some reason a circle is in the inheritance graph."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1047 (loop for class in tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1048 as subclasses = (ebrowse-ts-subclasses class) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1049 ;; Make sure every class is represented by a unique object
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1050 (loop for subclass on subclasses
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1051 as sym = (intern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1052 (ebrowse-qualified-class-name (ebrowse-ts-class (car subclass)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1053 classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1054 as next = nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1055 do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1056 ;; Replace the subclass tree with the one found in
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1057 ;; CLASSES if there is already an entry for that class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1058 ;; in it. Otherwise make a new entry.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1059 ;;
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1060 ;; CAVEAT: If by some means (e.g., use of the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1061 ;; preprocessor in class declarations, a name is marked
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1062 ;; as a subclass of itself on some path, we would end up
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1063 ;; in an endless loop. We have to omit subclasses from
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1064 ;; the recursion that already have been processed.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1065 (if (get sym 'ebrowse-root)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1066 (setf (car subclass) (get sym 'ebrowse-root))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1067 (setf (get sym 'ebrowse-root) (car subclass))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1068 ;; Process subclasses
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1069 (ebrowse-insert-supers subclasses classes)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1070
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1071
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1072 ;;; Tree buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1073
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1074 (unless ebrowse-tree-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1075 (let ((map (make-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1076 (setf ebrowse-tree-mode-map map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1077 (suppress-keymap map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1078
30554
e56649429a8b (ebrowse-tree-mode-map): Use display-mouse-p instead of window-system.
Eli Zaretskii <eliz@gnu.org>
parents: 28816
diff changeset
1079 (when (display-mouse-p)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1080 (define-key map [down-mouse-3] 'ebrowse-mouse-3-in-tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1081 (define-key map [mouse-2] 'ebrowse-mouse-2-in-tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1082 (define-key map [down-mouse-1] 'ebrowse-mouse-1-in-tree-buffer))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1083
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1084 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1085 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1086 (define-key map "L" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1087 (define-key map1 "d" 'ebrowse-tree-command:show-friends)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1088 (define-key map1 "f" 'ebrowse-tree-command:show-member-functions)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1089 (define-key map1 "F" 'ebrowse-tree-command:show-static-member-functions)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1090 (define-key map1 "t" 'ebrowse-tree-command:show-types)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1091 (define-key map1 "v" 'ebrowse-tree-command:show-member-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1092 (define-key map1 "V" 'ebrowse-tree-command:show-static-member-variables))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1093
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1094 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1095 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1096 (define-key map "M" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1097 (define-key map1 "a" 'ebrowse-mark-all-classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1098 (define-key map1 "t" 'ebrowse-toggle-mark-at-point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1099
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1100 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1101 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1102 (define-key map "T" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1103 (define-key map1 "f" 'ebrowse-toggle-file-name-display)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1104 (define-key map1 "s" 'ebrowse-show-file-name-at-point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1105 (define-key map1 "w" 'ebrowse-set-tree-indentation)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1106 (define-key map "x" 'ebrowse-statistics))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1107
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1108 (define-key map "n" 'ebrowse-repeat-member-search)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1109 (define-key map "q" 'bury-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1110 (define-key map "*" 'ebrowse-expand-all)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1111 (define-key map "+" 'ebrowse-expand-branch)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1112 (define-key map "-" 'ebrowse-collapse-branch)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1113 (define-key map "/" 'ebrowse-read-class-name-and-go)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1114 (define-key map " " 'ebrowse-view-class-declaration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1115 (define-key map "?" 'describe-mode)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1116 (define-key map "\C-i" 'ebrowse-pop/switch-to-member-buffer-for-same-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1117 (define-key map "\C-k" 'ebrowse-remove-class-at-point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1118 (define-key map "\C-l" 'ebrowse-redraw-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1119 (define-key map "\C-m" 'ebrowse-find-class-declaration)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1120
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1121
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1122
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1123 ;;; Tree-mode - mode for tree buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1124
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1125 ;;;###autoload
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1126 (defun ebrowse-tree-mode ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1127 "Major mode for Ebrowse class tree buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1128 Each line corresponds to a class in a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1129 Letters do not insert themselves, they are commands.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1130 File operations in the tree buffer work on class tree data structures.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1131 E.g.\\[save-buffer] writes the tree to the file it was loaded from.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1132
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1133 Tree mode key bindings:
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1134 \\{ebrowse-tree-mode-map}"
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1135 (interactive)
28548
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
1136 (let* ((ident (propertized-buffer-identification "C++ Tree"))
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1137 header tree buffer-read-only)
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1138
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1139 (kill-all-local-variables)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1140 (use-local-map ebrowse-tree-mode-map)
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1141
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1142 (unless (zerop (buffer-size))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1143 (goto-char (point-min))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1144 (multiple-value-setq (header tree) (ebrowse-read))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1145 (message "Sorting. Please be patient...")
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1146 (setq tree (ebrowse-sort-tree-list tree))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1147 (erase-buffer)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1148 (message nil))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1149
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1150 (mapcar 'make-local-variable
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1151 '(ebrowse--tags-file-name
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1152 ebrowse--indentation
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1153 ebrowse--tree
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1154 ebrowse--header
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1155 ebrowse--show-file-names-flag
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1156 ebrowse--frozen-flag
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1157 ebrowse--tree-obarray
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1158 revert-buffer-function))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1159
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1160 (setf ebrowse--show-file-names-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1161 ebrowse--tree-obarray (make-vector 127 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1162 ebrowse--frozen-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1163 major-mode 'ebrowse-tree-mode
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1164 mode-name "Ebrowse-Tree"
28548
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
1165 mode-line-buffer-identification ident
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1166 buffer-read-only t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1167 selective-display t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1168 selective-display-ellipses t
28541
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1169 revert-buffer-function 'ebrowse-revert-tree-buffer-from-file
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1170 ebrowse--header header
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1171 ebrowse--tree tree
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1172 ebrowse--tags-file-name (buffer-file-name)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1173 ebrowse--tree-obarray (and tree (ebrowse-build-tree-obarray tree))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1174 ebrowse--frozen-flag nil)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1175
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1176 (add-hook 'local-write-file-hooks 'ebrowse-write-file-hook-fn)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1177 (modify-syntax-entry ?_ (char-to-string (char-syntax ?a)))
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1178 (when tree
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1179 (ebrowse-redraw-tree)
f0c234df148e (ebrowse-read): Skip forward over white
Gerd Moellmann <gerd@gnu.org>
parents: 28527
diff changeset
1180 (set-buffer-modified-p nil))
62772
f2892faa87d4 * progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
1181 (run-mode-hooks 'ebrowse-tree-mode-hook)))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1182
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1183
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1184
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1185 (defun ebrowse-update-tree-buffer-mode-line ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1186 "Update the tree buffer mode line."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1187 (ebrowse-rename-buffer (if ebrowse--frozen-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1188 (ebrowse-frozen-tree-buffer-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1189 ebrowse--tags-file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1190 ebrowse-tree-buffer-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1191 (force-mode-line-update))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1192
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1193
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1194
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1195 ;;; Removing classes from trees
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1196
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1197 (defun ebrowse-remove-class-and-kill-member-buffers (tree class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1198 "Remove from TREE class CLASS.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1199 Kill all member buffers still containing a reference to the class."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1200 (let ((sym (intern-soft (ebrowse-cs-name (ebrowse-ts-class class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1201 ebrowse--tree-obarray)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1202 (setf tree (delq class tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1203 (get sym 'ebrowse-root) nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1204 (dolist (root tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1205 (setf (ebrowse-ts-subclasses root)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1206 (delq class (ebrowse-ts-subclasses root))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1207 (ebrowse-ts-base-classes root) nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1208 (ebrowse-remove-class-and-kill-member-buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1209 (ebrowse-ts-subclasses root) class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1210 (ebrowse-kill-member-buffers-displaying class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1211 tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1212
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1213
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1214 (defun ebrowse-remove-class-at-point (forced)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1215 "Remove the class point is on from the class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1216 Do not ask for confirmation if FORCED is non-nil."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1217 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1218 (let* ((class (ebrowse-tree-at-point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1219 (class-name (ebrowse-cs-name (ebrowse-ts-class class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1220 (subclasses (ebrowse-ts-subclasses class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1221 (cond ((or forced
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1222 (y-or-n-p (concat "Delete class " class-name "? ")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1223 (setf ebrowse--tree (ebrowse-remove-class-and-kill-member-buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1224 ebrowse--tree class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1225 (set-buffer-modified-p t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1226 (message "%s %sdeleted." class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1227 (if subclasses "and derived classes " ""))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1228 (ebrowse-redraw-tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1229 (t (message "Aborted")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1230
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1231
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1232
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1233 ;;; Marking classes in the tree buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1234
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1235 (defun ebrowse-toggle-mark-at-point (&optional n-times)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1236 "Toggle mark for class cursor is on.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1237 If given a numeric N-TIMES argument, mark that many classes."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1238 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1239 (let (to-change pnt)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1240 ;; Get the classes whose mark must be toggled. Note that
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1241 ;; ebrowse-tree-at-point might issue an error.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1242 (condition-case error
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1243 (loop repeat (or n-times 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1244 as tree = (ebrowse-tree-at-point)
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1245 do (progn
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1246 (setf (ebrowse-ts-mark tree) (not (ebrowse-ts-mark tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1247 (forward-line 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1248 (push tree to-change)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1249 (error nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1250 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1251 ;; For all these classes, reverse the mark char in the display
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1252 ;; by a regexp replace over the whole buffer. The reason for this
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1253 ;; is that classes might have multiple base classes. If this is
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1254 ;; the case, they are displayed more than once in the tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1255 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1256 (loop for tree in to-change
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1257 as regexp = (concat "^.*\\b"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1258 (regexp-quote
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1259 (ebrowse-cs-name (ebrowse-ts-class tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1260 "\\b")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1261 do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1262 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1263 (loop while (re-search-forward regexp nil t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1264 do (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1265 (goto-char (match-beginning 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1266 (delete-char 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1267 (insert-char (if (ebrowse-ts-mark tree) ?> ? ) 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1268 (ebrowse-set-mark-props (1- (point)) (point) tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1269 (goto-char (match-end 0)))))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1270
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1271
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1272 (defun ebrowse-mark-all-classes (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1273 "Unmark, with PREFIX mark, all classes in the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1274 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1275 (ebrowse-for-all-trees (tree ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1276 (setf (ebrowse-ts-mark tree) prefix))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1277 (ebrowse-redraw-marks (point-min) (point-max)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1278
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1279
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1280 (defun ebrowse-redraw-marks (start end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1281 "Display class marker signs in the tree between START and END."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1282 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1283 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1284 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1285 (catch 'end
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1286 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1287 (dolist (root ebrowse--tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1288 (ebrowse-draw-marks-fn root start end))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1289 (ebrowse-update-tree-buffer-mode-line)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1290
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1291
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1292 (defun ebrowse-draw-marks-fn (tree start end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1293 "Display class marker signs in TREE between START and END."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1294 (when (>= (point) start)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1295 (delete-char 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1296 (insert (if (ebrowse-ts-mark tree) ?> ? ))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1297 (ebrowse-set-mark-props (1- (point)) (point) tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1298 (forward-line 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1299 (when (> (point) end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1300 (throw 'end nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1301 (dolist (sub (ebrowse-ts-subclasses tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1302 (ebrowse-draw-marks-fn sub start end)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1303
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1304
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1305
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1306 ;;; File name display in tree buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1307
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1308 (defun ebrowse-show-file-name-at-point (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1309 "Show filename in the line point is in.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1310 With PREFIX, insert that many filenames."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1311 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1312 (unless ebrowse--show-file-names-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1313 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1314 (dotimes (i prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1315 (let ((tree (ebrowse-tree-at-point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1316 start
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1317 file-name-existing)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1318 (beginning-of-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1319 (skip-chars-forward " \t*a-zA-Z0-9_")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1320 (setq start (point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1321 file-name-existing (looking-at "("))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1322 (delete-region start (save-excursion (end-of-line) (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1323 (unless file-name-existing
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1324 (indent-to ebrowse-source-file-column)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1325 (insert "(" (or (ebrowse-cs-file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1326 (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1327 "unknown")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1328 ")"))
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
1329 (ebrowse-set-face start (point) 'ebrowse-file-name)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1330 (beginning-of-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1331 (forward-line 1))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1332
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1333
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1334 (defun ebrowse-toggle-file-name-display ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1335 "Toggle display of filenames in tree buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1336 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1337 (setf ebrowse--show-file-names-flag (not ebrowse--show-file-names-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1338 (let ((old-line (count-lines (point-min) (point))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1339 (ebrowse-redraw-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1340 (goto-line old-line)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1341
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1342
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1343
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1344 ;;; General member and tree buffer functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1345
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1346 (defun ebrowse-member-buffer-p (buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1347 "Value is non-nil if BUFFER is a member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1348 (eq (cdr (assoc 'major-mode (buffer-local-variables buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1349 'ebrowse-member-mode))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1350
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1351
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1352 (defun ebrowse-tree-buffer-p (buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1353 "Value is non-nil if BUFFER is a class tree buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1354 (eq (cdr (assoc 'major-mode (buffer-local-variables buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1355 'ebrowse-tree-mode))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1356
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1357
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1358 (defun ebrowse-buffer-p (buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1359 "Value is non-nil if BUFFER is a tree or member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1360 (memq (cdr (assoc 'major-mode (buffer-local-variables buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1361 '(ebrowse-tree-mode ebrowse-member-mode)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1362
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1363
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1364 (defun ebrowse-browser-buffer-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1365 "Return a list of all tree or member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1366 (ebrowse-delete-if-not 'ebrowse-buffer-p (buffer-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1367
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1368
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1369 (defun ebrowse-member-buffer-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1370 "Return a list of all member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1371 (ebrowse-delete-if-not 'ebrowse-member-buffer-p (buffer-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1372
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1373
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1374 (defun ebrowse-tree-buffer-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1375 "Return a list of all tree buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1376 (ebrowse-delete-if-not 'ebrowse-tree-buffer-p (buffer-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1377
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1378
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1379 (defun ebrowse-known-class-trees-buffer-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1380 "Return a list of buffers containing class trees.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1381 The list will contain, for each class tree loaded,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1382 one buffer. Prefer tree buffers over member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1383 (let ((buffers (nconc (ebrowse-tree-buffer-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1384 (ebrowse-member-buffer-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1385 (set (make-hash-table))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1386 result)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1387 (dolist (buffer buffers)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1388 (let ((tree (ebrowse-value-in-buffer 'ebrowse--tree buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1389 (unless (gethash tree set)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1390 (push buffer result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1391 (puthash tree t set)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1392 result))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1393
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1394
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1395 (defun ebrowse-same-tree-member-buffer-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1396 "Return a list of members buffers with same tree as current buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1397 (ebrowse-delete-if-not
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1398 #'(lambda (buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1399 (eq (ebrowse-value-in-buffer 'ebrowse--tree buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1400 ebrowse--tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1401 (ebrowse-member-buffer-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1402
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1403
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1404
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1405 (defun ebrowse-pop/switch-to-member-buffer-for-same-tree (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1406 "Pop to the buffer displaying members.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1407 Switch to buffer if prefix ARG.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1408 If no member buffer exists, make one."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1409 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1410 (let ((buf (or (first (ebrowse-same-tree-member-buffer-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1411 (get-buffer ebrowse-member-buffer-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1412 (ebrowse-tree-command:show-member-functions))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1413 (when buf
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1414 (if arg
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1415 (switch-to-buffer buf)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1416 (pop-to-buffer buf)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1417 buf))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1418
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1419
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1420 (defun ebrowse-switch-to-next-member-buffer ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1421 "Switch to next member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1422 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1423 (let* ((list (ebrowse-member-buffer-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1424 (next-list (cdr (memq (current-buffer) list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1425 (next-buffer (if next-list (car next-list) (car list))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1426 (if (eq next-buffer (current-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1427 (error "No next buffer")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1428 (bury-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1429 (switch-to-buffer next-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1430
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1431
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1432 (defun ebrowse-kill-member-buffers-displaying (tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1433 "Kill all member buffers displaying TREE."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1434 (loop for buffer in (ebrowse-member-buffer-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1435 as class = (ebrowse-value-in-buffer 'ebrowse--displayed-class buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1436 when (eq class tree) do (kill-buffer buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1437
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1438
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1439 (defun ebrowse-frozen-tree-buffer-name (tags-file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1440 "Return the buffer name of a tree which is associated TAGS-FILE-NAME."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1441 (concat ebrowse-tree-buffer-name " (" tags-file-name ")"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1442
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1443
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1444 (defun ebrowse-pop-to-browser-buffer (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1445 "Pop to a browser buffer from any other buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1446 Pop to member buffer if no prefix ARG, to tree buffer otherwise."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1447 (interactive "P")
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1448 (let ((buffer (get-buffer (if arg
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1449 ebrowse-tree-buffer-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1450 ebrowse-member-buffer-name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1451 (unless buffer
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1452 (setq buffer
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1453 (get-buffer (if arg
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1454 ebrowse-member-buffer-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1455 ebrowse-tree-buffer-name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1456 (unless buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1457 (error "No browser buffer found"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1458 (pop-to-buffer buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1459
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1460
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1461
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1462 ;;; Misc tree buffer commands
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1463
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1464 (defun ebrowse-set-tree-indentation ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1465 "Set the indentation width of the tree display."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1466 (interactive)
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62074
diff changeset
1467 (let ((width (string-to-number (read-from-minibuffer
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62074
diff changeset
1468 (concat "Indentation ("
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62074
diff changeset
1469 (int-to-string ebrowse--indentation)
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62074
diff changeset
1470 "): ")))))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1471 (when (plusp width)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1472 (setf ebrowse--indentation width)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1473 (ebrowse-redraw-tree))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1474
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1475
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1476 (defun ebrowse-read-class-name-and-go (&optional class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1477 "Position cursor on CLASS.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1478 Read a class name from the minibuffer if CLASS is nil."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1479 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1480 (ebrowse-ignoring-completion-case
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1481 ;; If no class specified, read the class name from mini-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1482 (unless class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1483 (setf class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1484 (completing-read "Goto class: "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1485 (ebrowse-tree-obarray-as-alist) nil t)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1486 (ebrowse-save-selective
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1487 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1488 (widen)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1489 (setf selective-display nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1490 (setq ebrowse--last-regexp (concat "\\b" class "\\b"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1491 (if (re-search-forward ebrowse--last-regexp nil t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1492 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1493 (goto-char (match-beginning 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1494 (ebrowse-unhide-base-classes))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1495 (error "Not found")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1496
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1497
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1498
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1499 ;;; Showing various kinds of member buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1500
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1501 (defun ebrowse-tree-command:show-member-variables (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1502 "Display member variables; with prefix ARG in frozen member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1503 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1504 (ebrowse-display-member-buffer 'ebrowse-ts-member-variables arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1505
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1506
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1507 (defun ebrowse-tree-command:show-member-functions (&optional arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1508 "Display member functions; with prefix ARG in frozen member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1509 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1510 (ebrowse-display-member-buffer 'ebrowse-ts-member-functions arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1511
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1512
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1513 (defun ebrowse-tree-command:show-static-member-variables (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1514 "Display static member variables; with prefix ARG in frozen member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1515 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1516 (ebrowse-display-member-buffer 'ebrowse-ts-static-variables arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1517
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1518
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1519 (defun ebrowse-tree-command:show-static-member-functions (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1520 "Display static member functions; with prefix ARG in frozen member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1521 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1522 (ebrowse-display-member-buffer 'ebrowse-ts-static-functions arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1524
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1525 (defun ebrowse-tree-command:show-friends (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1526 "Display friend functions; with prefix ARG in frozen member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1527 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1528 (ebrowse-display-member-buffer 'ebrowse-ts-friends arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1529
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1530
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1531 (defun ebrowse-tree-command:show-types (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1532 "Display types defined in a class; with prefix ARG in frozen member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1533 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1534 (ebrowse-display-member-buffer 'ebrowse-ts-types arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1535
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1536
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1537
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1538 ;;; Viewing or finding a class declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1539
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1540 (defun ebrowse-tree-at-point ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1541 "Return the class structure for the class point is on."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1542 (or (get-text-property (point) 'ebrowse-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1543 (error "Not on a class")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1544
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1545
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1546 (defun* ebrowse-view/find-class-declaration (&key view where)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1547 "View or find the declarator of the class point is on.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1548 VIEW non-nil means view it. WHERE is additional position info."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1549 (let* ((class (ebrowse-ts-class (ebrowse-tree-at-point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1550 (file (ebrowse-cs-file class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1551 (browse-struct (make-ebrowse-bs
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1552 :name (ebrowse-cs-name class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1553 :pattern (ebrowse-cs-pattern class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1554 :flags (ebrowse-cs-flags class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1555 :file (ebrowse-cs-file class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1556 :point (ebrowse-cs-point class))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1557 (ebrowse-view/find-file-and-search-pattern
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1558 browse-struct
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1559 (list ebrowse--header class nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1560 file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1561 ebrowse--tags-file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1562 view
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1563 where)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1564
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1565
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1566 (defun ebrowse-find-class-declaration (prefix-arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1567 "Find a class declaration and position cursor on it.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1568 PREFIX-ARG 4 means find it in another window.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1569 PREFIX-ARG 5 means find it in another frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1570 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1571 (ebrowse-view/find-class-declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1572 :view nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1573 :where (cond ((= prefix-arg 4) 'other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1574 ((= prefix-arg 5) 'other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1575 (t 'this-window))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1576
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1577
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1578 (defun ebrowse-view-class-declaration (prefix-arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1579 "View class declaration and position cursor on it.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1580 PREFIX-ARG 4 means view it in another window.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1581 PREFIX-ARG 5 means view it in another frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1582 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1583 (ebrowse-view/find-class-declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1584 :view 'view
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1585 :where (cond ((= prefix-arg 4) 'other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1586 ((= prefix-arg 5) 'other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1587 (t 'this-window))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1588
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1589
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1590
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1591 ;;; The FIND engine
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1592
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1593 (defun ebrowse-find-source-file (file tags-file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1594 "Find source file FILE.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1595 Source files are searched for (a) relative to TAGS-FILE-NAME
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1596 which is the path of the BROWSE file from which the class tree was loaded,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1597 and (b) in the directories named in `ebrowse-search-path'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1598 (let (file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1599 (try-file (expand-file-name file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1600 (file-name-directory tags-file-name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1601 (if (file-readable-p try-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1602 (setq file-name try-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1603 (let ((search-in ebrowse-search-path))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1604 (while (and search-in
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1605 (null file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1606 (let ((try-file (expand-file-name file (car search-in))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1607 (if (file-readable-p try-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1608 (setq file-name try-file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1609 (setq search-in (cdr search-in))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1610 (unless file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1611 (error "File `%s' not found" file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1612 file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1613
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1614
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1615 (defun ebrowse-view-file-other-window (file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1616 "View a file FILE in another window.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1617 This is a replacement for `view-file-other-window' which does not
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1618 seem to work. It should be removed when `view.el' is fixed."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1619 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1620 (let ((old-arrangement (current-window-configuration))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1621 (had-a-buf (get-file-buffer file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1622 (buf-to-view (find-file-noselect file)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1623 (switch-to-buffer-other-window buf-to-view)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1624 (view-mode-enter old-arrangement
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1625 (and (not had-a-buf)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1626 (not (buffer-modified-p buf-to-view))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1627 'kill-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1628
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1629
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1630 (defun ebrowse-view-exit-fn (buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1631 "Function called when exiting View mode in BUFFER.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1632 Restore frame configuration active before viewing the file,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1633 and possibly kill the viewed buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1634 (let (exit-action original-frame-configuration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1635 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1636 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1637 (setq original-frame-configuration ebrowse--frame-configuration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1638 exit-action ebrowse--view-exit-action))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1639 ;; Delete the frame in which we viewed.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1640 (mapcar 'delete-frame
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1641 (loop for frame in (frame-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1642 when (not (assq frame original-frame-configuration))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1643 collect frame))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1644 (when exit-action
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1645 (funcall exit-action buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1646
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1647
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1648 (defun ebrowse-view-file-other-frame (file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1649 "View a file FILE in another frame.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1650 The new frame is deleted when it is no longer used."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1651 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1652 (let ((old-frame-configuration (current-frame-configuration))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1653 (old-arrangement (current-window-configuration))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1654 (had-a-buf (get-file-buffer file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1655 (buf-to-view (find-file-noselect file)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1656 (switch-to-buffer-other-frame buf-to-view)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1657 (make-local-variable 'ebrowse--frame-configuration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1658 (setq ebrowse--frame-configuration old-frame-configuration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1659 (make-local-variable 'ebrowse--view-exit-action)
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1660 (setq ebrowse--view-exit-action
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1661 (and (not had-a-buf)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1662 (not (buffer-modified-p buf-to-view))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1663 'kill-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1664 (view-mode-enter old-arrangement 'ebrowse-view-exit-fn)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1665
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1666
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1667 (defun ebrowse-view/find-file-and-search-pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1668 (struc info file tags-file-name &optional view where)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1669 "Find or view a member or class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1670 STRUC is an `ebrowse-bs' structure (or a structure including that)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1671 describing what to search.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1672 INFO is a list (HEADER MEMBER-OR-CLASS ACCESSOR). HEADER is the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1673 header structure of a class tree. MEMBER-OR-CLASS is either an
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1674 `ebrowse-ms' or `ebrowse-cs' structure depending on what is searched.
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1675 ACCESSOR is an accessor function for the member list of a member
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1676 if MEMBER-OR-CLASS is an `ebrowse-ms'.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1677 FILE is the file to search the member in.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1678 FILE is not taken out of STRUC here because the filename in STRUC
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1679 may be nil in which case the filename of the class description is used.
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
1680 TAGS-FILE-NAME is the name of the BROWSE file from which the
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1681 tree was loaded.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1682 If VIEW is non-nil, view file else find the file.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1683 WHERE is either `other-window', `other-frame' or `this-window' and
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1684 specifies where to find/view the result."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1685 (unless file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1686 (error "Sorry, no file information available for %s"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1687 (ebrowse-bs-name struc)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1688 ;; Get the source file to view or find.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1689 (setf file (ebrowse-find-source-file file tags-file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1690 ;; If current window is dedicated, use another frame.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1691 (when (window-dedicated-p (selected-window))
43763
29f787bccb84 (ebrowse-view/find-file-and-search-pattern):
Gerd Moellmann <gerd@gnu.org>
parents: 42706
diff changeset
1692 (setf where 'other-window))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1693 (cond (view
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1694 (setf ebrowse-temp-position-to-view struc
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1695 ebrowse-temp-info-to-view info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1696 (unless (boundp 'view-mode-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1697 (setq view-mode-hook nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1698 (push 'ebrowse-find-pattern view-mode-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1699 (case where
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1700 (other-window (ebrowse-view-file-other-window file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1701 (other-frame (ebrowse-view-file-other-frame file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1702 (t (view-file file))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1703 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1704 (case where
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1705 (other-window (find-file-other-window file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1706 (other-frame (find-file-other-frame file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1707 (t (find-file file)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1708 (ebrowse-find-pattern struc info))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1709
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1710
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1711 (defun ebrowse-symbol-regexp (name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1712 "Generate a suitable regular expression for a member or class NAME.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1713 This is `regexp-quote' for most symbols, except for operator names
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1714 which may contain whitespace. For these symbols, replace white
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
1715 space in the symbol name (generated by BROWSE) with a regular
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1716 expression matching any number of whitespace characters."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1717 (loop with regexp = (regexp-quote name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1718 with start = 0
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1719 finally return regexp
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1720 while (string-match "[ \t]+" regexp start)
46353
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
1721 do (setq regexp (concat (substring regexp 0 (match-beginning 0))
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
1722 "[ \t]*"
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
1723 (substring regexp (match-end 0)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1724 start (+ (match-beginning 0) 5))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1725
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1726
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1727 (defun ebrowse-class-declaration-regexp (name)
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1728 "Construct a regexp for a declaration of class NAME."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1729 (concat "^[ \t]*\\(template[ \t\n]*<.*>\\)?"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1730 "[ \t\n]*\\(class\\|struct\\|union\\).*\\S_"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1731 (ebrowse-symbol-regexp name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1732 "\\S_"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1733
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1734
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1735 (defun ebrowse-variable-declaration-regexp (name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1736 "Construct a regexp for matching a variable NAME."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1737 (concat "\\S_" (ebrowse-symbol-regexp name) "\\S_"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1738
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1739
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1740 (defun ebrowse-function-declaration/definition-regexp (name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1741 "Construct a regexp for matching a function NAME."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1742 (concat "^[a-zA-Z0-9_:*&<>, \t]*\\S_"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1743 (ebrowse-symbol-regexp name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1744 "[ \t\n]*("))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1745
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1746
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1747 (defun ebrowse-pp-define-regexp (name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1748 "Construct a regexp matching a define of NAME."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1749 (concat "^[ \t]*#[ \t]*define[ \t]+" (regexp-quote name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1750
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1751
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1752 (defun* ebrowse-find-pattern (&optional position info &aux viewing)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1753 "Find a pattern.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1754
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1755 This is a kluge: Ebrowse allows you to find or view a file containing
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1756 a pattern. To be able to do a search in a viewed buffer,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1757 `view-mode-hook' is temporarily set to this function;
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1758 `ebrowse-temp-position-to-view' holds what to search for.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1759
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1760 INFO is a list (TREE-HEADER TREE-OR-MEMBER MEMBER-LIST)."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1761 (unless position
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1762 (pop view-mode-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1763 (setf viewing t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1764 position ebrowse-temp-position-to-view
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1765 info ebrowse-temp-info-to-view))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1766 (widen)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1767 (let* ((pattern (ebrowse-bs-pattern position))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1768 (start (ebrowse-bs-point position))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1769 (offset 100)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1770 found)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1771 (destructuring-bind (header class-or-member member-list) info
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1772 ;; If no pattern is specified, construct one from the member name.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1773 (when (stringp pattern)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1774 (setq pattern (concat "^.*" (regexp-quote pattern))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1775 ;; Construct a regular expression if none given.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1776 (unless pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1777 (typecase class-or-member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1778 (ebrowse-ms
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1779 (case member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1780 ((ebrowse-ts-member-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1781 ebrowse-ts-static-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1782 ebrowse-ts-types)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1783 (setf pattern (ebrowse-variable-declaration-regexp
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1784 (ebrowse-bs-name position))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1785 (otherwise
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1786 (if (ebrowse-define-p class-or-member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1787 (setf pattern (ebrowse-pp-define-regexp (ebrowse-bs-name position)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1788 (setf pattern (ebrowse-function-declaration/definition-regexp
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1789 (ebrowse-bs-name position)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1790 (ebrowse-cs
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1791 (setf pattern (ebrowse-class-declaration-regexp
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1792 (ebrowse-bs-name position))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1793 ;; Begin searching some OFFSET from the original point where the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1794 ;; regular expression was found by the parse, and step forward.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1795 ;; When there is no regular expression in the database and a
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1796 ;; member definition/declaration was not seen by the parser,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1797 ;; START will be 0.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1798 (when (and (boundp 'ebrowse-debug)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1799 (symbol-value 'ebrowse-debug))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1800 (y-or-n-p (format "start = %d" start))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1801 (y-or-n-p pattern))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1802 (setf found
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1803 (loop do (goto-char (max (point-min) (- start offset)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1804 when (re-search-forward pattern (+ start offset) t) return t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1805 never (bobp)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1806 do (incf offset offset)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1807 (cond (found
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1808 (beginning-of-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1809 (run-hooks 'ebrowse-view/find-hook))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1810 ((numberp (ebrowse-bs-pattern position))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1811 (goto-char start)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1812 (if ebrowse-not-found-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1813 (run-hooks 'ebrowse-not-found-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1814 (message "Not found")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1815 (sit-for 2)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1816 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1817 (if ebrowse-not-found-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1818 (run-hooks 'ebrowse-not-found-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1819 (unless viewing
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1820 (error "Not found"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1821 (message "Not found")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1822 (sit-for 2)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1823
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1824
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1825 ;;; Drawing the tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1826
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1827 (defun ebrowse-redraw-tree (&optional quietly)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1828 "Redisplay the complete tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1829 QUIETLY non-nil means don't display progress messages."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1830 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1831 (or quietly (message "Displaying..."))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1832 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1833 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1834 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1835 (ebrowse-draw-tree-fn)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1836 (ebrowse-update-tree-buffer-mode-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1837 (or quietly (message nil)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1838
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1839
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1840 (defun ebrowse-set-mark-props (start end tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1841 "Set text properties for class marker signs between START and END.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1842 TREE denotes the class shown."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1843 (add-text-properties
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1844 start end
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1845 `(mouse-face highlight ebrowse-what mark ebrowse-tree ,tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1846 help-echo "double-mouse-1: mark/unmark"))
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
1847 (ebrowse-set-face start end 'ebrowse-tree-mark))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1848
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1849
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1850 (defun* ebrowse-draw-tree-fn (&aux stack1 stack2 start)
49480
891beaa9ee33 (ebrowse-draw-tree-fn): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 47929
diff changeset
1851 "Display a single class and recursively its subclasses.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1852 This function may look weird, but this is faster than recursion."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1853 (setq stack1 (make-list (length ebrowse--tree) 0)
45742
70b4c348d174 (ebrowse-draw-tree-fn): Use copy-sequence.
Richard M. Stallman <rms@gnu.org>
parents: 43764
diff changeset
1854 stack2 (copy-sequence ebrowse--tree))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1855 (loop while stack2
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1856 as level = (pop stack1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1857 as tree = (pop stack2)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1858 as class = (ebrowse-ts-class tree) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1859 (let ((start-of-line (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1860 start-of-class-name end-of-class-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1861 ;; Insert mark
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1862 (insert (if (ebrowse-ts-mark tree) ">" " "))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1863
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1864 ;; Indent and insert class name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1865 (indent-to (+ (* level ebrowse--indentation)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1866 ebrowse-tree-left-margin))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1867 (setq start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1868 (insert (ebrowse-qualified-class-name class))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
1869
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1870 ;; If template class, add <>
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1871 (when (ebrowse-template-p class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1872 (insert "<>"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1873 (ebrowse-set-face start (point) (if (zerop level)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
1874 'ebrowse-root-class
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
1875 'ebrowse-default))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1876 (setf start-of-class-name start
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1877 end-of-class-name (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1878 ;; If filenames are to be displayed...
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1879 (when ebrowse--show-file-names-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1880 (indent-to ebrowse-source-file-column)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1881 (setq start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1882 (insert "("
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1883 (or (ebrowse-cs-file class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1884 "unknown")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1885 ")")
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
1886 (ebrowse-set-face start (point) 'ebrowse-file-name))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1887 (ebrowse-set-mark-props start-of-line (1+ start-of-line) tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1888 (add-text-properties
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1889 start-of-class-name end-of-class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1890 `(mouse-face highlight ebrowse-what class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1891 ebrowse-tree ,tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1892 help-echo "double-mouse-1: (un)expand tree; mouse-2: member functions, mouse-3: menu"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1893 (insert "\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1894 ;; Push subclasses, if any.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1895 (when (ebrowse-ts-subclasses tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1896 (setq stack2
45742
70b4c348d174 (ebrowse-draw-tree-fn): Use copy-sequence.
Richard M. Stallman <rms@gnu.org>
parents: 43764
diff changeset
1897 (nconc (copy-sequence (ebrowse-ts-subclasses tree)) stack2)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1898 stack1
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1899 (nconc (make-list (length (ebrowse-ts-subclasses tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1900 (1+ level)) stack1)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1901
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1902
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1903
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1904 ;;; Expanding/ collapsing tree branches
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1905
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1906 (defun ebrowse-expand-branch (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1907 "Expand a sub-tree that has been previously collapsed.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1908 With prefix ARG, expand all sub-trees."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1909 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1910 (if arg
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1911 (ebrowse-expand-all arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1912 (ebrowse-collapse-fn nil)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1913
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1914
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1915 (defun ebrowse-collapse-branch (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1916 "Fold (do no longer display) the subclasses of the current class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1917 \(The class cursor is on.) With prefix ARG, fold all trees in the buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1918 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1919 (if arg
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1920 (ebrowse-expand-all (not arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1921 (ebrowse-collapse-fn t)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1922
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1923
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1924 (defun ebrowse-expand-all (collapse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1925 "Expand or fold all trees in the buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1926 COLLAPSE non-nil means fold them."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1927 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1928 (let ((line-end (if collapse "^\n" "^\r"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1929 (insertion (if collapse "\r" "\n")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1930 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1931 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1932 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1933 (while (not (progn (skip-chars-forward line-end) (eobp)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1934 (when (or (not collapse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1935 (looking-at "\n "))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1936 (delete-char 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1937 (insert insertion))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1938 (when collapse
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1939 (skip-chars-forward "\n ")))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1940
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1941
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1942 (defun ebrowse-unhide-base-classes ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1943 "Unhide the line the cursor is on and all base classes."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1944 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1945 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1946 (let (indent last-indent)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1947 (skip-chars-backward "^\r\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1948 (when (not (looking-at "[\r\n][^ \t]"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1949 (skip-chars-forward "\r\n \t")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1950 (while (and (or (null last-indent) ;first time
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1951 (> indent 1)) ;not root class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1952 (re-search-backward "[\r\n][ \t]*" nil t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1953 (setf indent (- (match-end 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1954 (match-beginning 0)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1955 (when (or (null last-indent)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1956 (< indent last-indent))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1957 (setf last-indent indent)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1958 (when (looking-at "\r")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1959 (delete-char 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1960 (insert 10)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1961 (backward-char 1)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1962
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1963
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1964 (defun ebrowse-hide-line (collapse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1965 "Hide/show a single line in the tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1966 COLLAPSE non-nil means hide."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1967 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1968 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1969 (skip-chars-forward "^\r\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1970 (delete-char 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1971 (insert (if collapse 13 10)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1972
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1973
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1974 (defun ebrowse-collapse-fn (collapse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1975 "Collapse or expand a branch of the tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1976 COLLAPSE non-nil means collapse the branch."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1977 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1978 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1979 (beginning-of-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1980 (skip-chars-forward "> \t")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1981 (let ((indentation (current-column)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1982 (while (and (not (eobp))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1983 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1984 (skip-chars-forward "^\r\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1985 (goto-char (1+ (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1986 (skip-chars-forward "> \t")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1987 (> (current-column) indentation)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1988 (ebrowse-hide-line collapse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1989 (skip-chars-forward "^\r\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1990 (goto-char (1+ (point))))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1991
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1992
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1993 ;;; Electric tree selection
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1994
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1995 (defvar ebrowse-electric-list-mode-map ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1996 "Keymap used in electric Ebrowse buffer list window.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1997
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1998
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1999 (unless ebrowse-electric-list-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2000 (let ((map (make-keymap))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2001 (submap (make-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2002 (setq ebrowse-electric-list-mode-map map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2003 (fillarray (car (cdr map)) 'ebrowse-electric-list-undefined)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2004 (fillarray (car (cdr submap)) 'ebrowse-electric-list-undefined)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2005 (define-key map "\e" submap)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2006 (define-key map "\C-z" 'suspend-emacs)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2007 (define-key map "\C-h" 'Helper-help)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2008 (define-key map "?" 'Helper-describe-bindings)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2009 (define-key map "\C-c" nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2010 (define-key map "\C-c\C-c" 'ebrowse-electric-list-quit)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2011 (define-key map "q" 'ebrowse-electric-list-quit)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2012 (define-key map " " 'ebrowse-electric-list-select)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2013 (define-key map "\C-l" 'recenter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2014 (define-key map "\C-u" 'universal-argument)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2015 (define-key map "\C-p" 'previous-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2016 (define-key map "\C-n" 'next-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2017 (define-key map "p" 'previous-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2018 (define-key map "n" 'next-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2019 (define-key map "v" 'ebrowse-electric-view-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2020 (define-key map "\C-v" 'scroll-up)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2021 (define-key map "\ev" 'scroll-down)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2022 (define-key map "\e\C-v" 'scroll-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2023 (define-key map "\e>" 'end-of-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2024 (define-key map "\e<" 'beginning-of-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2025 (define-key map "\e>" 'end-of-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2026
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2027 (put 'ebrowse-electric-list-mode 'mode-class 'special)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2028 (put 'ebrowse-electric-list-undefined 'suppress-keymap t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2029
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2030
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2031 (defun ebrowse-electric-list-mode ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2032 "Mode for electric tree list mode."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2033 (kill-all-local-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2034 (use-local-map ebrowse-electric-list-mode-map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2035 (setq mode-name "Electric Position Menu"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2036 mode-line-buffer-identification "Electric Tree Menu")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2037 (when (memq 'mode-name mode-line-format)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2038 (setq mode-line-format (copy-sequence mode-line-format))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2039 (setcar (memq 'mode-name mode-line-format) "Tree Buffers"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2040 (make-local-variable 'Helper-return-blurb)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2041 (setq Helper-return-blurb "return to buffer editing"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2042 truncate-lines t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2043 buffer-read-only t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2044 major-mode 'ebrowse-electric-list-mode)
62772
f2892faa87d4 * progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
2045 (run-mode-hooks 'ebrowse-electric-list-mode-hook))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2046
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2047
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2048 (defun ebrowse-list-tree-buffers ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2049 "Display a list of all tree buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2050 (set-buffer (get-buffer-create "*Tree Buffers*"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2051 (setq buffer-read-only nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2052 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2053 (insert "Tree\n" "----\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2054 (dolist (buffer (ebrowse-known-class-trees-buffer-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2055 (insert (buffer-name buffer) "\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2056 (setq buffer-read-only t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2057
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2058
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2059 ;;;###autoload
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2060 (defun ebrowse-electric-choose-tree ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2061 "Return a buffer containing a tree or nil if no tree found or canceled."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2062 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2063 (unless (car (ebrowse-known-class-trees-buffer-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2064 (error "No tree buffers"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2065 (let (select buffer window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2066 (save-window-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2067 (save-window-excursion (ebrowse-list-tree-buffers))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2068 (setq window (Electric-pop-up-window "*Tree Buffers*")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2069 buffer (window-buffer window))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2070 (shrink-window-if-larger-than-buffer window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2071 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2072 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2073 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2074 (ebrowse-electric-list-mode)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2075 (setq select
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2076 (catch 'ebrowse-electric-list-select
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2077 (message "<<< Press Space to bury the list >>>")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2078 (let ((first (progn (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2079 (forward-line 2)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2080 (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2081 (last (progn (goto-char (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2082 (forward-line -1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2083 (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2084 (goal-column 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2085 (goto-char first)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2086 (Electric-command-loop 'ebrowse-electric-list-select
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2087 nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2088 t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2089 'ebrowse-electric-list-looper
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2090 (cons first last))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2091 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2092 (bury-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2093 (message nil)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2094 (when select
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2095 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2096 (setq select (ebrowse-electric-get-buffer select)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2097 (kill-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2098 select))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2099
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2100
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2101 (defun ebrowse-electric-list-looper (state condition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2102 "Prevent cursor from moving beyond the buffer end.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2103 Don't let it move into the title lines.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2104 See 'Electric-command-loop' for a description of STATE and CONDITION."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2105 (cond ((and condition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2106 (not (memq (car condition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2107 '(buffer-read-only end-of-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2108 beginning-of-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2109 (signal (car condition) (cdr condition)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2110 ((< (point) (car state))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2111 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2112 (forward-line 2))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2113 ((> (point) (cdr state))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2114 (goto-char (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2115 (forward-line -1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2116 (if (pos-visible-in-window-p (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2117 (recenter -1)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2118
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2119
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2120 (defun ebrowse-electric-list-undefined ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2121 "Function called for keys that are undefined."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2122 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2123 (message "Type C-h for help, ? for commands, q to quit, Space to select.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2124 (sit-for 4))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2125
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2126
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2127 (defun ebrowse-electric-list-quit ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2128 "Discard the buffer list."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2129 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2130 (throw 'ebrowse-electric-list-select nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2131
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2132
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2133 (defun ebrowse-electric-list-select ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2134 "Select a buffer from the buffer list."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2135 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2136 (throw 'ebrowse-electric-list-select (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2137
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2138
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2139 (defun ebrowse-electric-get-buffer (point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2140 "Get a buffer corresponding to the line POINT is in."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2141 (let ((index (- (count-lines (point-min) point) 2)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2142 (nth index (ebrowse-known-class-trees-buffer-list))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2143
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2144
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2145 ;;; View a buffer for a tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2146
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2147 (defun ebrowse-electric-view-buffer ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2148 "View buffer point is on."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2149 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2150 (let ((buffer (ebrowse-electric-get-buffer (point))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2151 (cond (buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2152 (view-buffer buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2153 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2154 (error "Buffer no longer exists")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2155
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2156
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2157 (defun ebrowse-choose-from-browser-buffers ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2158 "Read a browser buffer name from the minibuffer and return that buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2159 (let* ((buffers (ebrowse-known-class-trees-buffer-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2160 (if buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2161 (if (not (second buffers))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2162 (first buffers)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2163 (or (ebrowse-electric-choose-tree) (error "No tree buffer")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2164 (let* ((insert-default-directory t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2165 (file (read-file-name "Find tree: " nil nil t)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2166 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2167 (find-file file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2168 (find-buffer-visiting file)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2169
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2170
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2171 ;;; Member buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2172
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2173 (unless ebrowse-member-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2174 (let ((map (make-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2175 (setf ebrowse-member-mode-map map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2176 (suppress-keymap map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2177
30554
e56649429a8b (ebrowse-tree-mode-map): Use display-mouse-p instead of window-system.
Eli Zaretskii <eliz@gnu.org>
parents: 28816
diff changeset
2178 (when (display-mouse-p)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2179 (define-key map [down-mouse-3] 'ebrowse-member-mouse-3)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2180 (define-key map [mouse-2] 'ebrowse-member-mouse-2))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2181
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2182 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2183 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2184 (define-key map "C" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2185 (define-key map1 "b" 'ebrowse-switch-member-buffer-to-base-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2186 (define-key map1 "c" 'ebrowse-switch-member-buffer-to-any-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2187 (define-key map1 "d" 'ebrowse-switch-member-buffer-to-derived-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2188 (define-key map1 "n" 'ebrowse-switch-member-buffer-to-next-sibling-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2189 (define-key map1 "p" 'ebrowse-switch-member-buffer-to-previous-sibling-class))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2190
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2191 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2192 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2193 (define-key map "D" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2194 (define-key map1 "a" 'ebrowse-toggle-member-attributes-display)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2195 (define-key map1 "b" 'ebrowse-toggle-base-class-display)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2196 (define-key map1 "f" 'ebrowse-freeze-member-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2197 (define-key map1 "l" 'ebrowse-toggle-long-short-display)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2198 (define-key map1 "r" 'ebrowse-toggle-regexp-display)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2199 (define-key map1 "w" 'ebrowse-set-member-buffer-column-width))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2200
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2201 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2202 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2203 (define-key map "F" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2204 (let ((map2 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2205 (suppress-keymap map2 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2206 (define-key map1 "a" map2)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2207 (define-key map2 "i" 'ebrowse-toggle-private-member-filter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2208 (define-key map2 "o" 'ebrowse-toggle-protected-member-filter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2209 (define-key map2 "u" 'ebrowse-toggle-public-member-filter))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2210 (define-key map1 "c" 'ebrowse-toggle-const-member-filter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2211 (define-key map1 "i" 'ebrowse-toggle-inline-member-filter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2212 (define-key map1 "p" 'ebrowse-toggle-pure-member-filter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2213 (define-key map1 "r" 'ebrowse-remove-all-member-filters)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2214 (define-key map1 "v" 'ebrowse-toggle-virtual-member-filter))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2215
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2216 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2217 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2218 (define-key map "L" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2219 (define-key map1 "d" 'ebrowse-display-friends-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2220 (define-key map1 "f" 'ebrowse-display-function-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2221 (define-key map1 "F" 'ebrowse-display-static-functions-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2222 (define-key map1 "n" 'ebrowse-display-next-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2223 (define-key map1 "p" 'ebrowse-display-previous-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2224 (define-key map1 "t" 'ebrowse-display-types-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2225 (define-key map1 "v" 'ebrowse-display-variables-member-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2226 (define-key map1 "V" 'ebrowse-display-static-variables-member-list))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2227
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2228 (let ((map1 (make-sparse-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2229 (suppress-keymap map1 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2230 (define-key map "G" map1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2231 (define-key map1 "m" 'ebrowse-goto-visible-member/all-member-lists)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2232 (define-key map1 "n" 'ebrowse-repeat-member-search)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2233 (define-key map1 "v" 'ebrowse-goto-visible-member))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2234
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2235 (define-key map "f" 'ebrowse-find-member-declaration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2236 (define-key map "m" 'ebrowse-switch-to-next-member-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2237 (define-key map "q" 'bury-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2238 (define-key map "t" 'ebrowse-show-displayed-class-in-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2239 (define-key map "v" 'ebrowse-view-member-declaration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2240 (define-key map " " 'ebrowse-view-member-definition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2241 (define-key map "?" 'describe-mode)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2242 (define-key map "\C-i" 'ebrowse-pop-from-member-to-tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2243 (define-key map "\C-l" 'ebrowse-redisplay-member-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2244 (define-key map "\C-m" 'ebrowse-find-member-definition)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2245
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2246
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2247
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2248 ;;; Member mode
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2249
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
2250 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2251 (defun ebrowse-member-mode ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2252 "Major mode for Ebrowse member buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2253
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2254 \\{ebrowse-member-mode-map}"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2255 (kill-all-local-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2256 (use-local-map ebrowse-member-mode-map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2257 (setq major-mode 'ebrowse-member-mode)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2258 (mapcar 'make-local-variable
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2259 '(ebrowse--decl-column ;display column
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2260 ebrowse--n-columns ;number of short columns
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2261 ebrowse--column-width ;width of columns above
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2262 ebrowse--show-inherited-flag ;include inherited members?
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2263 ebrowse--filters ;public, protected, private
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2264 ebrowse--accessor ;vars, functions, friends
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2265 ebrowse--displayed-class ;class displayed
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2266 ebrowse--long-display-flag ;display with regexps?
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2267 ebrowse--source-regexp-flag ;show source regexp?
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2268 ebrowse--attributes-flag ;show `virtual' and `inline'
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2269 ebrowse--member-list ;list of members displayed
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2270 ebrowse--tree ;the class tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2271 ebrowse--member-mode-strings ;part of mode line
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2272 ebrowse--tags-file-name ;
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2273 ebrowse--header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2274 ebrowse--tree-obarray
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2275 ebrowse--virtual-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2276 ebrowse--inline-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2277 ebrowse--const-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2278 ebrowse--pure-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2279 ebrowse--frozen-flag)) ;buffer not automagically reused
28548
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
2280 (setq mode-name "Ebrowse-Members"
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
2281 mode-line-buffer-identification
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
2282 (propertized-buffer-identification "C++ Members")
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2283 buffer-read-only t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2284 ebrowse--long-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2285 ebrowse--attributes-flag t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2286 ebrowse--show-inherited-flag t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2287 ebrowse--source-regexp-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2288 ebrowse--filters [0 1 2]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2289 ebrowse--decl-column ebrowse-default-declaration-column
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2290 ebrowse--column-width ebrowse-default-column-width
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2291 ebrowse--virtual-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2292 ebrowse--inline-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2293 ebrowse--const-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2294 ebrowse--pure-display-flag nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2295 (modify-syntax-entry ?_ (char-to-string (char-syntax ?a)))
62772
f2892faa87d4 * progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
2296 (run-mode-hooks 'ebrowse-member-mode-hook))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2297
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2298
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2299
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2300 ;;; Member mode mode line
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2301
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2302 (defsubst ebrowse-class-name-displayed-in-member-buffer ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2303 "Return the name of the class displayed in the member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2304 (ebrowse-cs-name (ebrowse-ts-class ebrowse--displayed-class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2305
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2306
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2307 (defsubst ebrowse-member-list-name ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2308 "Return a string describing what is displayed in the member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2309 (get ebrowse--accessor (if (ebrowse-globals-tree-p ebrowse--displayed-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2310 'ebrowse-global-title
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2311 'ebrowse-title)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2312
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2313
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2314 (defun ebrowse-update-member-buffer-mode-line ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2315 "Update the mode line of member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2316 (let* ((name (when ebrowse--frozen-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2317 (concat (ebrowse-class-name-displayed-in-member-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2318 " ")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2319 (ident (concat name (ebrowse-member-list-name))))
28548
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
2320 (setq mode-line-buffer-identification
19c5020c0db3 (ebrowse-tree-mode): Use
Gerd Moellmann <gerd@gnu.org>
parents: 28541
diff changeset
2321 (propertized-buffer-identification ident))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2322 (ebrowse-rename-buffer (if name ident ebrowse-member-buffer-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2323 (force-mode-line-update)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2324
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2325
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2326 ;;; Misc member buffer commands
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2327
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2328 (defun ebrowse-freeze-member-buffer ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2329 "Toggle frozen status of current buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2330 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2331 (setq ebrowse--frozen-flag (not ebrowse--frozen-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2332 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2333
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2334
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2335 (defun ebrowse-show-displayed-class-in-tree (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2336 "Show the currently displayed class in the tree window.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2337 With prefix ARG, switch to the tree buffer else pop to it."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2338 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2339 (let ((class-name (ebrowse-class-name-displayed-in-member-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2340 (when (ebrowse-pop-from-member-to-tree-buffer arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2341 (ebrowse-read-class-name-and-go class-name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2342
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2343
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2344 (defun ebrowse-set-member-buffer-column-width ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2345 "Set the column width of the member display.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2346 The new width is read from the minibuffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2347 (interactive)
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62074
diff changeset
2348 (let ((width (string-to-number
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2349 (read-from-minibuffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2350 (concat "Column width ("
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2351 (int-to-string (if ebrowse--long-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2352 ebrowse--decl-column
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2353 ebrowse--column-width))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2354 "): ")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2355 (when (plusp width)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2356 (if ebrowse--long-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2357 (setq ebrowse--decl-column width)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2358 (setq ebrowse--column-width width))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2359 (ebrowse-redisplay-member-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2360
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2361
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2362 (defun ebrowse-pop-from-member-to-tree-buffer (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2363 "Pop from a member buffer to the matching tree buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2364 Switch to the buffer if prefix ARG. If no tree buffer exists,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2365 make one."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2366 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2367 (let ((buf (or (get-buffer (ebrowse-frozen-tree-buffer-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2368 ebrowse--tags-file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2369 (get-buffer ebrowse-tree-buffer-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2370 (ebrowse-create-tree-buffer ebrowse--tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2371 ebrowse--tags-file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2372 ebrowse--header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2373 ebrowse--tree-obarray
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2374 'pop))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2375 (and buf
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2376 (funcall (if arg 'switch-to-buffer 'pop-to-buffer) buf))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2377 buf))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2378
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2379
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2380
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2381 ;;; Switching between member lists
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2382
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2383 (defun ebrowse-display-member-list-for-accessor (accessor)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2384 "Switch the member buffer to display the member list for ACCESSOR."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2385 (setf ebrowse--accessor accessor
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2386 ebrowse--member-list (funcall accessor ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2387 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2388
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2389
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2390 (defun ebrowse-cyclic-display-next/previous-member-list (incr)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2391 "Switch buffer to INCR'th next/previous list of members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2392 (let ((index (ebrowse-position ebrowse--accessor
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2393 ebrowse-member-list-accessors)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2394 (setf ebrowse--accessor
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2395 (cond ((plusp incr)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2396 (or (nth (1+ index)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2397 ebrowse-member-list-accessors)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2398 (first ebrowse-member-list-accessors)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2399 ((minusp incr)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2400 (or (and (>= (decf index) 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2401 (nth index
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2402 ebrowse-member-list-accessors))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2403 (first (last ebrowse-member-list-accessors))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2404 (ebrowse-display-member-list-for-accessor ebrowse--accessor)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2405
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2406
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2407 (defun ebrowse-display-next-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2408 "Switch buffer to next member list."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2409 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2410 (ebrowse-cyclic-display-next/previous-member-list 1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2411
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2412
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2413 (defun ebrowse-display-previous-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2414 "Switch buffer to previous member list."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2415 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2416 (ebrowse-cyclic-display-next/previous-member-list -1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2417
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2418
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2419 (defun ebrowse-display-function-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2420 "Display the list of member functions."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2421 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2422 (ebrowse-display-member-list-for-accessor 'ebrowse-ts-member-functions))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2423
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2424
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2425 (defun ebrowse-display-variables-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2426 "Display the list of member variables."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2427 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2428 (ebrowse-display-member-list-for-accessor 'ebrowse-ts-member-variables))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2429
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2430
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2431 (defun ebrowse-display-static-variables-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2432 "Display the list of static member variables."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2433 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2434 (ebrowse-display-member-list-for-accessor 'ebrowse-ts-static-variables))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2435
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2436
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2437 (defun ebrowse-display-static-functions-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2438 "Display the list of static member functions."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2439 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2440 (ebrowse-display-member-list-for-accessor 'ebrowse-ts-static-functions))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2441
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2442
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2443 (defun ebrowse-display-friends-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2444 "Display the list of friends."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2445 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2446 (ebrowse-display-member-list-for-accessor 'ebrowse-ts-friends))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2447
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2448
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2449 (defun ebrowse-display-types-member-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2450 "Display the list of types."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2451 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2452 (ebrowse-display-member-list-for-accessor 'ebrowse-ts-types))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2453
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2454
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2455
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2456 ;;; Filters and other display attributes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2457
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2458 (defun ebrowse-toggle-member-attributes-display ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2459 "Toggle display of `virtual', `inline', `const' etc."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2460 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2461 (setq ebrowse--attributes-flag (not ebrowse--attributes-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2462 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2463
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2464
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2465 (defun ebrowse-toggle-base-class-display ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2466 "Toggle the display of members inherited from base classes."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2467 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2468 (setf ebrowse--show-inherited-flag (not ebrowse--show-inherited-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2469 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2470
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2471
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2472 (defun ebrowse-toggle-pure-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2473 "Toggle display of pure virtual members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2474 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2475 (setf ebrowse--pure-display-flag (not ebrowse--pure-display-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2476 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2477
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2478
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2479 (defun ebrowse-toggle-const-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2480 "Toggle display of const members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2481 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2482 (setf ebrowse--const-display-flag (not ebrowse--const-display-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2483 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2484
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2485
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2486 (defun ebrowse-toggle-inline-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2487 "Toggle display of inline members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2488 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2489 (setf ebrowse--inline-display-flag (not ebrowse--inline-display-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2490 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2491
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2492
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2493 (defun ebrowse-toggle-virtual-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2494 "Toggle display of virtual members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2495 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2496 (setf ebrowse--virtual-display-flag (not ebrowse--virtual-display-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2497 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2498
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2499
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2500 (defun ebrowse-remove-all-member-filters ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2501 "Remove all filters."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2502 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2503 (dotimes (i 3)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2504 (aset ebrowse--filters i i))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2505 (setq ebrowse--pure-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2506 ebrowse--const-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2507 ebrowse--virtual-display-flag nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2508 ebrowse--inline-display-flag nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2509 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2510
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2511
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2512 (defun ebrowse-toggle-public-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2513 "Toggle visibility of public members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2514 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2515 (ebrowse-set-member-access-visibility 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2516 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2517
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2518
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2519 (defun ebrowse-toggle-protected-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2520 "Toggle visibility of protected members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2521 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2522 (ebrowse-set-member-access-visibility 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2523 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2524
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2525
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2526 (defun ebrowse-toggle-private-member-filter ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2527 "Toggle visibility of private members."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2528 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2529 (ebrowse-set-member-access-visibility 2)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2530 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2531
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2532
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2533 (defun ebrowse-set-member-access-visibility (vis)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2534 (setf (aref ebrowse--filters vis)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2535 (if (aref ebrowse--filters vis) nil vis)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2536
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2537
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2538 (defun ebrowse-toggle-long-short-display ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2539 "Toggle between long and short display form of member buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2540 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2541 (setf ebrowse--long-display-flag (not ebrowse--long-display-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2542 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2543
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2544
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2545 (defun ebrowse-toggle-regexp-display ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2546 "Toggle declaration/definition regular expression display.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2547 Used in member buffers showing the long display form."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2548 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2549 (setf ebrowse--source-regexp-flag (not ebrowse--source-regexp-flag))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2550 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2551
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2552
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2553
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2554 ;;; Viewing/finding members
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2555
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2556 (defun ebrowse-find-member-definition (&optional prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2557 "Find the file containing a member definition.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2558 With PREFIX 4. find file in another window, with prefix 5
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2559 find file in another frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2560 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2561 (ebrowse-view/find-member-declaration/definition prefix nil t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2562
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2563
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2564 (defun ebrowse-view-member-definition (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2565 "View the file containing a member definition.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2566 With PREFIX 4. find file in another window, with prefix 5
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2567 find file in another frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2568 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2569 (ebrowse-view/find-member-declaration/definition prefix t t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2570
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2571
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2572 (defun ebrowse-find-member-declaration (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2573 "Find the file containing a member's declaration.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2574 With PREFIX 4. find file in another window, with prefix 5
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2575 find file in another frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2576 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2577 (ebrowse-view/find-member-declaration/definition prefix nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2578
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2579
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2580 (defun ebrowse-view-member-declaration (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2581 "View the file containing a member's declaration.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2582 With PREFIX 4. find file in another window, with prefix 5
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2583 find file in another frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2584 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2585 (ebrowse-view/find-member-declaration/definition prefix t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2586
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2587
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2588 (defun* ebrowse-view/find-member-declaration/definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2589 (prefix view &optional definition info header tags-file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2590 "Find or view a member declaration or definition.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2591 With PREFIX 4. find file in another window, with prefix 5
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2592 find file in another frame.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2593 DEFINITION non-nil means find the definition, otherwise find the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2594 declaration.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2595 INFO is a list (TREE ACCESSOR MEMBER) describing the member to
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2596 search.
28816
03f206c5d91b Change file name `EBROWSE' to `BROWSE'.
Gerd Moellmann <gerd@gnu.org>
parents: 28705
diff changeset
2597 TAGS-FILE-NAME is the file name of the BROWSE file."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2598 (unless header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2599 (setq header ebrowse--header))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2600 (unless tags-file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2601 (setq tags-file-name ebrowse--tags-file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2602 (let (tree member accessor file on-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2603 (where (if (= prefix 4) 'other-window
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2604 (if (= prefix 5) 'other-frame 'this-window))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2605 ;; If not given as parameters, get the necessary information
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2606 ;; out of the member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2607 (if info
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2608 (setq tree (first info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2609 accessor (second info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2610 member (third info))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2611 (multiple-value-setq (tree member on-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2612 (ebrowse-member-info-from-point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2613 (setq accessor ebrowse--accessor))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2614 ;; View/find class if on a line containing a class name.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2615 (when on-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2616 (return-from ebrowse-view/find-member-declaration/definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2617 (ebrowse-view/find-file-and-search-pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2618 (ebrowse-ts-class tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2619 (list ebrowse--header (ebrowse-ts-class tree) nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2620 (ebrowse-cs-file (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2621 tags-file-name view where)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2622 ;; For some member lists, it doesn't make sense to search for
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2623 ;; a definition. If this is requested, silently search for the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2624 ;; declaration.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2625 (when (and definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2626 (eq accessor 'ebrowse-ts-member-variables))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2627 (setq definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2628 ;; Construct a suitable `browse' struct for definitions.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2629 (when definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2630 (setf member (make-ebrowse-ms
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2631 :name (ebrowse-ms-name member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2632 :file (ebrowse-ms-definition-file member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2633 :pattern (ebrowse-ms-definition-pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2634 member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2635 :flags (ebrowse-ms-flags member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2636 :point (ebrowse-ms-definition-point
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2637 member))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2638 ;; When no file information in member, use that of the class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2639 (setf file (or (ebrowse-ms-file member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2640 (if definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2641 (ebrowse-cs-source-file (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2642 (ebrowse-cs-file (ebrowse-ts-class tree)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2643 ;; When we have no regular expressions in the database the only
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2644 ;; indication that the parser hasn't seen a definition/declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2645 ;; is that the search start point will be zero.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2646 (if (or (null file) (zerop (ebrowse-ms-point member)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2647 (if (y-or-n-p (concat "No information about "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2648 (if definition "definition" "declaration")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2649 ". Search for "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2650 (if definition "declaration" "definition")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2651 " of `"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2652 (ebrowse-ms-name member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2653 "'? "))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2654 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2655 (message nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2656 ;; Recurse with new info.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2657 (ebrowse-view/find-member-declaration/definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2658 prefix view (not definition) info header tags-file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2659 (error "Search canceled"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2660 ;; Find that thing.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2661 (ebrowse-view/find-file-and-search-pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2662 (make-ebrowse-bs :name (ebrowse-ms-name member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2663 :pattern (ebrowse-ms-pattern member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2664 :file (ebrowse-ms-file member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2665 :flags (ebrowse-ms-flags member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2666 :point (ebrowse-ms-point member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2667 (list header member accessor)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2668 file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2669 tags-file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2670 view
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2671 where))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2672
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2673
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2674
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2675 ;;; Drawing the member buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2676
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2677 (defun ebrowse-redisplay-member-buffer ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2678 "Force buffer redisplay."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2679 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2680 (let ((display-fn (if ebrowse--long-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2681 'ebrowse-draw-member-long-fn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2682 'ebrowse-draw-member-short-fn)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2683 (ebrowse-output
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2684 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2685 ;; Show this class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2686 (ebrowse-draw-member-buffer-class-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2687 (funcall display-fn ebrowse--member-list ebrowse--displayed-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2688 ;; Show inherited members if corresponding switch is on
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2689 (when ebrowse--show-inherited-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2690 (dolist (super (ebrowse-base-classes ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2691 (goto-char (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2692 (insert (if (bolp) "\n\n" "\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2693 (ebrowse-draw-member-buffer-class-line super)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2694 (funcall display-fn (funcall ebrowse--accessor super) super)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2695 (ebrowse-update-member-buffer-mode-line))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2696
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2697
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2698 (defun ebrowse-draw-member-buffer-class-line (&optional class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2699 "Display the title line for a class section in the member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2700 CLASS non-nil means display that class' title. Otherwise use
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2701 the class cursor is on."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2702 (let ((start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2703 (tree (or class ebrowse--displayed-class))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2704 class-name-start
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2705 class-name-end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2706 (insert "class ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2707 (setq class-name-start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2708 (insert (ebrowse-qualified-class-name (ebrowse-ts-class tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2709 (when (ebrowse-template-p (ebrowse-ts-class tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2710 (insert "<>"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2711 (setq class-name-end (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2712 (insert ":\n\n")
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
2713 (ebrowse-set-face start (point) 'ebrowse-member-class)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2714 (add-text-properties
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2715 class-name-start class-name-end
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2716 '(ebrowse-what class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2717 mouse-face highlight
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2718 help-echo "mouse-3: menu"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2719 (put-text-property start class-name-end 'ebrowse-tree tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2720
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2721
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2722 (defun ebrowse-display-member-buffer (list &optional stand-alone class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2723 "Start point for member buffer creation.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2724 LIST is the member list to display. STAND-ALONE non-nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2725 means the member buffer is standalone. CLASS is its class."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2726 (let* ((classes ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2727 (tree ebrowse--tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2728 (tags-file-name ebrowse--tags-file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2729 (header ebrowse--header)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2730 temp-buffer-setup-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2731 (temp-buffer (get-buffer ebrowse-member-buffer-name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2732 ;; Get the class description from the name the cursor
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2733 ;; is on if not specified as an argument.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2734 (unless class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2735 (setq class (ebrowse-tree-at-point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2736 (with-output-to-temp-buffer ebrowse-member-buffer-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2737 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2738 (set-buffer standard-output)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2739 ;; If new buffer, set the mode and initial values of locals
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2740 (unless temp-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2741 (ebrowse-member-mode))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2742 ;; Set local variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2743 (setq ebrowse--member-list (funcall list class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2744 ebrowse--displayed-class class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2745 ebrowse--accessor list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2746 ebrowse--tree-obarray classes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2747 ebrowse--frozen-flag stand-alone
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2748 ebrowse--tags-file-name tags-file-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2749 ebrowse--header header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2750 ebrowse--tree tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2751 buffer-read-only t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2752 (ebrowse-redisplay-member-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2753 (current-buffer)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2754
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2755
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2756 (defun ebrowse-member-display-p (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2757 "Return t if MEMBER must be displayed under the current filter settings."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2758 (if (and (aref ebrowse--filters (ebrowse-ms-visibility member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2759 (or (null ebrowse--const-display-flag)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2760 (ebrowse-const-p member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2761 (or (null ebrowse--inline-display-flag)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2762 (ebrowse-inline-p member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2763 (or (null ebrowse--pure-display-flag)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2764 (ebrowse-bs-p member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2765 (or (null ebrowse--virtual-display-flag)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2766 (ebrowse-virtual-p member)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2767 member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2768
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2769
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2770 (defun ebrowse-draw-member-attributes (member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2771 "Insert a string for the attributes of MEMBER."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2772 (insert (if (ebrowse-template-p member) "T" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2773 (if (ebrowse-extern-c-p member) "C" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2774 (if (ebrowse-virtual-p member) "v" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2775 (if (ebrowse-inline-p member) "i" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2776 (if (ebrowse-const-p member) "c" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2777 (if (ebrowse-pure-virtual-p member) "0" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2778 (if (ebrowse-mutable-p member) "m" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2779 (if (ebrowse-explicit-p member) "e" "-")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2780 (if (ebrowse-throw-list-p member) "t" "-")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2781
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2782
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2783 (defun ebrowse-draw-member-regexp (member-struc)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2784 "Insert a string for the regular expression matching MEMBER-STRUC."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2785 (let ((pattern (if ebrowse--source-regexp-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2786 (ebrowse-ms-definition-pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2787 member-struc)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2788 (ebrowse-ms-pattern member-struc))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2789 (cond ((stringp pattern)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2790 (insert (ebrowse-trim-string pattern) "...\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2791 (beginning-of-line 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2792 (move-to-column (+ 4 ebrowse--decl-column))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2793 (while (re-search-forward "[ \t]+" nil t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2794 (delete-region (match-beginning 0) (match-end 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2795 (insert " "))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2796 (beginning-of-line 2))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2797 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2798 (insert "[not recorded or unknown]\n")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2799
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2800
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2801 (defun ebrowse-draw-member-long-fn (member-list tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2802 "Display member buffer for MEMBER-LIST in long form.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2803 TREE is the class tree of MEMBER-LIST."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2804 (dolist (member-struc (mapcar 'ebrowse-member-display-p member-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2805 (when member-struc
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2806 (let ((name (ebrowse-ms-name member-struc))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2807 (start (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2808 ;; Insert member name truncated to the right length
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2809 (insert (substring name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2810 0
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2811 (min (length name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2812 (1- ebrowse--decl-column))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2813 (add-text-properties
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2814 start (point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2815 `(mouse-face highlight ebrowse-what member-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2816 ebrowse-member ,member-struc
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2817 ebrowse-tree ,tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2818 help-echo "mouse-2: view definition; mouse-3: menu"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2819 ;; Display virtual, inline, and const status
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2820 (setf start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2821 (indent-to ebrowse--decl-column)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2822 (put-text-property start (point) 'mouse-face nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2823 (when ebrowse--attributes-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2824 (let ((start (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2825 (insert "<")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2826 (ebrowse-draw-member-attributes member-struc)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2827 (insert ">")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2828 (ebrowse-set-face start (point)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
2829 'ebrowse-member-attribute)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2830 (insert " ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2831 (ebrowse-draw-member-regexp member-struc))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2832 (insert "\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2833 (goto-char (point-min)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2834
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2835
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2836 (defun ebrowse-draw-member-short-fn (member-list tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2837 "Display MEMBER-LIST in short form.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2838 TREE is the class tree in which the members are found."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2839 (let ((i 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2840 (column-width (+ ebrowse--column-width
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2841 (if ebrowse--attributes-flag 12 0))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2842 ;; Get the number of columns to draw.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2843 (setq ebrowse--n-columns
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2844 (max 1 (/ (ebrowse-width-of-drawable-area) column-width)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2845 (dolist (member (mapcar #'ebrowse-member-display-p member-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2846 (when member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2847 (let ((name (ebrowse-ms-name member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2848 start-of-entry
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2849 (start-of-column (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2850 start-of-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2851 (indent-to (* i column-width))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2852 (put-text-property start-of-column (point) 'mouse-face nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2853 (setq start-of-entry (point))
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
2854 ;; Show various attributes
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2855 (when ebrowse--attributes-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2856 (insert "<")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2857 (ebrowse-draw-member-attributes member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2858 (insert "> ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2859 (ebrowse-set-face start-of-entry (point)
63448
b9811baefe1a Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Miles Bader <miles@gnu.org>
parents: 62772
diff changeset
2860 'ebrowse-member-attribute))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2861 ;; insert member name truncated to column width
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2862 (setq start-of-name (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2863 (insert (substring name 0
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2864 (min (length name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2865 (1- ebrowse--column-width))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2866 ;; set text properties
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2867 (add-text-properties
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2868 start-of-name (point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2869 `(ebrowse-what member-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2870 ebrowse-member ,member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2871 mouse-face highlight
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2872 ebrowse-tree ,tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2873 help-echo "mouse-2: view definition; mouse-3: menu"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2874 (incf i)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2875 (when (>= i ebrowse--n-columns)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2876 (setf i 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2877 (insert "\n")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2878 (when (plusp i)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2879 (insert "\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2880 (goto-char (point-min))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2881
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2882
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2883
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2884 ;;; Killing members from tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2885
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2886 (defun ebrowse-member-info-from-point ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2887 "Ger information about the member at point.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2888 The result has the form (TREE MEMBER NULL-P). TREE is the tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2889 we're in, MEMBER is the member we're on. NULL-P is t if MEMBER
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2890 is nil."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2891 (let ((tree (or (get-text-property (point) 'ebrowse-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2892 (error "No information at point")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2893 (member (get-text-property (point) 'ebrowse-member)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2894 (list tree member (null member))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2895
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2896
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2897
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2898 ;;; Switching member buffer to display a selected member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2899
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2900 (defun ebrowse-goto-visible-member/all-member-lists (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2901 "Position cursor on a member read from the minibuffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2902 With PREFIX, search all members in the tree. Otherwise consider
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2903 only members visible in the buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2904 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2905 (ebrowse-ignoring-completion-case
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2906 (let* ((completion-list (ebrowse-name/accessor-alist-for-class-members))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2907 (member (completing-read "Goto member: " completion-list nil t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2908 (accessor (cdr (assoc member completion-list))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2909 (unless accessor
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2910 (error "`%s' not found" member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2911 (unless (eq accessor ebrowse--accessor)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2912 (setf ebrowse--accessor accessor
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2913 ebrowse--member-list (funcall accessor ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2914 (ebrowse-redisplay-member-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2915 (ebrowse-move-point-to-member member))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2916
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2917
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2918 (defun ebrowse-goto-visible-member (repeat)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2919 "Position point on a member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2920 Read the member's name from the minibuffer. Consider only members
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2921 visible in the member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2922 REPEAT non-nil means repeat the search that number of times."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2923 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2924 (ebrowse-ignoring-completion-case
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2925 ;; Read member name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2926 (let* ((completion-list (ebrowse-name/accessor-alist-for-visible-members))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2927 (member (completing-read "Goto member: " completion-list nil t)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2928 (ebrowse-move-point-to-member member repeat))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2929
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2930
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2931
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2932 ;;; Searching a member in the member buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2933
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2934 (defun ebrowse-repeat-member-search (repeat)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2935 "Repeat the last regular expression search.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2936 REPEAT, if specified, says repeat the search REPEAT times."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2937 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2938 (unless ebrowse--last-regexp
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2939 (error "No regular expression remembered"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2940 ;; Skip over word the point is on
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2941 (skip-chars-forward "^ \t\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2942 ;; Search for regexp from point
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2943 (if (re-search-forward ebrowse--last-regexp nil t repeat)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2944 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2945 (goto-char (match-beginning 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2946 (skip-chars-forward " \t\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2947 ;; If not found above, repeat search from buffer start
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2948 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2949 (if (re-search-forward ebrowse--last-regexp nil t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2950 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2951 (goto-char (match-beginning 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2952 (skip-chars-forward " \t\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2953 (error "Not found"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2954
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2955
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2956 (defun* ebrowse-move-point-to-member (name &optional count &aux member)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2957 "Set point on member NAME in the member buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2958 COUNT, if specified, says search the COUNT'th member with the same name."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2959 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2960 (widen)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2961 (setq member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2962 (substring name 0 (min (length name) (1- ebrowse--column-width)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2963 ebrowse--last-regexp
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2964 (concat "[ \t\n]" (regexp-quote member) "[ \n\t]"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2965 (if (re-search-forward ebrowse--last-regexp nil t count)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2966 (goto-char (1+ (match-beginning 0)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2967 (error "Not found")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2968
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2969
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2970
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2971 ;;; Switching member buffer to another class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2972
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2973 (defun ebrowse-switch-member-buffer-to-other-class (title compl-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2974 "Switch member buffer to a class read from the minibuffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2975 Use TITLE as minibuffer prompt.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2976 COMPL-LIST is a completion list to use."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2977 (let* ((initial (unless (second compl-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2978 (first (first compl-list))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2979 (class (or (ebrowse-completing-read-value title compl-list initial)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2980 (error "Not found"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2981 (setf ebrowse--displayed-class class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2982 ebrowse--member-list (funcall ebrowse--accessor ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2983 (ebrowse-redisplay-member-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2984
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2985
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2986 (defun ebrowse-switch-member-buffer-to-any-class ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2987 "Switch member buffer to a class read from the minibuffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2988 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2989 (ebrowse-switch-member-buffer-to-other-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2990 "Goto class: " (ebrowse-tree-obarray-as-alist)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2991
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2992
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2993 (defun ebrowse-switch-member-buffer-to-base-class (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2994 "Switch buffer to ARG'th base class."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2995 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2996 (let ((supers (or (ebrowse-direct-base-classes ebrowse--displayed-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2997 (error "No base classes"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2998 (if (and arg (second supers))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2999 (let ((alist (loop for s in supers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3000 collect (cons (ebrowse-qualified-class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3001 (ebrowse-ts-class s))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3002 s))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3003 (ebrowse-switch-member-buffer-to-other-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3004 "Goto base class: " alist))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3005 (setq ebrowse--displayed-class (first supers)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3006 ebrowse--member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3007 (funcall ebrowse--accessor ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3008 (ebrowse-redisplay-member-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3009
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3010 (defun ebrowse-switch-member-buffer-to-next-sibling-class (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3011 "Move to ARG'th next sibling."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3012 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3013 (ebrowse-switch-member-buffer-to-sibling-class arg))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3014
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3015
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3016 (defun ebrowse-switch-member-buffer-to-previous-sibling-class (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3017 "Move to ARG'th previous sibling."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3018 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3019 (ebrowse-switch-member-buffer-to-sibling-class (- arg)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3020
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3021
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3022 (defun ebrowse-switch-member-buffer-to-sibling-class (inc)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3023 "Switch member display to nth sibling class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3024 Prefix arg INC specifies which one."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3025 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3026 (let ((containing-list ebrowse--tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3027 index cls
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3028 (supers (ebrowse-direct-base-classes ebrowse--displayed-class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3029 (flet ((trees-alist (trees)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3030 (loop for tr in trees
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3031 collect (cons (ebrowse-cs-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3032 (ebrowse-ts-class tr)) tr))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3033 (when supers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3034 (let ((tree (if (second supers)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3035 (ebrowse-completing-read-value
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3036 "Relative to base class: "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3037 (trees-alist supers) nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3038 (first supers))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3039 (unless tree (error "Not found"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3040 (setq containing-list (ebrowse-ts-subclasses tree)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3041 (setq index (+ inc (ebrowse-position ebrowse--displayed-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3042 containing-list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3043 (cond ((minusp index) (message "No previous class"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3044 ((null (nth index containing-list)) (message "No next class")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3045 (setq index (max 0 (min index (1- (length containing-list)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3046 (setq cls (nth index containing-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3047 (setf ebrowse--displayed-class cls
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3048 ebrowse--member-list (funcall ebrowse--accessor cls))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3049 (ebrowse-redisplay-member-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3050
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3051
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3052 (defun ebrowse-switch-member-buffer-to-derived-class (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3053 "Switch member display to nth derived class.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3054 Prefix arg ARG says which class should be displayed. Default is
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3055 the first derived class."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3056 (interactive "P")
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3057 (flet ((ebrowse-tree-obarray-as-alist ()
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3058 (loop for s in (ebrowse-ts-subclasses
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3059 ebrowse--displayed-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3060 collect (cons (ebrowse-cs-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3061 (ebrowse-ts-class s)) s))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3062 (let ((subs (or (ebrowse-ts-subclasses ebrowse--displayed-class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3063 (error "No derived classes"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3064 (if (and arg (second subs))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3065 (ebrowse-switch-member-buffer-to-other-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3066 "Goto derived class: " (ebrowse-tree-obarray-as-alist))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3067 (setq ebrowse--displayed-class (first subs)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3068 ebrowse--member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3069 (funcall ebrowse--accessor ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3070 (ebrowse-redisplay-member-buffer)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3071
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3072
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3073
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3074 ;;; Member buffer mouse functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3075
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3076 (defun ebrowse-displaying-functions ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3077 (eq ebrowse--accessor 'ebrowse-ts-member-functions))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3078 (defun ebrowse-displaying-variables ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3079 (eq ebrowse--accessor 'ebrowse-ts-member-variables))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3080 (defun ebrowse-displaying-static-functions ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3081 )
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3082 (defun ebrowse-displaying-static-variables ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3083 )
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3084 (defun ebrowse-displaying-types ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3085 (eq ebrowse--accessor 'ebrowse-ts-types))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3086 (defun ebrowse-displaying-friends ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3087 (eq ebrowse--accessor 'ebrowse-ts-friends))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3088
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3089 (easy-menu-define
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3090 ebrowse-member-buffer-object-menu ebrowse-member-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3091 "Object menu for the member buffer itself."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3092 '("Members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3093 ("Members List"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3094 ["Functions" ebrowse-display-function-member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3095 :help "Show the list of member functions"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3096 :style radio
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3097 :selected (eq ebrowse--accessor 'ebrowse-ts-member-functions)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3098 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3099 ["Variables" ebrowse-display-variables-member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3100 :help "Show the list of member variables"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3101 :style radio
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3102 :selected (eq ebrowse--accessor 'ebrowse-ts-member-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3103 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3104 ["Static Functions" ebrowse-display-static-functions-member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3105 :help "Show the list of static member functions"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3106 :style radio
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3107 :selected (eq ebrowse--accessor 'ebrowse-ts-static-functions)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3108 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3109 ["Static Variables" ebrowse-display-static-variables-member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3110 :help "Show the list of static member variables"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3111 :style radio
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3112 :selected (eq ebrowse--accessor 'ebrowse-ts-static-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3113 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3114 ["Types" ebrowse-display-types-member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3115 :help "Show the list of nested types"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3116 :style radio
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3117 :selected (eq ebrowse--accessor 'ebrowse-ts-types)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3118 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3119 ["Friends/Defines" ebrowse-display-friends-member-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3120 :help "Show the list of friends or defines"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3121 :style radio
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3122 :selected (eq ebrowse--accessor 'ebrowse-ts-friends)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3123 :active t])
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3124 ("Class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3125 ["Up" ebrowse-switch-member-buffer-to-base-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3126 :help "Show the base class of this class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3127 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3128 ["Down" ebrowse-switch-member-buffer-to-derived-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3129 :help "Show a derived class class of this class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3130 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3131 ["Next Sibling" ebrowse-switch-member-buffer-to-next-sibling-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3132 :help "Show the next sibling class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3133 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3134 ["Previous Sibling" ebrowse-switch-member-buffer-to-previous-sibling-class
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3135 :help "Show the previous sibling class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3136 :active t])
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3137 ("Member"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3138 ["Show in Tree" ebrowse-show-displayed-class-in-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3139 :help "Show this class in the class tree"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3140 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3141 ["Find in this Class" ebrowse-goto-visible-member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3142 :help "Search for a member of this class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3143 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3144 ["Find in Tree" ebrowse-goto-visible-member/all-member-lists
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3145 :help "Search for a member in any class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3146 :active t])
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3147 ("Display"
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3148 ["Inherited" ebrowse-toggle-base-class-display
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3149 :help "Toggle display of inherited members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3150 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3151 :selected ebrowse--show-inherited-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3152 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3153 ["Attributes" ebrowse-toggle-member-attributes-display
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3154 :help "Show member attributes"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3155 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3156 :selected ebrowse--attributes-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3157 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3158 ["Long Display" ebrowse-toggle-long-short-display
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3159 :help "Toggle the member display format"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3160 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3161 :selected ebrowse--long-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3162 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3163 ["Column Width" ebrowse-set-member-buffer-column-width
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3164 :help "Set the display's column width"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3165 :active t])
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3166 ("Filter"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3167 ["Public" ebrowse-toggle-public-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3168 :help "Toggle the visibility of public members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3169 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3170 :selected (not (aref ebrowse--filters 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3171 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3172 ["Protected" ebrowse-toggle-protected-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3173 :help "Toggle the visibility of protected members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3174 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3175 :selected (not (aref ebrowse--filters 1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3176 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3177 ["Private" ebrowse-toggle-private-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3178 :help "Toggle the visibility of private members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3179 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3180 :selected (not (aref ebrowse--filters 2))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3181 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3182 ["Virtual" ebrowse-toggle-virtual-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3183 :help "Toggle the visibility of virtual members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3184 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3185 :selected ebrowse--virtual-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3186 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3187 ["Inline" ebrowse-toggle-inline-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3188 :help "Toggle the visibility of inline members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3189 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3190 :selected ebrowse--inline-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3191 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3192 ["Const" ebrowse-toggle-const-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3193 :help "Toggle the visibility of const members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3194 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3195 :selected ebrowse--const-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3196 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3197 ["Pure" ebrowse-toggle-pure-member-filter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3198 :help "Toggle the visibility of pure virtual members"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3199 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3200 :selected ebrowse--pure-display-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3201 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3202 "-----------------"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3203 ["Show all" ebrowse-remove-all-member-filters
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3204 :help "Remove any display filters"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3205 :active t])
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3206 ("Buffer"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3207 ["Tree" ebrowse-pop-from-member-to-tree-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3208 :help "Pop to the class tree buffer"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3209 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3210 ["Next Member Buffer" ebrowse-switch-to-next-member-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3211 :help "Switch to the next member buffer of this class tree"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3212 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3213 ["Freeze" ebrowse-freeze-member-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3214 :help "Freeze (do not reuse) this member buffer"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3215 :active t])))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3216
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3217
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3218 (defun ebrowse-on-class-name ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3219 "Value is non-nil if point is on a class name."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3220 (eq (get-text-property (point) 'ebrowse-what) 'class-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3221
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3222
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3223 (defun ebrowse-on-member-name ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3224 "Value is non-nil if point is on a member name."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3225 (eq (get-text-property (point) 'ebrowse-what) 'member-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3226
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3227
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3228 (easy-menu-define
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3229 ebrowse-member-class-name-object-menu ebrowse-member-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3230 "Object menu for class names in member buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3231 '("Class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3232 ["Find" ebrowse-find-member-definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3233 :help "Find this class in the source files"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3234 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3235 ["View" ebrowse-view-member-definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3236 :help "View this class in the source files"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3237 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3238
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3239
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3240 (easy-menu-define
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3241 ebrowse-member-name-object-menu ebrowse-member-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3242 "Object menu for member names"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3243 '("Ebrowse"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3244 ["Find Definition" ebrowse-find-member-definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3245 :help "Find this member's definition in the source files"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3246 :active (ebrowse-on-member-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3247 ["Find Declaration" ebrowse-find-member-declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3248 :help "Find this member's declaration in the source files"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3249 :active (ebrowse-on-member-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3250 ["View Definition" ebrowse-view-member-definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3251 :help "View this member's definition in the source files"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3252 :active (ebrowse-on-member-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3253 ["View Declaration" ebrowse-view-member-declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3254 :help "View this member's declaration in the source files"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3255 :active (ebrowse-on-member-name)]))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3256
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3257
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3258 (defun ebrowse-member-mouse-3 (event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3259 "Handle `mouse-3' events in member buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3260 EVENT is the mouse event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3261 (interactive "e")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3262 (mouse-set-point event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3263 (case (event-click-count event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3264 (2 (ebrowse-find-member-definition))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3265 (1 (case (get-text-property (posn-point (event-start event))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3266 'ebrowse-what)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3267 (member-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3268 (ebrowse-popup-menu ebrowse-member-name-object-menu event))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3269 (class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3270 (ebrowse-popup-menu ebrowse-member-class-name-object-menu event))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3271 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3272 (ebrowse-popup-menu ebrowse-member-buffer-object-menu event))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3273
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3274
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3275 (defun ebrowse-member-mouse-2 (event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3276 "Handle `mouse-2' events in member buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3277 EVENT is the mouse event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3278 (interactive "e")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3279 (mouse-set-point event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3280 (case (event-click-count event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3281 (2 (ebrowse-find-member-definition))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3282 (1 (case (get-text-property (posn-point (event-start event))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3283 'ebrowse-what)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3284 (member-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3285 (ebrowse-view-member-definition 0))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3286
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3287
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3288
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3289 ;;; Tags view/find
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3290
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3291 (defun ebrowse-class-alist-for-member (tree-header name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3292 "Return information about a member in a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3293 TREE-HEADER is the header structure of the class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3294 NAME is the name of the member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3295 Value is an alist of elements (CLASS-NAME . (CLASS LIST NAME)),
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3296 where each element describes one occurrence of member NAME in the tree.
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3297 CLASS-NAME is the qualified name of the class in which the
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3298 member was found. The CDR of the acons is described in function
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3299 `ebrowse-class/index/member-for-member'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3300 (let ((table (ebrowse-member-table tree-header))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3301 known-classes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3302 alist)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3303 (when name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3304 (dolist (info (gethash name table) alist)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3305 (unless (memq (first info) known-classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3306 (setf alist (acons (ebrowse-qualified-class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3307 (ebrowse-ts-class (first info)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3308 info alist)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3309 known-classes (cons (first info) known-classes)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3310
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3311
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3312 (defun ebrowse-choose-tree ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3313 "Choose a class tree to use.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3314 If there's more than one class tree loaded, let the user choose
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3315 the one he wants. Value is (TREE HEADER BUFFER), with TREE being
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3316 the class tree, HEADER the header structure of the tree, and BUFFER
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3317 being the tree or member buffer containing the tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3318 (let* ((buffer (ebrowse-choose-from-browser-buffers)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3319 (if buffer (list (ebrowse-value-in-buffer 'ebrowse--tree buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3320 (ebrowse-value-in-buffer 'ebrowse--header buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3321 buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3322
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3323
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3324 (defun ebrowse-tags-read-name (header prompt)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3325 "Read a C++ identifier from the minibuffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3326 HEADER is the `ebrowse-hs' structure of the class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3327 Prompt with PROMPT. Insert into the minibuffer a C++ identifier read
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3328 from point as default. Value is a list (CLASS-NAME MEMBER-NAME)."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3329 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3330 (let* (start member-info (members (ebrowse-member-table header)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3331 (multiple-value-bind (class-name member-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3332 (ebrowse-tags-read-member+class-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3333 (unless member-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3334 (error "No member name at point"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3335 (if members
46353
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
3336 (let* ((name (ebrowse-ignoring-completion-case
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
3337 (completing-read prompt members nil nil member-name)))
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
3338 (completion-result (try-completion name members)))
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 41773
diff changeset
3339 ;; Cannot rely on `try-completion' returning t for exact
42706
be541feb06cc Fix typo.
Pavel Janík <Pavel@Janik.cz>
parents: 42205
diff changeset
3340 ;; matches! It returns the name as a string.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3341 (unless (setq member-info (gethash name members))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3342 (if (y-or-n-p "No exact match found. Try substrings? ")
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3343 (setq name
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3344 (or (first (ebrowse-list-of-matching-members
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3345 members (regexp-quote name) name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3346 (error "Sorry, nothing found")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3347 (error "Canceled")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3348 (list class-name name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3349 (list class-name (read-from-minibuffer prompt member-name)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3350
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3351
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3352 (defun ebrowse-tags-read-member+class-name ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3353 "Read a C++ identifier from point.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3354 Value is (CLASS-NAME MEMBER-NAME).
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3355 CLASS-NAME is the name of the class if the identifier was qualified.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3356 It is nil otherwise.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3357 MEMBER-NAME is the name of the member found."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3358 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3359 (skip-chars-backward "a-zA-Z0-9_")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3360 (let* ((start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3361 (name (progn (skip-chars-forward "a-zA-Z0-9_")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3362 (buffer-substring start (point))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3363 class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3364 (list class name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3365
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3366
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3367 (defun ebrowse-tags-choose-class (tree header name initial-class-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3368 "Read a class name for a member from the minibuffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3369 TREE is the class tree we operate on.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3370 HEADER is its header structure.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3371 NAME is the name of the member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3372 INITIAL-CLASS-NAME is an initial class name to insert in the minibuffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3373 Value is a list (TREE ACCESSOR MEMBER) for the member."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3374 (let ((alist (or (ebrowse-class-alist-for-member header name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3375 (error "No classes with member `%s' found" name))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3376 (ebrowse-ignoring-completion-case
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3377 (if (null (second alist))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3378 (cdr (first alist))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3379 (push ?\? unread-command-events)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3380 (cdr (assoc (completing-read "In class: "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3381 alist nil t initial-class-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3382 alist))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3383
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3384
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3385 (defun* ebrowse-tags-view/find-member-decl/defn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3386 (prefix &key view definition member-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3387 "If VIEW is t, view, else find an occurrence of MEMBER-NAME.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3388
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3389 If DEFINITION is t, find or view the member definition else its
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3390 declaration. This function reads the member's name from the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3391 current buffer like FIND-TAG. It then prepares a completion list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3392 of all classes containing a member with the given name and lets
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3393 the user choose the class to use. As a last step, a tags search
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3394 is performed that positions point on the member declaration or
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3395 definition."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3396 (multiple-value-bind
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3397 (tree header tree-buffer) (ebrowse-choose-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3398 (unless tree (error "No class tree"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3399 (let* ((marker (point-marker))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3400 class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3401 (name member-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3402 info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3403 (unless name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3404 (multiple-value-setq (class-name name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3405 (ebrowse-tags-read-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3406 header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3407 (concat (if view "View" "Find") " member "
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3408 (if definition "definition" "declaration") ": "))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3409 (setq info (ebrowse-tags-choose-class tree header name class-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3410 (ebrowse-push-position marker info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3411 ;; Goto the occurrence of the member
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3412 (ebrowse-view/find-member-declaration/definition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3413 prefix view definition info
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3414 header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3415 (ebrowse-value-in-buffer 'ebrowse--tags-file-name tree-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3416 ;; Record position jumped to
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3417 (ebrowse-push-position (point-marker) info t))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3418
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3419
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3420 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3421 (defun ebrowse-tags-view-declaration ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3422 "View declaration of member at point."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3423 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3424 (ebrowse-tags-view/find-member-decl/defn 0 :view t :definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3425
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3426
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3427 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3428 (defun ebrowse-tags-find-declaration ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3429 "Find declaration of member at point."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3430 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3431 (ebrowse-tags-view/find-member-decl/defn 0 :view nil :definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3432
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3433
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3434 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3435 (defun ebrowse-tags-view-definition ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3436 "View definition of member at point."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3437 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3438 (ebrowse-tags-view/find-member-decl/defn 0 :view t :definition t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3439
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3440
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3441 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3442 (defun ebrowse-tags-find-definition ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3443 "Find definition of member at point."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3444 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3445 (ebrowse-tags-view/find-member-decl/defn 0 :view nil :definition t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3446
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3447
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3448 (defun ebrowse-tags-view-declaration-other-window ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3449 "View declaration of member at point in other window."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3450 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3451 (ebrowse-tags-view/find-member-decl/defn 4 :view t :definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3452
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3453
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3454 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3455 (defun ebrowse-tags-find-declaration-other-window ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3456 "Find declaration of member at point in other window."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3457 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3458 (ebrowse-tags-view/find-member-decl/defn 4 :view nil :definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3459
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3460
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3461 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3462 (defun ebrowse-tags-view-definition-other-window ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3463 "View definition of member at point in other window."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3464 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3465 (ebrowse-tags-view/find-member-decl/defn 4 :view t :definition t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3466
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3467
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3468 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3469 (defun ebrowse-tags-find-definition-other-window ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3470 "Find definition of member at point in other window."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3471 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3472 (ebrowse-tags-view/find-member-decl/defn 4 :view nil :definition t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3473
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3474
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3475 (defun ebrowse-tags-view-declaration-other-frame ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3476 "View definition of member at point in other frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3477 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3478 (ebrowse-tags-view/find-member-decl/defn 5 :view t :definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3479
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3480
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3481 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3482 (defun ebrowse-tags-find-declaration-other-frame ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3483 "Find definition of member at point in other frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3484 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3485 (ebrowse-tags-view/find-member-decl/defn 5 :view nil :definition nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3486
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3487
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3488 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3489 (defun ebrowse-tags-view-definition-other-frame ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3490 "View definition of member at point in other frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3491 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3492 (ebrowse-tags-view/find-member-decl/defn 5 :view t :definition t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3493
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3494
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3495 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3496 (defun ebrowse-tags-find-definition-other-frame ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3497 "Find definition of member at point in other frame."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3498 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3499 (ebrowse-tags-view/find-member-decl/defn 5 :view nil :definition t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3500
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3501
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3502 (defun ebrowse-tags-select/create-member-buffer (tree-buffer info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3503 "Select or create member buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3504 TREE-BUFFER specifies the tree to use. INFO describes the member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3505 It is a list (TREE ACCESSOR MEMBER)."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3506 (let ((buffer (get-buffer ebrowse-member-buffer-name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3507 (cond ((null buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3508 (set-buffer tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3509 (switch-to-buffer (ebrowse-display-member-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3510 (second info) nil (first info))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3511 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3512 (switch-to-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3513 (setq ebrowse--displayed-class (first info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3514 ebrowse--accessor (second info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3515 ebrowse--member-list (funcall ebrowse--accessor ebrowse--displayed-class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3516 (ebrowse-redisplay-member-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3517 (ebrowse-move-point-to-member (ebrowse-ms-name (third info)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3518
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3519
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3520 (defun ebrowse-tags-display-member-buffer (&optional fix-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3521 "Display a member buffer for a member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3522 FIX-NAME non-nil means display the buffer for that member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3523 Otherwise read a member name from point."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3524 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3525 (multiple-value-bind
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3526 (tree header tree-buffer) (ebrowse-choose-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3527 (unless tree (error "No class tree"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3528 (let* ((marker (point-marker)) class-name (name fix-name) info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3529 (unless name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3530 (multiple-value-setq (class-name name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3531 (ebrowse-tags-read-name header
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3532 (concat "Find member list of: "))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3533 (setq info (ebrowse-tags-choose-class tree header name class-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3534 (ebrowse-push-position marker info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3535 (ebrowse-tags-select/create-member-buffer tree-buffer info))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3536
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3537
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3538 (defun ebrowse-list-of-matching-members (members regexp &optional name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3539 "Return a list of members in table MEMBERS matching REGEXP or NAME.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3540 Both NAME and REGEXP may be nil in which case exact or regexp matches
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3541 are not performed."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3542 (let (list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3543 (when (or name regexp)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3544 (maphash #'(lambda (member-name info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3545 (when (or (and name (string= name member-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3546 (and regexp (string-match regexp member-name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3547 (setq list (cons member-name list))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3548 members))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3549 list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3550
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3551
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3552 (defun ebrowse-tags-apropos ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3553 "Display a list of members matching a regexp read from the minibuffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3554 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3555 (let* ((buffer (or (ebrowse-choose-from-browser-buffers)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3556 (error "No tree buffer")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3557 (header (ebrowse-value-in-buffer 'ebrowse--header buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3558 (members (ebrowse-member-table header))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3559 temp-buffer-setup-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3560 (regexp (read-from-minibuffer "List members matching regexp: ")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3561 (with-output-to-temp-buffer (concat "*Apropos Members*")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3562 (set-buffer standard-output)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3563 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3564 (insert "Members matching `" regexp "'\n\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3565 (loop for s in (ebrowse-list-of-matching-members members regexp) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3566 (loop for info in (gethash s members) do
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3567 (ebrowse-draw-file-member-info info))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3568
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3569
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3570 (defun ebrowse-tags-list-members-in-file ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3571 "Display a list of members found in a file.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3572 The file name is read from the minibuffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3573 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3574 (let* ((buffer (or (ebrowse-choose-from-browser-buffers)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3575 (error "No tree buffer")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3576 (files (save-excursion (set-buffer buffer) (ebrowse-files-table)))
46353
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
3577 (file (completing-read "List members in file: " files nil t))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3578 (header (ebrowse-value-in-buffer 'ebrowse--header buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3579 temp-buffer-setup-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3580 (members (ebrowse-member-table header)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3581 (with-output-to-temp-buffer (concat "*Members in file " file "*")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3582 (set-buffer standard-output)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3583 (maphash
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3584 #'(lambda (member-name list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3585 (loop for info in list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3586 as member = (third info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3587 as class = (ebrowse-ts-class (first info))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3588 when (or (and (null (ebrowse-ms-file member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3589 (string= (ebrowse-cs-file class) file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3590 (string= file (ebrowse-ms-file member)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3591 do (ebrowse-draw-file-member-info info "decl.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3592 when (or (and (null (ebrowse-ms-definition-file member))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3593 (string= (ebrowse-cs-source-file class) file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3594 (string= file (ebrowse-ms-definition-file member)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3595 do (ebrowse-draw-file-member-info info "defn.")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3596 members))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3597
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3598
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3599 (defun* ebrowse-draw-file-member-info (info &optional (kind ""))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3600 "Display a line in an the members per file info buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3601 INFO describes the member. It has the form (TREE ACCESSOR MEMBER).
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3602 TREE is the class of the member to display.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3603 ACCESSOR is the accessor symbol of its member list.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3604 MEMBER is the member structure.
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3605 KIND is an additional string printed in the buffer."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3606 (let* ((tree (first info))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3607 (globals-p (ebrowse-globals-tree-p tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3608 (unless globals-p
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3609 (insert (ebrowse-cs-name (ebrowse-ts-class tree))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3610 (insert "::" (ebrowse-ms-name (third info)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3611 (indent-to 40)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3612 (insert kind)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3613 (indent-to 50)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3614 (insert (case (second info)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3615 ('ebrowse-ts-member-functions "member function")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3616 ('ebrowse-ts-member-variables "member variable")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3617 ('ebrowse-ts-static-functions "static function")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3618 ('ebrowse-ts-static-variables "static variable")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3619 ('ebrowse-ts-friends (if globals-p "define" "friend"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3620 ('ebrowse-ts-types "type")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3621 (t "unknown"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3622 "\n")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3623
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3624 (defvar ebrowse-last-completion nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3625 "Text inserted by the last completion operation.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3626
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3627
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3628 (defvar ebrowse-last-completion-start nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3629 "String which was the basis for the last completion operation.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3630
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3631
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3632 (defvar ebrowse-last-completion-location nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3633 "Buffer position at which the last completion operation was initiated.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3634
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3635
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3636 (defvar ebrowse-last-completion-obarray nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3637 "Member used in last completion operation.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3638
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3639
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3640 (make-variable-buffer-local 'ebrowse-last-completion-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3641 (make-variable-buffer-local 'ebrowse-last-completion-location)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3642 (make-variable-buffer-local 'ebrowse-last-completion)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3643 (make-variable-buffer-local 'ebrowse-last-completion-start)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3644
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3645
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3646
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3647 (defun ebrowse-some-member-table ()
49735
5cfff357b829 Docstring typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49480
diff changeset
3648 "Return a hash table containing all members of a tree.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3649 If there's only one tree loaded, use that. Otherwise let the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3650 use choose a tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3651 (let* ((buffers (ebrowse-known-class-trees-buffer-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3652 (buffer (cond ((and (first buffers) (not (second buffers)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3653 (first buffers))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3654 (t (or (ebrowse-electric-choose-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3655 (error "No tree buffer")))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3656 (header (ebrowse-value-in-buffer 'ebrowse--header buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3657 (ebrowse-member-table header)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3658
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3659
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3660 (defun ebrowse-cyclic-successor-in-string-list (string list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3661 "Return the item following STRING in LIST.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3662 If STRING is the last element, return the first element as successor."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3663 (or (nth (1+ (ebrowse-position string list 'string=)) list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3664 (first list)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3665
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3666
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3667 ;;; Symbol completion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3668
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3669 ;;;###autoload
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3670 (defun* ebrowse-tags-complete-symbol (prefix)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3671 "Perform completion on the C++ symbol preceding point.
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3672 A second call of this function without changing point inserts the next match.
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3673 A call with prefix PREFIX reads the symbol to insert from the minibuffer with
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3674 completion."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3675 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3676 (let* ((end (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3677 (begin (save-excursion (skip-chars-backward "a-zA-Z_0-9") (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3678 (pattern (buffer-substring begin end))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3679 list completion)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3680 (cond
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3681 ;; With prefix, read name from minibuffer with completion.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3682 (prefix
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3683 (let* ((members (ebrowse-some-member-table))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3684 (completion (completing-read "Insert member: "
46353
c6a6286bc21a (ebrowse-symbol-regexp): Avoid cl-set-substring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45742
diff changeset
3685 members nil t pattern)))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3686 (when completion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3687 (setf ebrowse-last-completion-location nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3688 (delete-region begin end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3689 (insert completion))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3690 ;; If this function is called at the same point the last
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3691 ;; expansion ended, insert the next expansion.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3692 ((eq (point) ebrowse-last-completion-location)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3693 (setf list (all-completions ebrowse-last-completion-start
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3694 ebrowse-last-completion-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3695 completion (ebrowse-cyclic-successor-in-string-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3696 ebrowse-last-completion list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3697 (cond ((null completion)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3698 (error "No completion"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3699 ((string= completion pattern)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3700 (error "No further completion"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3701 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3702 (delete-region begin end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3703 (insert completion)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3704 (setf ebrowse-last-completion completion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3705 ebrowse-last-completion-location (point)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3706 ;; First time the function is called at some position in the
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3707 ;; buffer: Start new completion.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3708 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3709 (let* ((members (ebrowse-some-member-table))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3710 (completion (first (all-completions pattern members nil))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3711 (cond ((eq completion t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3712 ((null completion)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3713 (error "Can't find completion for `%s'" pattern))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3714 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3715 (delete-region begin end)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3716 (insert completion)
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3717
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3718 (setf ebrowse-last-completion-location (point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3719 ebrowse-last-completion-start pattern
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3720 ebrowse-last-completion completion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3721 ebrowse-last-completion-obarray members))))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3722
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3723
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3724 ;;; Tags query replace & search
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3725
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3726 (defvar ebrowse-tags-loop-form ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3727 "Form for `ebrowse-loop-continue'.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3728 Evaluated for each file in the tree. If it returns nil, proceed
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3729 with the next file.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3730
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3731 (defvar ebrowse-tags-next-file-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3732 "A list of files to be processed.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3733
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3734
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3735 (defvar ebrowse-tags-next-file-path nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3736 "The path relative to which files have to be searched.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3737
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3738
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3739 (defvar ebrowse-tags-loop-last-file nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3740 "The last file visited via `ebrowse-tags-loop'.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3741
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3742
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3743 (defun ebrowse-tags-next-file (&optional initialize tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3744 "Select next file among files in current tag table.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3745 Non-nil argument INITIALIZE (prefix arg, if interactive) initializes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3746 to the beginning of the list of files in the tag table.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3747 TREE-BUFFER specifies the class tree we operate on."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3748 (interactive "P")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3749 ;; Call with INITIALIZE non-nil initializes the files list.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3750 ;; If more than one tree buffer is loaded, let the user choose
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3751 ;; on which tree (s)he wants to operate.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3752 (when initialize
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3753 (let ((buffer (or tree-buffer (ebrowse-choose-from-browser-buffers))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3754 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3755 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3756 (setq ebrowse-tags-next-file-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3757 (ebrowse-files-list (ebrowse-marked-classes-p))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3758 ebrowse-tags-loop-last-file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3759 nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3760 ebrowse-tags-next-file-path
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3761 (file-name-directory ebrowse--tags-file-name)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3762 ;; End of the loop if the stack of files is empty.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3763 (unless ebrowse-tags-next-file-list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3764 (error "All files processed"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3765 ;; ebrowse-tags-loop-last-file is the last file that was visited due
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3766 ;; to a call to BROWSE-LOOP (see below). If that file is still
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3767 ;; in memory, and it wasn't modified, throw its buffer away to
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3768 ;; prevent cluttering up the buffer list.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3769 (when ebrowse-tags-loop-last-file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3770 (let ((buffer (get-file-buffer ebrowse-tags-loop-last-file)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3771 (when (and buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3772 (not (buffer-modified-p buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3773 (kill-buffer buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3774 ;; Remember this buffer file name for later deletion, if it
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3775 ;; wasn't visited by other means.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3776 (let ((file (expand-file-name (car ebrowse-tags-next-file-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3777 ebrowse-tags-next-file-path)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3778 (setq ebrowse-tags-loop-last-file (if (get-file-buffer file) nil file))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3779 ;; Find the file and pop the file list. Pop has to be done
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3780 ;; before the file is loaded because FIND-FILE might encounter
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3781 ;; an error, and we want to be able to proceed with the next
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3782 ;; file in this case.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3783 (pop ebrowse-tags-next-file-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3784 (find-file file)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3785
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3786
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3787 ;;;###autoload
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3788 (defun ebrowse-tags-loop-continue (&optional first-time tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3789 "Repeat last operation on files in tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3790 FIRST-TIME non-nil means this is not a repetition, but the first time.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3791 TREE-BUFFER if indirectly specifies which files to loop over."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3792 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3793 (when first-time
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3794 (ebrowse-tags-next-file first-time tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3795 (goto-char (point-min)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3796 (while (not (eval ebrowse-tags-loop-form))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3797 (ebrowse-tags-next-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3798 (message "Scanning file `%s'..." buffer-file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3799 (goto-char (point-min))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3800
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3801
52529
c4c3b1b0d5c0 Fix broken magic autoload comments.
Masatake YAMATO <jet@gyve.org>
parents: 52401
diff changeset
3802 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3803 (defun ebrowse-tags-search (regexp)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3804 "Search for REGEXP in all files in a tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3805 If marked classes exist, process marked classes, only.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3806 If regular expression is nil, repeat last search."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3807 (interactive "sTree search (regexp): ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3808 (if (and (string= regexp "")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3809 (eq (car ebrowse-tags-loop-form) 're-search-forward))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3810 (ebrowse-tags-loop-continue)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3811 (setq ebrowse-tags-loop-form (list 're-search-forward regexp nil t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3812 (ebrowse-tags-loop-continue 'first-time)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3813
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3814
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3815 ;;;###autoload
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3816 (defun ebrowse-tags-query-replace (from to)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3817 "Query replace FROM with TO in all files of a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3818 With prefix arg, process files of marked classes only."
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3819 (interactive
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3820 "sTree query replace (regexp): \nsTree query replace %s by: ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3821 (setq ebrowse-tags-loop-form
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3822 (list 'and (list 'save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3823 (list 're-search-forward from nil t))
40255
ad4ee591fe2f Adapt to change in perform-replace.
Gerd Moellmann <gerd@gnu.org>
parents: 38412
diff changeset
3824 (list 'not (list 'perform-replace from to t t nil))))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3825 (ebrowse-tags-loop-continue 'first-time))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3826
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3827
37426
71d360920aad Fix autoload cookies.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
3828 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3829 (defun ebrowse-tags-search-member-use (&optional fix-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3830 "Search for call sites of a member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3831 If FIX-NAME is specified, search uses of that member.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3832 Otherwise, read a member name from the minibuffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3833 Searches in all files mentioned in a class tree for something that
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3834 looks like a function call to the member."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3835 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3836 ;; Choose the tree to use if there is more than one.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3837 (multiple-value-bind (tree header tree-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3838 (ebrowse-choose-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3839 (unless tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3840 (error "No class tree"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3841 ;; Get the member name NAME (class-name is ignored).
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3842 (let ((name fix-name) class-name regexp)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3843 (unless name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3844 (multiple-value-setq (class-name name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3845 (ebrowse-tags-read-name header "Find calls of: ")))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3846 ;; Set tags loop form to search for member and begin loop.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3847 (setq regexp (concat "\\<" name "[ \t]*(")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3848 ebrowse-tags-loop-form (list 're-search-forward regexp nil t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3849 (ebrowse-tags-loop-continue 'first-time tree-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3850
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3851
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3852
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3853 ;;; Tags position management
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3854
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3855 ;;; Structures of this kind are the elements of the position stack.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3856
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3857 (defstruct (ebrowse-position (:type vector) :named)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3858 file-name ; in which file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3859 point ; point in file
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3860 target ; t if target of a jump
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3861 info) ; (CLASS FUNC MEMBER) jumped to
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3862
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3863
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3864 (defvar ebrowse-position-stack ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3865 "Stack of `ebrowse-position' structured.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3866
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3867
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3868 (defvar ebrowse-position-index 0
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3869 "Current position in position stack.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3870
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3871
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3872 (defun ebrowse-position-name (position)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3873 "Return an identifying string for POSITION.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3874 The string is printed in the electric position list buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3875 (let ((info (ebrowse-position-info position)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3876 (concat (if (ebrowse-position-target position) "at " "to ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3877 (ebrowse-cs-name (ebrowse-ts-class (first info)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3878 "::" (ebrowse-ms-name (third info)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3879
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3880
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3881 (defun ebrowse-view/find-position (position &optional view)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3882 "Position point on POSITION.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3883 If VIEW is non-nil, view the position, otherwise find it."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3884 (cond ((not view)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3885 (find-file (ebrowse-position-file-name position))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3886 (goto-char (ebrowse-position-point position)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3887 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3888 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3889 (progn
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3890 (push (function
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3891 (lambda ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3892 (goto-char (ebrowse-position-point position))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3893 view-mode-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3894 (view-file (ebrowse-position-file-name position)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3895 (pop view-mode-hook)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3896
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3897
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3898 (defun ebrowse-push-position (marker info &optional target)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3899 "Push current position on position stack.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3900 MARKER is the marker to remember as position.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3901 INFO is a list (CLASS FUNC MEMBER) specifying what we jumped to.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3902 TARGET non-nil means we performed a jump.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3903 Positions in buffers that have no file names are not saved."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3904 (when (buffer-file-name (marker-buffer marker))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3905 (let ((too-much (- (length ebrowse-position-stack)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3906 ebrowse-max-positions)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3907 ;; Do not let the stack grow to infinity.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3908 (when (plusp too-much)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3909 (setq ebrowse-position-stack
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3910 (butlast ebrowse-position-stack too-much)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3911 ;; Push the position.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3912 (push (make-ebrowse-position
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3913 :file-name (buffer-file-name (marker-buffer marker))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3914 :point (marker-position marker)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3915 :target target
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
3916 :info info)
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3917 ebrowse-position-stack))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3918
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3919
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3920 (defun ebrowse-move-in-position-stack (increment)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3921 "Move by INCREMENT in the position stack."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3922 (let ((length (length ebrowse-position-stack)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3923 (when (zerop length)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3924 (error "No positions remembered"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3925 (setq ebrowse-position-index
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3926 (mod (+ increment ebrowse-position-index) length))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3927 (message "Position %d of %d " ebrowse-position-index length)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3928 (ebrowse-view/find-position (nth ebrowse-position-index
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3929 ebrowse-position-stack))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3930
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3931
37426
71d360920aad Fix autoload cookies.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
3932 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3933 (defun ebrowse-back-in-position-stack (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3934 "Move backward in the position stack.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3935 Prefix arg ARG says how much."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3936 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3937 (ebrowse-move-in-position-stack (max 1 arg)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3938
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3939
37426
71d360920aad Fix autoload cookies.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
3940 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3941 (defun ebrowse-forward-in-position-stack (arg)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3942 "Move forward in the position stack.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3943 Prefix arg ARG says how much."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3944 (interactive "p")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3945 (ebrowse-move-in-position-stack (min -1 (- arg))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3946
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3947
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3948
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3949 ;;; Electric position list
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3950
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3951 (defvar ebrowse-electric-position-mode-map ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3952 "Keymap used in electric position stack window.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3953
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3954
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3955 (defvar ebrowse-electric-position-mode-hook nil
62074
c0b42702a33a (ebrowse-install-1-to-9-keys, ebrowse-print-statistics-line,
Juanma Barranquero <lekktu@gmail.com>
parents: 61394
diff changeset
3956 "If non-nil, its value is called by `ebrowse-electric-position-mode'.")
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3957
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3958
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3959 (unless ebrowse-electric-position-mode-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3960 (let ((map (make-keymap))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3961 (submap (make-keymap)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3962 (setq ebrowse-electric-position-mode-map map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3963 (fillarray (car (cdr map)) 'ebrowse-electric-position-undefined)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3964 (fillarray (car (cdr submap)) 'ebrowse-electric-position-undefined)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3965 (define-key map "\e" submap)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3966 (define-key map "\C-z" 'suspend-emacs)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3967 (define-key map "\C-h" 'Helper-help)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3968 (define-key map "?" 'Helper-describe-bindings)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3969 (define-key map "\C-c" nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3970 (define-key map "\C-c\C-c" 'ebrowse-electric-position-quit)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3971 (define-key map "q" 'ebrowse-electric-position-quit)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3972 (define-key map " " 'ebrowse-electric-select-position)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3973 (define-key map "\C-l" 'recenter)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3974 (define-key map "\C-u" 'universal-argument)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3975 (define-key map "\C-p" 'previous-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3976 (define-key map "\C-n" 'next-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3977 (define-key map "p" 'previous-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3978 (define-key map "n" 'next-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3979 (define-key map "v" 'ebrowse-electric-view-position)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3980 (define-key map "\C-v" 'scroll-up)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3981 (define-key map "\ev" 'scroll-down)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3982 (define-key map "\e\C-v" 'scroll-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3983 (define-key map "\e>" 'end-of-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3984 (define-key map "\e<" 'beginning-of-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3985 (define-key map "\e>" 'end-of-buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3986
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3987 (put 'ebrowse-electric-position-mode 'mode-class 'special)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3988 (put 'ebrowse-electric-position-undefined 'suppress-keymap t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3989
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3990
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3991 (defun ebrowse-electric-position-mode ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3992 "Mode for electric position buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3993 Runs the hook `ebrowse-electric-position-mode-hook'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3994 (kill-all-local-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3995 (use-local-map ebrowse-electric-position-mode-map)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3996 (setq mode-name "Electric Position Menu"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3997 mode-line-buffer-identification "Electric Position Menu")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3998 (when (memq 'mode-name mode-line-format)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3999 (setq mode-line-format (copy-sequence mode-line-format))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4000 (setcar (memq 'mode-name mode-line-format) "Positions"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4001 (make-local-variable 'Helper-return-blurb)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4002 (setq Helper-return-blurb "return to buffer editing"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4003 truncate-lines t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4004 buffer-read-only t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4005 major-mode 'ebrowse-electric-position-mode)
62772
f2892faa87d4 * progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents: 62402
diff changeset
4006 (run-mode-hooks 'ebrowse-electric-position-mode-hook))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4007
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4008
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4009 (defun ebrowse-draw-position-buffer ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4010 "Display positions in buffer *Positions*."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4011 (set-buffer (get-buffer-create "*Positions*"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4012 (setq buffer-read-only nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4013 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4014 (insert "File Point Description\n"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4015 "---- ----- -----------\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4016 (dolist (position ebrowse-position-stack)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4017 (insert (file-name-nondirectory (ebrowse-position-file-name position)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4018 (indent-to 15)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4019 (insert (int-to-string (ebrowse-position-point position)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4020 (indent-to 22)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4021 (insert (ebrowse-position-name position) "\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4022 (setq buffer-read-only t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4023
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4024
37426
71d360920aad Fix autoload cookies.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
4025 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4026 (defun ebrowse-electric-position-menu ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4027 "List positions in the position stack in an electric buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4028 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4029 (unless ebrowse-position-stack
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4030 (error "No positions remembered"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4031 (let (select buffer window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4032 (save-window-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4033 (save-window-excursion (ebrowse-draw-position-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4034 (setq window (Electric-pop-up-window "*Positions*")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4035 buffer (window-buffer window))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4036 (shrink-window-if-larger-than-buffer window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4037 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4038 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4039 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4040 (ebrowse-electric-position-mode)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4041 (setq select
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4042 (catch 'ebrowse-electric-select-position
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4043 (message "<<< Press Space to bury the list >>>")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4044 (let ((first (progn (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4045 (forward-line 2)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4046 (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4047 (last (progn (goto-char (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4048 (forward-line -1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4049 (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4050 (goal-column 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4051 (goto-char first)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4052 (Electric-command-loop 'ebrowse-electric-select-position
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4053 nil t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4054 'ebrowse-electric-position-looper
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4055 (cons first last))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4056 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4057 (bury-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4058 (message nil)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4059 (when select
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4060 (set-buffer buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4061 (ebrowse-electric-find-position select))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4062 (kill-buffer buffer)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4063
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4064
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4065 (defun ebrowse-electric-position-looper (state condition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4066 "Prevent moving point on invalid lines.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4067 Called from `Electric-command-loop'. See there for the meaning
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4068 of STATE and CONDITION."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4069 (cond ((and condition
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4070 (not (memq (car condition) '(buffer-read-only
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4071 end-of-buffer
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4072 beginning-of-buffer))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4073 (signal (car condition) (cdr condition)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4074 ((< (point) (car state))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4075 (goto-char (point-min))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4076 (forward-line 2))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4077 ((> (point) (cdr state))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4078 (goto-char (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4079 (forward-line -1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4080 (if (pos-visible-in-window-p (point-max))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4081 (recenter -1)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4082
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4083
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4084 (defun ebrowse-electric-position-undefined ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4085 "Function called for undefined keys."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4086 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4087 (message "Type C-h for help, ? for commands, q to quit, Space to execute")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4088 (sit-for 4))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4089
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4090
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4091 (defun ebrowse-electric-position-quit ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4092 "Leave the electric position list."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4093 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4094 (throw 'ebrowse-electric-select-position nil))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4095
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4096
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4097 (defun ebrowse-electric-select-position ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4098 "Select a position from the list."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4099 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4100 (throw 'ebrowse-electric-select-position (point)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4101
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4102
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4103 (defun ebrowse-electric-find-position (point &optional view)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4104 "View/find what is described by the line at POINT.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4105 If VIEW is non-nil, view else find source files."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4106 (let ((index (- (count-lines (point-min) point) 2)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4107 (ebrowse-view/find-position (nth index
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4108 ebrowse-position-stack) view)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4109
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4110
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4111 (defun ebrowse-electric-view-position ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4112 "View the position described by the line point is in."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4113 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4114 (ebrowse-electric-find-position (point) t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4115
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4116
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4117
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4118 ;;; Saving trees to disk
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4119
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4120 (defun ebrowse-write-file-hook-fn ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4121 "Write current buffer as a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4122 Installed on `local-write-file-hooks'."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4123 (ebrowse-save-tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4124 t)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4125
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4126
37426
71d360920aad Fix autoload cookies.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
4127 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4128 (defun ebrowse-save-tree ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4129 "Save current tree in same file it was loaded from."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4130 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4131 (ebrowse-save-tree-as (or buffer-file-name ebrowse--tags-file-name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4132
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4133
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4134 ;;;###autoload
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4135 (defun ebrowse-save-tree-as (&optional file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4136 "Write the current tree data structure to a file.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4137 Read the file name from the minibuffer if interactive.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4138 Otherwise, FILE-NAME specifies the file to save the tree in."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4139 (interactive "FSave tree as: ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4140 (let ((temp-buffer (get-buffer-create "*Tree Output"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4141 (old-standard-output standard-output)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4142 (header (copy-ebrowse-hs ebrowse--header))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4143 (tree ebrowse--tree))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4144 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4145 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4146 (set-buffer (setq standard-output temp-buffer))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4147 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4148 (setf (ebrowse-hs-member-table header) nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4149 (insert (prin1-to-string header) " ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4150 (mapcar 'ebrowse-save-class tree)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4151 (write-file file-name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4152 (message "Tree written to file `%s'" file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4153 (kill-buffer temp-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4154 (set-buffer-modified-p nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4155 (ebrowse-update-tree-buffer-mode-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4156 (setq standard-output old-standard-output))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4157
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4158
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4159 (defun ebrowse-save-class (class)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4160 "Write single class CLASS to current buffer."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4161 (message "%s..." (ebrowse-cs-name (ebrowse-ts-class class)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4162 (insert "[ebrowse-ts ")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4163 (prin1 (ebrowse-ts-class class)) ;class name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4164 (insert "(") ;list of subclasses
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4165 (mapcar 'ebrowse-save-class (ebrowse-ts-subclasses class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4166 (insert ")")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4167 (dolist (func ebrowse-member-list-accessors)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4168 (prin1 (funcall func class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4169 (insert "\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4170 (insert "()") ;base-classes slot
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4171 (prin1 (ebrowse-ts-mark class))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4172 (insert "]\n"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4173
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4174
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4175
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4176 ;;; Statistics
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4177
37426
71d360920aad Fix autoload cookies.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
4178 ;;;###autoload
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4179 (defun ebrowse-statistics ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4180 "Display statistics for a class tree."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4181 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4182 (let ((tree-file (buffer-file-name))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4183 temp-buffer-setup-hook)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4184 (with-output-to-temp-buffer "*Tree Statistics*"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4185 (multiple-value-bind (classes member-functions member-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4186 static-functions static-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4187 (ebrowse-gather-statistics)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4188 (set-buffer standard-output)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4189 (erase-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4190 (insert "STATISTICS FOR TREE " (or tree-file "unknown") ":\n\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4191 (ebrowse-print-statistics-line "Number of classes:" classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4192 (ebrowse-print-statistics-line "Number of member functions:"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4193 member-functions)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4194 (ebrowse-print-statistics-line "Number of member variables:"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4195 member-variables)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4196 (ebrowse-print-statistics-line "Number of static functions:"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4197 static-functions)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4198 (ebrowse-print-statistics-line "Number of static variables:"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4199 static-variables)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4200
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4201
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4202 (defun ebrowse-print-statistics-line (title value)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4203 "Print a line in the statistics buffer.
62074
c0b42702a33a (ebrowse-install-1-to-9-keys, ebrowse-print-statistics-line,
Juanma Barranquero <lekktu@gmail.com>
parents: 61394
diff changeset
4204 TITLE is the title of the line, VALUE is a number to be printed
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4205 after that."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4206 (insert title)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4207 (indent-to 40)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4208 (insert (format "%d\n" value)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4209
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4210
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4211 (defun ebrowse-gather-statistics ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4212 "Return statistics for a class tree.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4213 The result is a list (NUMBER-OF-CLASSES NUMBER-OF-MEMBER-FUNCTIONS
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4214 NUMBER-OF-INSTANCE-VARIABLES NUMBER-OF-STATIC-FUNCTIONS
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4215 NUMBER-OF-STATIC-VARIABLES:"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4216 (let ((classes 0) (member-functions 0) (member-variables 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4217 (static-functions 0) (static-variables 0))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4218 (ebrowse-for-all-trees (tree ebrowse--tree-obarray)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4219 (incf classes)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4220 (incf member-functions (length (ebrowse-ts-member-functions tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4221 (incf member-variables (length (ebrowse-ts-member-variables tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4222 (incf static-functions (length (ebrowse-ts-static-functions tree)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4223 (incf static-variables (length (ebrowse-ts-static-variables tree))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4224 (list classes member-functions member-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4225 static-functions static-variables)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4226
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4227
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4228
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4229 ;;; Global key bindings
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4230
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4231 ;;; The following can be used to bind key sequences starting with
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4232 ;;; prefix `\C-cb' to browse commands.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4233
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4234 (defvar ebrowse-global-map nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4235 "*Keymap for Ebrowse commands.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4236
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4237
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4238 (defvar ebrowse-global-prefix-key "\C-cb"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4239 "Prefix key for Ebrowse commands.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4240
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4241
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4242 (defvar ebrowse-global-submap-4 nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4243 "Keymap used for `ebrowse-global-prefix' followed by `4'.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4244
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4245
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4246 (defvar ebrowse-global-submap-5 nil
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4247 "Keymap used for `ebrowse-global-prefix' followed by `5'.")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4248
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4249
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4250 (unless ebrowse-global-map
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4251 (setq ebrowse-global-map (make-sparse-keymap))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4252 (setq ebrowse-global-submap-4 (make-sparse-keymap))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4253 (setq ebrowse-global-submap-5 (make-sparse-keymap))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4254 (define-key ebrowse-global-map "a" 'ebrowse-tags-apropos)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4255 (define-key ebrowse-global-map "b" 'ebrowse-pop-to-browser-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4256 (define-key ebrowse-global-map "-" 'ebrowse-back-in-position-stack)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4257 (define-key ebrowse-global-map "+" 'ebrowse-forward-in-position-stack)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4258 (define-key ebrowse-global-map "l" 'ebrowse-tags-list-members-in-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4259 (define-key ebrowse-global-map "m" 'ebrowse-tags-display-member-buffer)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4260 (define-key ebrowse-global-map "n" 'ebrowse-tags-next-file)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4261 (define-key ebrowse-global-map "p" 'ebrowse-electric-position-menu)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4262 (define-key ebrowse-global-map "s" 'ebrowse-tags-search)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4263 (define-key ebrowse-global-map "u" 'ebrowse-tags-search-member-use)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4264 (define-key ebrowse-global-map "v" 'ebrowse-tags-view-definition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4265 (define-key ebrowse-global-map "V" 'ebrowse-tags-view-declaration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4266 (define-key ebrowse-global-map "%" 'ebrowse-tags-query-replace)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4267 (define-key ebrowse-global-map "." 'ebrowse-tags-find-definition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4268 (define-key ebrowse-global-map "f" 'ebrowse-tags-find-definition)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4269 (define-key ebrowse-global-map "F" 'ebrowse-tags-find-declaration)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4270 (define-key ebrowse-global-map "," 'ebrowse-tags-loop-continue)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4271 (define-key ebrowse-global-map " " 'ebrowse-electric-buffer-list)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4272 (define-key ebrowse-global-map "\t" 'ebrowse-tags-complete-symbol)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4273 (define-key ebrowse-global-map "4" ebrowse-global-submap-4)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4274 (define-key ebrowse-global-submap-4 "." 'ebrowse-tags-find-definition-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4275 (define-key ebrowse-global-submap-4 "f" 'ebrowse-tags-find-definition-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4276 (define-key ebrowse-global-submap-4 "v" 'ebrowse-tags-find-declaration-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4277 (define-key ebrowse-global-submap-4 "F" 'ebrowse-tags-view-definition-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4278 (define-key ebrowse-global-submap-4 "V" 'ebrowse-tags-view-declaration-other-window)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4279 (define-key ebrowse-global-map "5" ebrowse-global-submap-5)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4280 (define-key ebrowse-global-submap-5 "." 'ebrowse-tags-find-definition-other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4281 (define-key ebrowse-global-submap-5 "f" 'ebrowse-tags-find-definition-other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4282 (define-key ebrowse-global-submap-5 "v" 'ebrowse-tags-find-declaration-other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4283 (define-key ebrowse-global-submap-5 "F" 'ebrowse-tags-view-definition-other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4284 (define-key ebrowse-global-submap-5 "V" 'ebrowse-tags-view-declaration-other-frame)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4285 (define-key global-map ebrowse-global-prefix-key ebrowse-global-map))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4286
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4287
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4288
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4289 ;;; Electric C++ browser buffer menu
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4290
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4291 ;;; Electric buffer menu customization to display only some buffers
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4292 ;;; (in this case Tree buffers). There is only one problem with this:
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4293 ;;; If the very first character typed in the buffer menu is a space,
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4294 ;;; this will select the buffer from which the buffer menu was
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4295 ;;; invoked. But this buffer is not displayed in the buffer list if
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4296 ;;; it isn't a tree buffer. I therefore let the buffer menu command
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4297 ;;; loop read the command `p' via `unread-command-char'. This command
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4298 ;;; has no effect since we are on the first line of the buffer.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4299
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4300 (defvar electric-buffer-menu-mode-hook nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4301
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4302
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4303 (defun ebrowse-hack-electric-buffer-menu ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4304 "Hack the electric buffer menu to display browser buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4305 (let (non-empty)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4306 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4307 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4308 (setq buffer-read-only nil)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4309 (goto-char 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4310 (forward-line 2)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4311 (while (not (eobp))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4312 (let ((b (Buffer-menu-buffer nil)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4313 (if (or (ebrowse-buffer-p b)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4314 (string= (buffer-name b) "*Apropos Members*"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4315 (progn (forward-line 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4316 (setq non-empty t))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4317 (delete-region (point)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4318 (save-excursion (end-of-line)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4319 (min (point-max)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4320 (1+ (point)))))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4321 (unless non-empty
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4322 (error "No tree buffers"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4323 (setf unread-command-events (listify-key-sequence "p"))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4324 (shrink-window-if-larger-than-buffer (selected-window))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4325 (setq buffer-read-only t))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4326
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4327
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4328 (defun ebrowse-select-1st-to-9nth ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4329 "Select the nth entry in the list by the keys 1..9."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4330 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4331 (let* ((maxlin (count-lines (point-min) (point-max)))
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62074
diff changeset
4332 (n (min maxlin (+ 2 (string-to-number (this-command-keys))))))
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4333 (goto-line n)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4334 (throw 'electric-buffer-menu-select (point))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4335
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4336
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4337 (defun ebrowse-install-1-to-9-keys ()
62074
c0b42702a33a (ebrowse-install-1-to-9-keys, ebrowse-print-statistics-line,
Juanma Barranquero <lekktu@gmail.com>
parents: 61394
diff changeset
4338 "Define keys 1..9 to select the 1st to 9nth entry in the list."
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4339 (dotimes (i 9)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4340 (define-key (current-local-map) (char-to-string (+ i ?1))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4341 'ebrowse-select-1st-to-9nth)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4342
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4343
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4344 (defun ebrowse-electric-buffer-list ()
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4345 "Display an electric list of Ebrowse buffers."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4346 (interactive)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4347 (unwind-protect
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4348 (progn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4349 (add-hook 'electric-buffer-menu-mode-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4350 'ebrowse-hack-electric-buffer-menu)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4351 (add-hook 'electric-buffer-menu-mode-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4352 'ebrowse-install-1-to-9-keys)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4353 (call-interactively 'electric-buffer-list))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4354 (remove-hook 'electric-buffer-menu-mode-hook
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4355 'ebrowse-hack-electric-buffer-menu)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4356
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4357
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4358 ;;; Mouse support
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4359
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4360 (defun ebrowse-mouse-find-member (event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4361 "Find the member clicked on in another frame.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4362 EVENT is a mouse button event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4363 (interactive "e")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4364 (mouse-set-point event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4365 (let (start name)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4366 (save-excursion
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4367 (skip-chars-backward "a-zA-Z0-9_")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4368 (setq start (point))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4369 (skip-chars-forward "a-zA-Z0-9_")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4370 (setq name (buffer-substring start (point))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4371 (ebrowse-tags-view/find-member-decl/defn
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4372 5 :view nil :definition t :member-name name)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4373
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4374
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4375 (defun ebrowse-popup-menu (menu event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4376 "Pop up MENU and perform an action if something was selected.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4377 EVENT is the mouse event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4378 (save-selected-window
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4379 (select-window (posn-window (event-start event)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4380 (let ((selection (x-popup-menu event menu)) binding)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4381 (while selection
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4382 (setq binding (lookup-key (or binding menu) (vector (car selection)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4383 selection (cdr selection)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4384 (when binding
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4385 (call-interactively binding)))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4386
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4387
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4388 (easy-menu-define
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
4389 ebrowse-tree-buffer-class-object-menu ebrowse-tree-mode-map
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4390 "Object menu for classes in the tree buffer"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4391 '("Class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4392 ["Functions" ebrowse-tree-command:show-member-functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4393 :help "Display a list of member functions"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4394 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4395 ["Variables" ebrowse-tree-command:show-member-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4396 :help "Display a list of member variables"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4397 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4398 ["Static Functions" ebrowse-tree-command:show-static-member-functions
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4399 :help "Display a list of static member functions"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4400 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4401 ["Static Variables" ebrowse-tree-command:show-static-member-variables
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4402 :help "Display a list of static member variables"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4403 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4404 ["Friends/ Defines" ebrowse-tree-command:show-friends
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4405 :help "Display a list of friends of a class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4406 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4407 ["Types" ebrowse-tree-command:show-types
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4408 :help "Display a list of types defined in a class"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4409 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4410 "-----------------"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4411 ["View" ebrowse-view-class-declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4412 :help "View class declaration"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4413 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4414 ["Find" ebrowse-find-class-declaration
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4415 :help "Find class declaration in file"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4416 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4417 "-----------------"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4418 ["Mark" ebrowse-toggle-mark-at-point
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4419 :help "Mark class point is on"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4420 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4421 "-----------------"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4422 ["Collapse" ebrowse-collapse-branch
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4423 :help "Collapse subtree under class point is on"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4424 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4425 ["Expand" ebrowse-expand-branch
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4426 :help "Expand subtree under class point is on"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4427 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4428
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4429
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4430 (easy-menu-define
47929
a944203778a1 (ebrowse-ts, ebrowse-view/find-file-and-search-pattern,
Juanma Barranquero <lekktu@gmail.com>
parents: 46353
diff changeset
4431 ebrowse-tree-buffer-object-menu ebrowse-tree-mode-map
28523
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4432 "Object menu for tree buffers"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4433 '("Ebrowse"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4434 ["Filename Display" ebrowse-toggle-file-name-display
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4435 :help "Toggle display of source files names"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4436 :style toggle
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4437 :selected ebrowse--show-file-names-flag
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4438 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4439 ["Tree Indentation" ebrowse-set-tree-indentation
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4440 :help "Set the tree's indentation"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4441 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4442 ["Unmark All Classes" ebrowse-mark-all-classes
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4443 :help "Unmark all classes in the class tree"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4444 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4445 ["Expand All" ebrowse-expand-all
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4446 :help "Expand all subtrees in the class tree"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4447 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4448 ["Statistics" ebrowse-statistics
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4449 :help "Show a buffer with class hierarchy statistics"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4450 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4451 ["Find Class" ebrowse-read-class-name-and-go
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4452 :help "Find a class in the tree"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4453 :active t]
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4454 ["Member Buffer" ebrowse-pop/switch-to-member-buffer-for-same-tree
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4455 :help "Show a member buffer for this class tree"
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4456 :active t]))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4457
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4458
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4459 (defun ebrowse-mouse-3-in-tree-buffer (event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4460 "Perform mouse actions in tree buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4461 EVENT is the mouse event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4462 (interactive "e")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4463 (mouse-set-point event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4464 (let* ((where (posn-point (event-start event)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4465 (property (get-text-property where 'ebrowse-what)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4466 (case (event-click-count event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4467 (1
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4468 (case property
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4469 (class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4470 (ebrowse-popup-menu ebrowse-tree-buffer-class-object-menu event))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4471 (t
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4472 (ebrowse-popup-menu ebrowse-tree-buffer-object-menu event)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4473
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4474
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4475 (defun ebrowse-mouse-2-in-tree-buffer (event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4476 "Perform mouse actions in tree buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4477 EVENT is the mouse event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4478 (interactive "e")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4479 (mouse-set-point event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4480 (let* ((where (posn-point (event-start event)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4481 (property (get-text-property where 'ebrowse-what)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4482 (case (event-click-count event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4483 (1 (case property
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4484 (class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4485 (ebrowse-tree-command:show-member-functions)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4486
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4487
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4488 (defun ebrowse-mouse-1-in-tree-buffer (event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4489 "Perform mouse actions in tree buffers.
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4490 EVENT is the mouse event."
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4491 (interactive "e")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4492 (mouse-set-point event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4493 (let* ((where (posn-point (event-start event)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4494 (property (get-text-property where 'ebrowse-what)))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4495 (case (event-click-count event)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4496 (2 (case property
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4497 (class-name
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4498 (let ((collapsed (save-excursion (skip-chars-forward "^\r\n")
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4499 (looking-at "\r"))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4500 (ebrowse-collapse-fn (not collapsed))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4501 (mark
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4502 (ebrowse-toggle-mark-at-point 1)))))))
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4503
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4504
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4505
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4506 (provide 'ebrowse)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4507
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4508 ;;; Local variables:
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4509 ;;; eval:(put 'ebrowse-output 'lisp-indent-hook 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4510 ;;; eval:(put 'ebrowse-ignoring-completion-case 'lisp-indent-hook 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4511 ;;; eval:(put 'ebrowse-save-selective 'lisp-indent-hook 0)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4512 ;;; eval:(put 'ebrowse-for-all-trees 'lisp-indent-hook 1)
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4513 ;;; End:
47e1a131eef3 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4514
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49885
diff changeset
4515 ;;; arch-tag: 4fa3c8bf-1771-479b-bcd7-b029c7c9677b
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 37426
diff changeset
4516 ;;; ebrowse.el ends here