Mercurial > hg > xemacs-beta

diff lisp/packages/pending-del.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 1370575f1259
line wrap: on
line diff
--- a/lisp/packages/pending-del.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/packages/pending-del.el	Mon Aug 13 09:02:59 2007 +0200
@@ -48,19 +48,15 @@
 	t)))
 
 (defun pending-delete-pre-hook ()
-  ;; don't ever signal an error in pre-command-hook!
-  (condition-case e
-      (let ((type (and (symbolp this-command)
-		       (get this-command 'pending-delete))))
-	(cond ((eq type 'kill)
-	       (delete-active-region t))
-	      ((eq type 'supersede)
-	       (if (delete-active-region ())
-		   (setq this-command '(lambda () (interactive)))))
-	      (type
-	       (delete-active-region ()))))
-    (error
-     (warn "Error caught in `pending-delete-pre-hook': %s" e))))
+  (let ((type (and (symbolp this-command)
+		   (get this-command 'pending-delete))))
+    (cond ((eq type 'kill)
+	   (delete-active-region t))
+	  ((eq type 'supersede)
+	   (if (delete-active-region ())
+	       (setq this-command '(lambda () (interactive)))))
+	  (type
+	   (delete-active-region ())))))
 
 (put 'self-insert-command 'pending-delete t)