Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 4817:0142cb4d1049

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a bug I introduced in #'with-trapping-errors. 2010-01-09 Aidan Kehoe <kehoea@parhasard.net> * subr.el (with-trapping-errors): Fix a bug here, where I used a normal quote instead of a backquote. Thank you the byte-compiler.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 09 Jan 2010 14:55:13 +0000
parents fd36a980d701
children 755ae5b97edb
comparison
equal deleted inserted replaced
4816:576f09d387d5 4817:0142cb4d1049
1507 ',call-trapping-errors-arg))))) 1507 ',call-trapping-errors-arg)))))
1508 #'(lambda () 1508 #'(lambda ()
1509 (progn ,@keys-body))) 1509 (progn ,@keys-body)))
1510 (error 1510 (error
1511 ,error-form 1511 ,error-form
1512 ,@(if resignal '((signal (car ,cte-cc-var) (cdr ,cte-cc-var))))) 1512 ,@(if resignal `((signal (car ,cte-cc-var) (cdr ,cte-cc-var)))))
1513 ))) 1513 )))
1514 1514
1515 ;;;; Miscellanea. 1515 ;;;; Miscellanea.
1516 1516
1517 ;; This is now in C. 1517 ;; This is now in C.