Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 54cc21c15cbb
children 0d2f883870bc
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1428 (end-of-line (and (looking-at "^#!") 2)) 1428 (end-of-line (and (looking-at "^#!") 2))
1429 (point)))) 1429 (point))))
1430 ;; Parse the -*- line into the `result' alist. 1430 ;; Parse the -*- line into the `result' alist.
1431 (cond ((not (search-forward "-*-" end t)) 1431 (cond ((not (search-forward "-*-" end t))
1432 ;; doesn't have one. 1432 ;; doesn't have one.
1433 nil) 1433 (setq force t))
1434 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)") 1434 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)")
1435 ;; Antiquated form: "-*- ModeName -*-". 1435 ;; Antiquated form: "-*- ModeName -*-".
1436 (setq result 1436 (setq result
1437 (list (cons 'mode 1437 (list (cons 'mode
1438 (intern (buffer-substring 1438 (intern (buffer-substring