Index: bookmark.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bookmark.el,v
retrieving revision 1.94
diff -c -r1.94 bookmark.el
*** bookmark.el	16 Jul 2007 02:16:00 -0000	1.94
--- bookmark.el	16 Jul 2007 10:11:25 -0000
***************
*** 1045,1054 ****
    ;;Return the bookmark-alist for display.  If the bookmark-sort-flag
    ;;is non-nil, then return a sorted copy of the alist.
    (if bookmark-sort-flag
!       (setq bookmark-alist
!             (sort (copy-alist bookmark-alist)
!                   (function
!                    (lambda (x y) (string-lessp (car x) (car y))))))))
  
  
  (defvar bookmark-after-jump-hook nil
--- 1045,1054 ----
    ;;Return the bookmark-alist for display.  If the bookmark-sort-flag
    ;;is non-nil, then return a sorted copy of the alist.
    (if bookmark-sort-flag
!       (sort (copy-alist bookmark-alist)
!             (function
!              (lambda (x y) (string-lessp (car x) (car y)))))
!     bookmark-alist))
  
  
  (defvar bookmark-after-jump-hook nil
***************
*** 1590,1596 ****
      (insert "% Bookmark\n- --------\n")
      (add-text-properties (point-min) (point)
  			 '(font-lock-face bookmark-menu-heading))
-     (bookmark-maybe-sort-alist)
      (mapcar
       (lambda (full-record)
         ;; if a bookmark has an annotation, prepend a "*"
--- 1590,1595 ----
***************
*** 1613,1619 ****
  		  help-echo "mouse-2: go to this bookmark in other window")))
  	   (insert "\n")
  	   )))
!      bookmark-alist))
    (goto-char (point-min))
    (forward-line 2)
    (bookmark-bmenu-mode)
--- 1612,1618 ----
  		  help-echo "mouse-2: go to this bookmark in other window")))
  	   (insert "\n")
  	   )))
!      (bookmark-maybe-sort-alist)))
    (goto-char (point-min))
    (forward-line 2)
    (bookmark-bmenu-mode)