Mercurial > hg > xemacs-beta

comparison lisp/diagnose.el @ 3066:a88e6130a523

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-11-13 10:56:09 by ben] fix compile warnings diagnose.el: Conditionalize `sort-numeric-fields' on when-fboundp.
author ben
date Sun, 13 Nov 2005 10:56:09 +0000
parents 876730d84b73
children 141c2920ea48
comparison
equal deleted inserted replaced
3065:3fa430e1aa35 3066:a88e6130a523
94 (when-fboundp 'charset-list 94 (when-fboundp 'charset-list
95 (setq begin (point)) 95 (setq begin (point))
96 (incf grandtotal 96 (incf grandtotal
97 (show-foo-stats 'charset (charset-list) 97 (show-foo-stats 'charset (charset-list)
98 #'charset-memory-usage)) 98 #'charset-memory-usage))
99 (sort-numeric-fields -1 99 (when-fboundp 'sort-numeric-fields
100 (save-excursion 100 (sort-numeric-fields -1
101 (goto-char begin) 101 (save-excursion
102 (forward-line 2) 102 (goto-char begin)
103 (point)) 103 (forward-line 2)
104 (save-excursion 104 (point))
105 (forward-line -2) 105 (save-excursion
106 (point))) 106 (forward-line -2)
107 (point))))
107 (princ "\n")) 108 (princ "\n"))
108 (setq begin (point)) 109 (setq begin (point))
109 (incf grandtotal 110 (incf grandtotal
110 (show-foo-stats 'buffer (buffer-list) #'buffer-memory-usage)) 111 (show-foo-stats 'buffer (buffer-list) #'buffer-memory-usage))
111 (sort-numeric-fields -1 112 (when-fboundp 'sort-numeric-fields
112 (save-excursion 113 (sort-numeric-fields -1
113 (goto-char begin) 114 (save-excursion
114 (forward-line 3) 115 (goto-char begin)
115 (point)) 116 (forward-line 3)
116 (save-excursion 117 (point))
117 (forward-line -2) 118 (save-excursion
118 (point))) 119 (forward-line -2)
120 (point))))
119 (princ "\n") 121 (princ "\n")
120 (setq begin (point)) 122 (setq begin (point))
121 (incf grandtotal 123 (incf grandtotal
122 (show-foo-stats 'window (mapcan #'(lambda (fr) 124 (show-foo-stats 'window (mapcan #'(lambda (fr)
123 (window-list fr t)) 125 (window-list fr t))