From 3faf4944316a1efc840bd6dffe4315ea30a0f0e8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 2 Dec 2012 14:22:32 +0800 Subject: [PATCH] * info.el (info-display-manual): Don't clobber an existing Info buffer. Fixes: debbugs:10770 --- lisp/ChangeLog | 5 +++++ lisp/info.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec7791597f0..51756972f4a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-12-02 Juri Linkov + + * info.el (info-display-manual): Don't clobber an existing Info + buffer (Bug#10770). + 2012-12-01 Yuya Nishihara (tiny change) * vc/vc-hooks.el (vc-find-file-hook): Expand buffer-file-truename diff --git a/lisp/info.el b/lisp/info.el index b0ef5c6bc4d..f22b39769b1 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -5097,7 +5097,9 @@ type returned by `Info-bookmark-make-record', which see." ;;;###autoload (defun info-display-manual (manual) - "Go to Info buffer that displays MANUAL, creating it if none already exists." + "Display an Info buffer displaying MANUAL. +If there is an existing Info buffer for MANUAL, display it. +Otherwise, visit the manual in a new Info buffer." (interactive "sManual name: ") (let ((blist (buffer-list)) (manual-re (concat "\\(/\\|\\`\\)" manual "\\(\\.\\|\\'\\)")) @@ -5113,7 +5115,8 @@ type returned by `Info-bookmark-make-record', which see." (if found (switch-to-buffer found) (info-initialize) - (info (Info-find-file manual))))) + (info (Info-find-file manual) + (generate-new-buffer-name "*info*"))))) (provide 'info) -- 2.39.5