From d4432055529388a4e88fdb3001878ecbc8a30388 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 13 Mar 2008 01:57:05 +0000 Subject: [PATCH] (Info-current-node): Remove. --- lisp/ChangeLog | 7 ++++++- 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 + + * bookmark.el (Info-current-node): Remove. + 2008-03-12 Juri Linkov * 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 -- 2.11.4.GIT