diff options
| author | Lute Kamstra | 2005-05-26 12:28:39 +0000 |
|---|---|---|
| committer | Lute Kamstra | 2005-05-26 12:28:39 +0000 |
| commit | f33cee8546e0f31ec1920b5db0559854a3502bad (patch) | |
| tree | a4dda873be1e7c0f3949102849177c777ca313f7 | |
| parent | 562f26cb58ef115f9eff571ec2daa719ac5a20b9 (diff) | |
| download | emacs-f33cee8546e0f31ec1920b5db0559854a3502bad.tar.gz emacs-f33cee8546e0f31ec1920b5db0559854a3502bad.zip | |
(bookmark-read-annotation-mode, bookmark-edit-annotation-mode)
(bookmark-bmenu-mode): Use run-mode-hooks.
| -rw-r--r-- | lisp/bookmark.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 0696f929584..bbf9b3bcce4 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -866,7 +866,7 @@ the annotation. | |||
| 866 | (use-local-map bookmark-read-annotation-mode-map) | 866 | (use-local-map bookmark-read-annotation-mode-map) |
| 867 | (setq major-mode 'bookmark-read-annotation-mode) | 867 | (setq major-mode 'bookmark-read-annotation-mode) |
| 868 | (insert (funcall bookmark-read-annotation-text-func bookmark)) | 868 | (insert (funcall bookmark-read-annotation-text-func bookmark)) |
| 869 | (run-hooks 'text-mode-hook)) | 869 | (run-mode-hooks 'text-mode-hook)) |
| 870 | 870 | ||
| 871 | 871 | ||
| 872 | (defun bookmark-read-annotation (parg bookmark) | 872 | (defun bookmark-read-annotation (parg bookmark) |
| @@ -903,7 +903,7 @@ When you have finished composing, type \\[bookmark-send-annotation]. | |||
| 903 | (let ((annotation (bookmark-get-annotation bookmark))) | 903 | (let ((annotation (bookmark-get-annotation bookmark))) |
| 904 | (if (and annotation (not (string-equal annotation ""))) | 904 | (if (and annotation (not (string-equal annotation ""))) |
| 905 | (insert annotation))) | 905 | (insert annotation))) |
| 906 | (run-hooks 'text-mode-hook)) | 906 | (run-mode-hooks 'text-mode-hook)) |
| 907 | 907 | ||
| 908 | 908 | ||
| 909 | (defun bookmark-send-edited-annotation () | 909 | (defun bookmark-send-edited-annotation () |
| @@ -1618,7 +1618,7 @@ Bookmark names preceded by a \"*\" have annotations. | |||
| 1618 | (setq buffer-read-only t) | 1618 | (setq buffer-read-only t) |
| 1619 | (setq major-mode 'bookmark-bmenu-mode) | 1619 | (setq major-mode 'bookmark-bmenu-mode) |
| 1620 | (setq mode-name "Bookmark Menu") | 1620 | (setq mode-name "Bookmark Menu") |
| 1621 | (run-hooks 'bookmark-bmenu-mode-hook)) | 1621 | (run-mode-hooks 'bookmark-bmenu-mode-hook)) |
| 1622 | 1622 | ||
| 1623 | 1623 | ||
| 1624 | (defun bookmark-bmenu-toggle-filenames (&optional show) | 1624 | (defun bookmark-bmenu-toggle-filenames (&optional show) |