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

(Info-clone-buffer-hook): Really unconditionally copy marker.

Browse Source
This commit is contained in:
Stefan Monnier 2001-07-02 19:20:25 +00:00
parent 24cc235a08
commit 4ce5c22387
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ChangeLog
View File

@ -1,20 +1,22 @@
2001-07-02 Stefan Monnier <monnier@cs.yale.edu>
* info.el (Info-clone-buffer-hook): Really unconditionally copy marker.
2001-07-02 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/cl-macs.el (cl-do-arglist): Revert change of
2000-10-15.
* emacs-lisp/cl-macs.el (cl-do-arglist): Revert change of 2000-10-15.
2001-07-02 Eli Zaretskii <eliz@is.elta.co.il>
* allout.el: Fix the header line, so that finder.el recognizes it.
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
* emacs-lisp/lisp-mnt.el (lm-header-prefix): Doc fix. From Pavel
Jan,Bm(Bk <Pavel@Janik.cz>.
* emacs-lisp/lisp-mnt.el (lm-header-prefix): Doc fix.
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
2001-06-29 Eli Zaretskii <eliz@is.elta.co.il>
* term/w32-win.el (x-colors): Add colors from the recent rgb.txt
file.
* term/w32-win.el (x-colors): Add colors from the recent rgb.txt file.
* ps-bdf.el (bdf-directory-list): Use the value relative to
installation-directory for MS-Windows as well.
@ -36,7 +38,7 @@
(rmail-msg-restore-non-pruned-header): Likewise.
If point was in the old pruned header, put it at the top.
(rmail-msg-prune-header): If point was at the top, keep it there.
* mail/rmail.el (rmail-narrow-to-non-pruned-header): New function.
(rmail-retry-failure): Use rmail-narrow-to-non-pruned-header.

9
lisp/info.el
View File

@ -664,7 +664,7 @@ a case-insensitive match is tried."
;; Search file for a suitable node.
(let ((guesspos (point-min))
(regexp (concat "\\(Node:\\|Ref:\\) *\\("
(if (stringp nodename)
(if (stringp nodename)
(regexp-quote nodename)
"")
"\\) *[,\t\n\177]"))
@ -2309,10 +2309,11 @@ Advanced commands:
(defun Info-clone-buffer-hook ()
(when (bufferp Info-tag-table-buffer)
(setq Info-tag-table-buffer
(with-current-buffer Info-tag-table-buffer (clone-buffer)))
(let ((m Info-tag-table-marker))
(with-current-buffer Info-tag-table-buffer (clone-buffer))))
(let ((m Info-tag-table-marker))
(when (markerp m)
(setq Info-tag-table-marker
(if (and (markerp m) (marker-position m))
(if (and (marker-position m) (bufferp Info-tag-table-buffer))
(with-current-buffer Info-tag-table-buffer
(copy-marker (marker-position m)))
(make-marker))))))