Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
1258 (end-of-line (and (looking-at "^#!") 2)) 1258 (end-of-line (and (looking-at "^#!") 2))
1259 (point)))) 1259 (point))))
1260 ;; Parse the -*- line into the `result' alist. 1260 ;; Parse the -*- line into the `result' alist.
1261 (cond ((not (search-forward "-*-" end t)) 1261 (cond ((not (search-forward "-*-" end t))
1262 ;; doesn't have one. 1262 ;; doesn't have one.
1263 nil) 1263 (setq force t))
1264 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)") 1264 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)")
1265 ;; Antiquated form: "-*- ModeName -*-". 1265 ;; Antiquated form: "-*- ModeName -*-".
1266 (setq result 1266 (setq result
1267 (list (cons 'mode 1267 (list (cons 'mode
1268 (intern (buffer-substring 1268 (intern (buffer-substring