1. Nic Ferrier
  2. emacs


leo2007  committed 3ffc4b1

Fix argument to buffer-live-p in read-char-choice

  • Participants
  • Parent commits c1377bb
  • Branches default

Comments (0)

Files changed (2)

File lisp/ChangeLog

View file
  • Ignore whitespace
+2011-10-05  Leo Liu  <sdl.web@gmail.com>
+	* subr.el (read-char-choice): Fix argument to buffer-live-p which
+	works with buffer object.
 2011-10-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 	* mpc.el (mpc-tool-bar-map): Add labels.

File lisp/subr.el

View file
  • Ignore whitespace
 	    (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))
 	   ((not (numberp char)))