Commit 4ce5c223 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 24cc235a
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> 2001-07-02 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/cl-macs.el (cl-do-arglist): Revert change of * emacs-lisp/cl-macs.el (cl-do-arglist): Revert change of 2000-10-15.
2000-10-15.
2001-07-02 Eli Zaretskii <eliz@is.elta.co.il> 2001-07-02 Eli Zaretskii <eliz@is.elta.co.il>
* allout.el: Fix the header line, so that finder.el recognizes it. * allout.el: Fix the header line, so that finder.el recognizes it.
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>. From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
* emacs-lisp/lisp-mnt.el (lm-header-prefix): Doc fix. From Pavel * emacs-lisp/lisp-mnt.el (lm-header-prefix): Doc fix.
Jan,Bm(Bk <Pavel@Janik.cz>. From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
2001-06-29 Eli Zaretskii <eliz@is.elta.co.il> 2001-06-29 Eli Zaretskii <eliz@is.elta.co.il>
* term/w32-win.el (x-colors): Add colors from the recent rgb.txt * term/w32-win.el (x-colors): Add colors from the recent rgb.txt file.
file.
* ps-bdf.el (bdf-directory-list): Use the value relative to * ps-bdf.el (bdf-directory-list): Use the value relative to
installation-directory for MS-Windows as well. installation-directory for MS-Windows as well.
...@@ -36,7 +38,7 @@ ...@@ -36,7 +38,7 @@
(rmail-msg-restore-non-pruned-header): Likewise. (rmail-msg-restore-non-pruned-header): Likewise.
If point was in the old pruned header, put it at the top. 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. (rmail-msg-prune-header): If point was at the top, keep it there.
* mail/rmail.el (rmail-narrow-to-non-pruned-header): New function. * mail/rmail.el (rmail-narrow-to-non-pruned-header): New function.
(rmail-retry-failure): Use rmail-narrow-to-non-pruned-header. (rmail-retry-failure): Use rmail-narrow-to-non-pruned-header.
......
...@@ -664,7 +664,7 @@ a case-insensitive match is tried." ...@@ -664,7 +664,7 @@ a case-insensitive match is tried."
;; Search file for a suitable node. ;; Search file for a suitable node.
(let ((guesspos (point-min)) (let ((guesspos (point-min))
(regexp (concat "\\(Node:\\|Ref:\\) *\\(" (regexp (concat "\\(Node:\\|Ref:\\) *\\("
(if (stringp nodename) (if (stringp nodename)
(regexp-quote nodename) (regexp-quote nodename)
"") "")
"\\) *[,\t\n\177]")) "\\) *[,\t\n\177]"))
...@@ -2309,10 +2309,11 @@ Advanced commands: ...@@ -2309,10 +2309,11 @@ Advanced commands:
(defun Info-clone-buffer-hook () (defun Info-clone-buffer-hook ()
(when (bufferp Info-tag-table-buffer) (when (bufferp Info-tag-table-buffer)
(setq Info-tag-table-buffer (setq Info-tag-table-buffer
(with-current-buffer Info-tag-table-buffer (clone-buffer))) (with-current-buffer Info-tag-table-buffer (clone-buffer))))
(let ((m Info-tag-table-marker)) (let ((m Info-tag-table-marker))
(when (markerp m)
(setq Info-tag-table-marker (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 (with-current-buffer Info-tag-table-buffer
(copy-marker (marker-position m))) (copy-marker (marker-position m)))
(make-marker)))))) (make-marker))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment