# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1134122395 0
# Node ID 2c1c0c628ff352a95c4355fe79b82ab562a9a0a6
# Parent  3ff7903b19d780f4db6e682a10e5eb7453cf2dac
(menu-bar-edit-menu): Add listp around pending-undo-list to disable
menu item "undo" when pending undo list is empty.

diff -r 3ff7903b19d7 -r 2c1c0c628ff3 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Fri Dec 09 09:56:39 2005 +0000
+++ b/lisp/menu-bar.el	Fri Dec 09 09:59:55 2005 +0000
@@ -481,7 +481,7 @@
 	      :enable (and (not buffer-read-only)
 			   (not (eq t buffer-undo-list))
 			   (if (eq last-command 'undo)
-			       pending-undo-list
+			       (listp pending-undo-list)
 			     (consp buffer-undo-list)))
 	      :help "Undo last operation"))