diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-07-02 19:20:25 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-07-02 19:20:25 +0000 |
| commit | 4ce5c22387689e206cb06d367d9ef7564f2ab79b (patch) | |
| tree | d255e3663c317d04de2cc7f4563479e7271a9257 /lisp/info.el | |
| parent | 24cc235a08f16e88a512a87d709d36a0a48199f6 (diff) | |
| download | emacs-4ce5c22387689e206cb06d367d9ef7564f2ab79b.tar.gz | |
(Info-clone-buffer-hook): Really unconditionally copy marker.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/info.el b/lisp/info.el index aaf7b1811e7..301ad5ae606 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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)))))) |