[Emacs-diffs] emacs/lisp ChangeLog ibuffer.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/12/04 23:58:17

Modified files:
        lisp           : ChangeLog ibuffer.el 

Log message:
        * ibuffer.el (ibuffer-sort-bufferlist): Require ibuf-ext
          if the sorting functions are not loaded.  (Bug#1432)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14915&r2=1.14916
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ibuffer.el?cvsroot=emacs&r1=1.110&r2=1.111

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14915
retrieving revision 1.14916
diff -u -b -r1.14915 -r1.14916
--- ChangeLog   4 Dec 2008 23:04:39 -0000       1.14915
+++ ChangeLog   4 Dec 2008 23:58:14 -0000       1.14916
@@ -1,3 +1,8 @@
+2008-12-04  Juanma Barranquero  <address@hidden>
+
+       * ibuffer.el (ibuffer-sort-bufferlist): Require ibuf-ext
+       if the sorting functions are not loaded.  (Bug#1432)
+
 2008-12-04  Sam Steingold  <address@hidden>
 
        * progmodes/compile.el (compilation-read-command): Extracted from
@@ -11817,7 +11822,6 @@
        systems without 12 months per year.
 
        (calendar-date-is-visible-p): Doc fix.  Simplify.
-
        * calendar/holidays.el (holiday-filter-visible-calendar): Return result
        from dolist.
 

Index: ibuffer.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ibuffer.el,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -b -r1.110 -r1.111
--- ibuffer.el  8 Oct 2008 05:02:09 -0000       1.110
+++ ibuffer.el  4 Dec 2008 23:58:17 -0000       1.111
@@ -2191,6 +2191,9 @@
              ibuffer-header-line-format)))
 
 (defun ibuffer-sort-bufferlist (bmarklist)
+  (unless ibuffer-sorting-functions-alist
+    ;; make sure the sorting functions are loaded
+    (require 'ibuf-ext))
   (let* ((sortdat (assq ibuffer-sorting-mode
                        ibuffer-sorting-functions-alist))
         (func (caddr sortdat)))