Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
1429 (end-of-line (and (looking-at "^#!") 2)) 1429 (end-of-line (and (looking-at "^#!") 2))
1430 (point)))) 1430 (point))))
1431 ;; Parse the -*- line into the `result' alist. 1431 ;; Parse the -*- line into the `result' alist.
1432 (cond ((not (search-forward "-*-" end t)) 1432 (cond ((not (search-forward "-*-" end t))
1433 ;; doesn't have one. 1433 ;; doesn't have one.
1434 nil) 1434 (setq force t))
1435 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)") 1435 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)")
1436 ;; Antiquated form: "-*- ModeName -*-". 1436 ;; Antiquated form: "-*- ModeName -*-".
1437 (setq result 1437 (setq result
1438 (list (cons 'mode 1438 (list (cons 'mode
1439 (intern (buffer-substring 1439 (intern (buffer-substring