Mercurial > hg > xemacs-beta

comparison lisp/lisp.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 8efd647ea9ca
children
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
60 (interactive "_p") 60 (interactive "_p")
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 (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)) 66 (if (< arg 0) (backward-prefix-chars))
68 ;; XEmacs: evil hack! Skip back over #s so that structures are read 67 ;; XEmacs: evil hack! Skip back over #s so that structures are read
69 ;; properly. the current cheesified syntax tables just aren't up to 68 ;; properly. the current cheesified syntax tables just aren't up to
70 ;; this. 69 ;; this.
71 (if (and (< arg 0) 70 (if (and (< arg 0)