Mercurial > emacs
changeset 38262:03f0515fe575
(Info-clone-buffer-hook): Really unconditionally copy marker.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 02 Jul 2001 19:19:35 +0000 |
| parents | daf29e9ae9ed |
| children | 958842a72d40 |
| files | lisp/info.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Jul 02 15:22:16 2001 +0000 +++ b/lisp/info.el Mon Jul 02 19:19:35 2001 +0000 @@ -664,7 +664,7 @@ ;; 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 @@ (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))))))