Mercurial > emacs

comparison lisp/info.el @ 38225:5d26670f49df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-clone-buffer-hook): Unconditionally copy marker.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 28 Jun 2001 21:17:20 +0000
parents 39e5892b1843
children 03f0515fe575
comparison
equal deleted inserted replaced
38224:b304c4a260bd 38225:5d26670f49df
2309 (defun Info-clone-buffer-hook () 2309 (defun Info-clone-buffer-hook ()
2310 (when (bufferp Info-tag-table-buffer) 2310 (when (bufferp Info-tag-table-buffer)
2311 (setq Info-tag-table-buffer 2311 (setq Info-tag-table-buffer
2312 (with-current-buffer Info-tag-table-buffer (clone-buffer))) 2312 (with-current-buffer Info-tag-table-buffer (clone-buffer)))
2313 (let ((m Info-tag-table-marker)) 2313 (let ((m Info-tag-table-marker))
2314 (when (and (markerp m) (marker-position m)) 2314 (setq Info-tag-table-marker
2315 (setq Info-tag-table-marker 2315 (if (and (markerp m) (marker-position m))
2316 (with-current-buffer Info-tag-table-buffer 2316 (with-current-buffer Info-tag-table-buffer
2317 (copy-marker (marker-position m)))))))) 2317 (copy-marker (marker-position m)))
2318 (make-marker))))))
2318 2319
2319 (defvar Info-edit-map (let ((map (make-sparse-keymap))) 2320 (defvar Info-edit-map (let ((map (make-sparse-keymap)))
2320 (set-keymap-parent map text-mode-map) 2321 (set-keymap-parent map text-mode-map)
2321 (define-key map "\C-c\C-c" 'Info-cease-edit) 2322 (define-key map "\C-c\C-c" 'Info-cease-edit)
2322 map) 2323 map)