NOTE: This patch has been committed. lisp/ChangeLog addition: 2005-11-13 Ben Wing <ben(a)xemacs.org&gt; * diagnose.el (show-memory-usage): Conditionalize `sort-numeric-fields' on when-fboundp. build source patch: Diff command: bash -ci "cvs-diff --show-c-function -no-changelog " Files affected: lisp/diagnose.el Index: lisp/diagnose.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/diagnose.el,v retrieving revision 1.5 diff -u -p -r1.5 diagnose.el --- lisp/diagnose.el 2005/11/02 03:26:52 1.5 +++ lisp/diagnose.el 2005/11/13 10:55:22 ＠＠ -96,26 +96,28 ＠＠ (incf grandtotal (show-foo-stats 'charset (charset-list) #'charset-memory-usage)) + (when-fboundp 'sort-numeric-fields + (sort-numeric-fields -1 + (save-excursion + (goto-char begin) + (forward-line 2) + (point)) + (save-excursion + (forward-line -2) + (point)))) + (princ "\n")) + (setq begin (point)) + (incf grandtotal + (show-foo-stats 'buffer (buffer-list) #'buffer-memory-usage)) + (when-fboundp 'sort-numeric-fields (sort-numeric-fields -1 (save-excursion (goto-char begin) - (forward-line 2) + (forward-line 3) (point)) (save-excursion (forward-line -2) - (point))) - (princ "\n")) - (setq begin (point)) - (incf grandtotal - (show-foo-stats 'buffer (buffer-list) #'buffer-memory-usage)) - (sort-numeric-fields -1 - (save-excursion - (goto-char begin) - (forward-line 3) - (point)) - (save-excursion - (forward-line -2) - (point))) + (point)))) (princ "\n") (setq begin (point)) (incf grandtotal