Mercurial > emacs
comparison lisp/progmodes/ebrowse.el @ 62772:f2892faa87d4
* progmodes/ada-mode.el (ada-mode):
* progmodes/antlr-mode.el (antlr-mode):
* progmodes/autoconf.el (autoconf-mode):
* progmodes/dcl-mode.el (dcl-mode):
* progmodes/delphi.el (delphi-mode):
* progmodes/ebrowse.el (ebrowse-tree-mode)
(ebrowse-electric-list-mode, ebrowse-member-mode)
(ebrowse-electric-position-mode):
* progmodes/f90.el (f90-mode):
* progmodes/fortran.el (fortran-mode):
* progmodes/icon.el (icon-mode):
* progmodes/idlw-help.el (idlwave-help-mode):
* progmodes/idlw-shell.el (idlwave-shell-mode):
* progmodes/idlwave.el (idlwave-mode):
* progmodes/inf-lisp.el (inferior-lisp-mode):
* progmodes/m4-mode.el (m4-mode):
* progmodes/meta-mode.el (metafont-mode, metapost-mode):
* progmodes/modula2.el (modula-2-mode):
* progmodes/octave-inf.el (inferior-octave-mode):
* progmodes/octave-mod.el (octave-mode):
* progmodes/pascal.el (pascal-mode):
* progmodes/sh-script.el (sh-mode):
* progmodes/sql.el (sql-mode, sql-interactive-mode):
* progmodes/vhdl-mode.el (vhdl-mode):
* progmodes/xscheme.el (scheme-interaction-mode): Use run-mode-hooks.
author | Lute Kamstra <lute@gnu.org> |
---|---|
date | Thu, 26 May 2005 16:39:28 +0000 |
parents | a7e02ef1e3d6 |
children | b9811baefe1a 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
62771:a0b0cf078b7b | 62772:f2892faa87d4 |
---|---|
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*")) |