User: ben Date: 05/11/13 11:56:10 Modified: xemacs/lisp ChangeLog diagnose.el Log: fix compile warnings diagnose.el: Conditionalize `sort-numeric-fields' on when-fboundp. Revision Changes Path 1.695 +5 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.694 retrieving revision 1.695 diff -u -p -r1.694 -r1.695 --- ChangeLog 2005/11/13 10:52:47 1.694 +++ ChangeLog 2005/11/13 10:56:09 1.695 ＠＠ -1,5 +1,10 ＠＠ 2005-11-13 Ben Wing <ben(a)xemacs.org&gt; + * diagnose.el (show-memory-usage): + Conditionalize `sort-numeric-fields' on when-fboundp. + +2005-11-13 Ben Wing <ben(a)xemacs.org&gt; + * help.el (function-arglist): Don't bomb out when fun has no documentation. 1.6 +16 -14 XEmacs/xemacs/lisp/diagnose.el Index: diagnose.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/diagnose.el,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- diagnose.el 2005/11/02 03:26:52 1.5 +++ diagnose.el 2005/11/13 10:56:09 1.6 ＠＠ -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