Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
48 (interactive "_p") 48 (interactive "_p")
49 (or arg (setq arg 1)) 49 (or arg (setq arg 1))
50 ;; XEmacs: evil hack! The other half of the evil hack below. 50 ;; XEmacs: evil hack! The other half of the evil hack below.
51 (if (and (> arg 0) (looking-at "#s(")) 51 (if (and (> arg 0) (looking-at "#s("))
52 (goto-char (+ (point) 2))) 52 (goto-char (+ (point) 2)))
53 ;; XEmacs change -- don't bomb out if unbalanced sexp
53 (goto-char (or (scan-sexps (point) arg) (buffer-end arg))) 54 (goto-char (or (scan-sexps (point) arg) (buffer-end arg)))
54 (if (< arg 0) (backward-prefix-chars)) 55 (if (< arg 0) (backward-prefix-chars))
55 ;; XEmacs: evil hack! Skip back over #s so that structures are read 56 ;; XEmacs: evil hack! Skip back over #s so that structures are read
56 ;; properly. the current cheesified syntax tables just aren't up to 57 ;; properly. the current cheesified syntax tables just aren't up to
57 ;; this. 58 ;; this.