From 647ab96713f36faae9509246c418edfa31a569fe Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Wed, 5 Oct 2011 11:37:21 +0800 Subject: [PATCH] Fix argument to buffer-live-p in read-char-choice --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a3123c95eba..decb66eea09 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-10-05 Leo Liu + + * subr.el (read-char-choice): Fix argument to buffer-live-p which + works with buffer object. + 2011-10-05 Stefan Monnier * mpc.el (mpc-tool-bar-map): Add labels. diff --git a/lisp/subr.el b/lisp/subr.el index 4946f3eef7a..24e020acf09 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2170,7 +2170,7 @@ keyboard-quit events while waiting for a valid input." (setq prompt (propertize prompt 'face 'minibuffer-prompt))) (setq char (let ((inhibit-quit inhibit-keyboard-quit)) (read-key prompt))) - (and show-help (buffer-live-p helpbuf) + (and show-help (buffer-live-p (get-buffer helpbuf)) (kill-buffer helpbuf)) (cond ((not (numberp char))) -- 2.39.2