Mercurial > hg > xemacs-beta

changeset 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 3fa430e1aa35
children 2f31c7aa4e96
files lisp/ChangeLog lisp/diagnose.el
diffstat 2 files changed, 23 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- 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):
--- 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