diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-13 01:57:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-13 01:57:05 +0000 |
| commit | d4432055529388a4e88fdb3001878ecbc8a30388 (patch) | |
| tree | 2f8301e0c7205c06763b8aafe0caf85255540bab | |
| parent | de5ab37dc957b7fcd7031dc1a9f5d16e27279512 (diff) | |
| download | emacs-d4432055529388a4e88fdb3001878ecbc8a30388.tar.gz emacs-d4432055529388a4e88fdb3001878ecbc8a30388.tar.bz2 emacs-d4432055529388a4e88fdb3001878ecbc8a30388.zip | |
(Info-current-node): Remove.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/bookmark.el | 10 |
2 files changed, 8 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eded98568e4..c60a2c46e94 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-03-13 Stefan Monnier <monnier@iro.umontreal.ca> + + * bookmark.el (Info-current-node): Remove. + 2008-03-12 Juri Linkov <juri@jurta.org> * help.el (describe-project): Remove defaliases for view-todo and @@ -24,7 +28,8 @@ * comint.el: Fix up indentation and comment style. Remove `function'. * international/mule-cmds.el (reset-language-environment) - (set-language-environment-nonascii-translation): Don't set-unibyte-charset. + (set-language-environment-nonascii-translation): + Don't set-unibyte-charset. * doc-view.el: Remove all cb-args, use closures instead. (doc-view-sentinel): Merge doc-view-dvi->pdf-sentinel, diff --git a/lisp/bookmark.el b/lisp/bookmark.el index d8d90d6d6f7..5da231cf3ae 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -297,7 +297,6 @@ through a file easier.") (defvar bookmark-yank-point 0) (defvar bookmark-current-buffer nil) -(defvar Info-current-node) (defvar Info-suffix-list) ;; Helper functions. @@ -850,8 +849,7 @@ Default to file name if it's nil." (defun bookmark-buffer-name () - "Return the name of the current buffer's file, non-directory. -In Info, return the current node." + "Return the name of the current buffer's file, non-directory." (cond ;; Or are we a file? (buffer-file-name (file-name-nondirectory buffer-file-name)) @@ -885,12 +883,8 @@ In Info, return the current node." (setq bookmark-yank-point (point))))))) (insert string))) - -(defvar Info-current-file) - (defun bookmark-buffer-file-name () - "Return the current buffer's file in a way useful for bookmarks. -For example, if this is a Info buffer, return the Info file's name." + "Return the current buffer's file in a way useful for bookmarks." (cond (buffer-file-name ;; Abbreviate the path, both so it's shorter and so it's more |