Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents 2f8bb876ab1d
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
1540 (point)))) 1540 (point))))
1541 ;; Parse the -*- line into the `result' alist. 1541 ;; Parse the -*- line into the `result' alist.
1542 (cond ((not (search-forward "-*-" end t)) 1542 (cond ((not (search-forward "-*-" end t))
1543 ;; doesn't have one. 1543 ;; doesn't have one.
1544 (setq force t)) 1544 (setq force t))
1545 ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)") 1545 ((looking-at "[ \t]*\\([^ \t\n\r:;]+?\\)\\([ \t]*-\\*-\\)")
1546 ;; Antiquated form: "-*- ModeName -*-". 1546 ;; Antiquated form: "-*- ModeName -*-".
1547 (setq result 1547 (setq result
1548 (list (cons 'mode 1548 (list (cons 'mode
1549 (intern (buffer-substring 1549 (intern (buffer-substring
1550 (match-beginning 1) 1550 (match-beginning 1)