Mercurial > hg > xemacs-beta

comparison lisp/lisp.el @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 41ff10fd062f
children 966663fcf606
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
61 (or arg (setq arg 1)) 61 (or arg (setq arg 1))
62 ;; XEmacs: evil hack! The other half of the evil hack below. 62 ;; XEmacs: evil hack! The other half of the evil hack below.
63 (if (and (> arg 0) (looking-at "#s(")) 63 (if (and (> arg 0) (looking-at "#s("))
64 (goto-char (+ (point) 2))) 64 (goto-char (+ (point) 2)))
65 ;; XEmacs change -- don't bomb out if unbalanced sexp 65 ;; XEmacs change -- don't bomb out if unbalanced sexp
66 (goto-char (or (scan-sexps (point) arg) (buffer-end arg))) 66 (goto-char (or (scan-sexps (point) arg nil t) (buffer-end arg)))
67 (if (< arg 0) (backward-prefix-chars)) 67 (if (< arg 0) (backward-prefix-chars))
68 ;; XEmacs: evil hack! Skip back over #s so that structures are read 68 ;; XEmacs: evil hack! Skip back over #s so that structures are read
69 ;; properly. the current cheesified syntax tables just aren't up to 69 ;; properly. the current cheesified syntax tables just aren't up to
70 ;; this. 70 ;; this.
71 (if (and (< arg 0) 71 (if (and (< arg 0)