Mercurial > hg > xemacs-beta

comparison lisp/diagnose.el @ 3278:aa0d3b22be72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-03-12 09:10:35 by crestani] Fix regexp.
author crestani
date Sun, 12 Mar 2006 09:10:39 +0000
parents 141c2920ea48
children 509d2981ffea
comparison
equal deleted inserted replaced
3277:375030024859 3278:aa0d3b22be72
140 (princ (format fmt "object" "storage")) 140 (princ (format fmt "object" "storage"))
141 (princ (make-string 40 ?-)) 141 (princ (make-string 40 ?-))
142 (princ "\n") 142 (princ "\n")
143 (map-plist #'(lambda (stat num) 143 (map-plist #'(lambda (stat num)
144 (when (string-match 144 (when (string-match
145 "\\(.*\\)-storage\\$" 145 "\\(.*\\)-storage$"
146 (symbol-name stat)) 146 (symbol-name stat))
147 (incf total num) 147 (incf total num)
148 (princ (format fmt 148 (princ (format fmt
149 (match-string 1 (symbol-name stat)) 149 (match-string 1 (symbol-name stat))
150 num))) 150 num)))