Mercurial > hg > xemacs-beta
diff lisp/packages/font-lock.el @ 124:9b50b4588a93 r20-1b15
Import from CVS: tag r20-1b15
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:26:39 +0200 |
parents | 8619ce7e4c50 |
children | 1370575f1259 |
line wrap: on
line diff
--- a/lisp/packages/font-lock.el Mon Aug 13 09:26:04 2007 +0200 +++ b/lisp/packages/font-lock.el Mon Aug 13 09:26:39 2007 +0200 @@ -1101,8 +1101,6 @@ (let* ((match (nth 0 highlight)) (start (match-beginning match)) (end (match-end match)) (override (nth 2 highlight))) - (and end - (goto-char end)) ;; tlp00 hack to allow for back to back fonts (let ((newface (nth 1 highlight))) (or (symbolp newface) (setq newface (eval newface)))