Mercurial > hg > xemacs-beta

comparison lisp/utils/highlight-headers.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
228 (save-excursion (re-search-forward "^From: *" 228 (save-excursion (re-search-forward "^From: *"
229 nil t))) 229 nil t)))
230 (setq e (make-extent (match-end 0) 230 (setq e (make-extent (match-end 0)
231 (match-end 0)))) 231 (match-end 0))))
232 (t 232 (t
233 ;; okay, make the beginning of the the invisible 233 ;; okay, make the beginning of the invisible
234 ;; move forward to only hide the modem noise... 234 ;; move forward to only hide the modem noise...
235 (set-extent-endpoints e 235 (set-extent-endpoints e
236 (match-beginning 2) 236 (match-beginning 2)
237 (1- (match-end 2))) 237 (1- (match-end 2)))
238 ;; kludge: if a zero-length extent exists at the 238 ;; kludge: if a zero-length extent exists at the