# HG changeset patch
# User ben
# Date 1131879369 0
# Node ID a88e6130a523737d4e77e2847478b0d132155f61
# Parent  3fa430e1aa35e24ae8b4e7b2fbd7c865c9093837
[xemacs-hg @ 2005-11-13 10:56:09 by ben]
fix compile warnings

diagnose.el: Conditionalize `sort-numeric-fields' on when-fboundp.

diff -r 3fa430e1aa35 -r a88e6130a523 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 13 10:52:48 2005 +0000
+++ b/lisp/ChangeLog	Sun Nov 13 10:56:09 2005 +0000
@@ -1,3 +1,8 @@
+2005-11-13  Ben Wing  <ben@xemacs.org>
+
+	* diagnose.el (show-memory-usage):
+	Conditionalize `sort-numeric-fields' on when-fboundp.
+
 2005-11-13  Ben Wing  <ben@xemacs.org>
 
 	* help.el (function-arglist):
diff -r 3fa430e1aa35 -r a88e6130a523 lisp/diagnose.el
--- a/lisp/diagnose.el	Sun Nov 13 10:52:48 2005 +0000
+++ b/lisp/diagnose.el	Sun Nov 13 10:56:09 2005 +0000
@@ -96,26 +96,28 @@
 	    (incf grandtotal
 		  (show-foo-stats 'charset (charset-list)
 				  #'charset-memory-usage))
-	    (sort-numeric-fields -1
-				 (save-excursion
-				   (goto-char begin)
-				   (forward-line 2)
-				   (point))
-				 (save-excursion
-				   (forward-line -2)
-				   (point)))
+	    (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))
-	  (sort-numeric-fields -1
-			       (save-excursion
-				 (goto-char begin)
-				 (forward-line 3)
-				 (point))
-			       (save-excursion
-				 (forward-line -2)
-				 (point)))
+	  (when-fboundp 'sort-numeric-fields
+	    (sort-numeric-fields -1
+				 (save-excursion
+				   (goto-char begin)
+				   (forward-line 3)
+				   (point))
+				 (save-excursion
+				   (forward-line -2)
+				   (point))))
 	  (princ "\n")
 	  (setq begin (point))
 	  (incf grandtotal