Mercurial > hg > xemacs-beta

diff lisp/format.el @ 225:12579d965149 r20-4b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b11
author cvs
date Mon, 13 Aug 2007 10:11:40 +0200
parents 2c611d1463a6
children 434959a2fba3
line wrap: on
line diff
--- a/lisp/format.el	Mon Aug 13 10:10:55 2007 +0200
+++ b/lisp/format.el	Mon Aug 13 10:11:40 2007 +0200
@@ -652,9 +652,10 @@
 					  loc (cdr (car extents))))))))
 			(setq alist (cdr alist))))
 		    (setq aalist (cdr aalist)))
-		  (if (not matched)
+		  (unless matched
 		      ;; Didn't find any match for the annotation:
 		      ;; Store as value of text-property `unknown'.
+		      (setcdr (car top-extents) loc)
 		      (let ((extents top-extents)
 			    (start (car (car top-extents)))
 			    (loc (cdr (car top-extents))))