procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-clone-buffer-hook): Unconditionally copy marker.

Browse source
This commit is contained in:
Stefan Monnier 2001-06-28 21:17:27 +00:00
parent 19a448e357
commit 15533ae2bf
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,11 +1,15 @@
2001-06-28 Stefan Monnier <monnier@cs.yale.edu>
* info.el (Info-clone-buffer-hook): Unconditionally copy marker.
2001-06-28 Karl Fogel <kfogel@red-bean.com>
* saveplace.el: Update maintainer email address.
2001-06-27 Francesco Potorti` <pot@gnu.org>
* uniquify.el: (uniquify-rationalize-file-buffer-names): Undo
previous change.
* uniquify.el: (uniquify-rationalize-file-buffer-names):
Undo previous change.
2001-06-27 Francesco Potorti` <pot@gnu.org>
@ -27,8 +31,7 @@
2001-06-26 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
* mail/rmail.el (rmail-msg-restore-non-pruned-header): New
function.
* mail/rmail.el (rmail-msg-restore-non-pruned-header): New function.
(rmail-msg-prune-header): Likewise.
(rmail-toggle-header): Use `rmail-msg-restore-non-pruned-header'
and `rmail-msg-prune-header'.

9
lisp/info.el
View file

@ -2311,10 +2311,11 @@ Advanced commands:
(setq Info-tag-table-buffer
(with-current-buffer Info-tag-table-buffer (clone-buffer)))
(let ((m Info-tag-table-marker))
(when (and (markerp m) (marker-position m))
(setq Info-tag-table-marker
(with-current-buffer Info-tag-table-buffer
(copy-marker (marker-position m))))))))
(setq Info-tag-table-marker
(if (and (markerp m) (marker-position m))
(with-current-buffer Info-tag-table-buffer
(copy-marker (marker-position m)))
(make-marker))))))
(defvar Info-edit-map (let ((map (make-sparse-keymap)))
(set-keymap-parent map text-mode-map)