Mercurial > hg > xemacs-beta

diff lisp/prim/lisp.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents 9f59509498e1
children 43dd3413c7c7
line wrap: on
line diff
--- a/lisp/prim/lisp.el	Mon Aug 13 09:26:41 2007 +0200
+++ b/lisp/prim/lisp.el	Mon Aug 13 09:27:39 2007 +0200
@@ -50,6 +50,7 @@
   ;; XEmacs: evil hack! The other half of the evil hack below.
   (if (and (> arg 0) (looking-at "#s("))
       (goto-char (+ (point) 2)))
+  ;; XEmacs change -- don't bomb out if unbalanced sexp
   (goto-char (or (scan-sexps (point) arg) (buffer-end arg)))
   (if (< arg 0) (backward-prefix-chars))
   ;; XEmacs: evil hack! Skip back over #s so that structures are read