Mercurial > emacs
comparison lisp/progmodes/ebrowse.el @ 90188:01137c1fdbe9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 324-352)
- Merge from gnus--rel--5.10
- Update from CVS
- etc/emacs-buffer.gdb: Remove RCS keywords
* gnus--rel--5.10 (patch 70-79)
- Update from CVS
- Merge from emacs--cvs-trunk--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 06 Jun 2005 02:39:45 +0000 |
| parents | f042e7c0fe20 f2892faa87d4 |
| children | a1b34dec1104 |
comparison
equal
deleted
inserted
replaced
| 90187:587ea1490d70 | 90188:01137c1fdbe9 |
|---|---|
| 1160 (add-hook 'local-write-file-hooks 'ebrowse-write-file-hook-fn) | 1160 (add-hook 'local-write-file-hooks 'ebrowse-write-file-hook-fn) |
| 1161 (modify-syntax-entry ?_ (char-to-string (char-syntax ?a))) | 1161 (modify-syntax-entry ?_ (char-to-string (char-syntax ?a))) |
| 1162 (when tree | 1162 (when tree |
| 1163 (ebrowse-redraw-tree) | 1163 (ebrowse-redraw-tree) |
| 1164 (set-buffer-modified-p nil)) | 1164 (set-buffer-modified-p nil)) |
| 1165 (run-hooks 'ebrowse-tree-mode-hook))) | 1165 (run-mode-hooks 'ebrowse-tree-mode-hook))) |
| 1166 | 1166 |
| 1167 | 1167 |
| 1168 | 1168 |
| 1169 (defun ebrowse-update-tree-buffer-mode-line () | 1169 (defun ebrowse-update-tree-buffer-mode-line () |
| 1170 "Update the tree buffer mode line." | 1170 "Update the tree buffer mode line." |
| 2024 (make-local-variable 'Helper-return-blurb) | 2024 (make-local-variable 'Helper-return-blurb) |
| 2025 (setq Helper-return-blurb "return to buffer editing" | 2025 (setq Helper-return-blurb "return to buffer editing" |
| 2026 truncate-lines t | 2026 truncate-lines t |
| 2027 buffer-read-only t | 2027 buffer-read-only t |
| 2028 major-mode 'ebrowse-electric-list-mode) | 2028 major-mode 'ebrowse-electric-list-mode) |
| 2029 (run-hooks 'ebrowse-electric-list-mode-hook)) | 2029 (run-mode-hooks 'ebrowse-electric-list-mode-hook)) |
| 2030 | 2030 |
| 2031 | 2031 |
| 2032 (defun ebrowse-list-tree-buffers () | 2032 (defun ebrowse-list-tree-buffers () |
| 2033 "Display a list of all tree buffers." | 2033 "Display a list of all tree buffers." |
| 2034 (set-buffer (get-buffer-create "*Tree Buffers*")) | 2034 (set-buffer (get-buffer-create "*Tree Buffers*")) |
| 2275 ebrowse--virtual-display-flag nil | 2275 ebrowse--virtual-display-flag nil |
| 2276 ebrowse--inline-display-flag nil | 2276 ebrowse--inline-display-flag nil |
| 2277 ebrowse--const-display-flag nil | 2277 ebrowse--const-display-flag nil |
| 2278 ebrowse--pure-display-flag nil) | 2278 ebrowse--pure-display-flag nil) |
| 2279 (modify-syntax-entry ?_ (char-to-string (char-syntax ?a))) | 2279 (modify-syntax-entry ?_ (char-to-string (char-syntax ?a))) |
| 2280 (run-hooks 'ebrowse-member-mode-hook)) | 2280 (run-mode-hooks 'ebrowse-member-mode-hook)) |
| 2281 | 2281 |
| 2282 | 2282 |
| 2283 | 2283 |
| 2284 ;;; Member mode mode line | 2284 ;;; Member mode mode line |
| 2285 | 2285 |
| 3985 (make-local-variable 'Helper-return-blurb) | 3985 (make-local-variable 'Helper-return-blurb) |
| 3986 (setq Helper-return-blurb "return to buffer editing" | 3986 (setq Helper-return-blurb "return to buffer editing" |
| 3987 truncate-lines t | 3987 truncate-lines t |
| 3988 buffer-read-only t | 3988 buffer-read-only t |
| 3989 major-mode 'ebrowse-electric-position-mode) | 3989 major-mode 'ebrowse-electric-position-mode) |
| 3990 (run-hooks 'ebrowse-electric-position-mode-hook)) | 3990 (run-mode-hooks 'ebrowse-electric-position-mode-hook)) |
| 3991 | 3991 |
| 3992 | 3992 |
| 3993 (defun ebrowse-draw-position-buffer () | 3993 (defun ebrowse-draw-position-buffer () |
| 3994 "Display positions in buffer *Positions*." | 3994 "Display positions in buffer *Positions*." |
| 3995 (set-buffer (get-buffer-create "*Positions*")) | 3995 (set-buffer (get-buffer-create "*Positions*")) |