mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(Info-current-node): Remove.

Browse Source
This commit is contained in:
Stefan Monnier 2008-03-13 01:57:05 +00:00
parent de5ab37dc9
commit d443205552
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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,

10
lisp/bookmark.el
View File

@ -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