Mercurial > hg > xemacs-beta

diff lisp/prim/cmdloop.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 56c54cf7c5b6
children 7d55a9ba150c
line wrap: on
line diff
--- a/lisp/prim/cmdloop.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/prim/cmdloop.el	Mon Aug 13 09:02:59 2007 +0200
@@ -16,7 +16,7 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with XEmacs; see the file COPYING.  If not, write to the 
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Free Software Foundation, 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Synched up with: FSF 19.30. (Some of the stuff below is in FSF's subr.el.)
@@ -341,11 +341,9 @@
                   (inhibit-quit t))
               (message "%s%s%s" pre prompt yn)
               (setq event (next-command-event event))
-	      (condition-case nil
-		  (prog1
-		      (or quit-flag (eq 'keyboard-quit (key-binding event)))
-		    (setq quit-flag nil))
-		(wrong-type-argument t)))
+              (prog1
+		  (or quit-flag (eq 'keyboard-quit (key-binding event)))
+		(setq quit-flag nil)))
             (progn
               (message "%s%s%s%s" pre prompt yn (single-key-description event))
               (setq quit-flag nil)