[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/emacs-lisp/autoload.el
diff -c emacs/lisp/emacs-lisp/autoload.el:1.98.4.1 
emacs/lisp/emacs-lisp/autoload.el:1.98.4.2
*** emacs/lisp/emacs-lisp/autoload.el:1.98.4.1  Fri Apr 16 12:50:13 2004
--- emacs/lisp/emacs-lisp/autoload.el   Mon Jun 28 07:29:45 2004
***************
*** 1,6 ****
  ;; autoload.el --- maintain autoloads in loaddefs.el
  
! ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2003
  ;;   Free Software Foundation, Inc.
  
  ;; Author: Roland McGrath <address@hidden>
--- 1,6 ----
  ;; autoload.el --- maintain autoloads in loaddefs.el
  
! ;; Copyright (C) 1991,92,93,94,95,96,97, 2001,02,03,04
  ;;   Free Software Foundation, Inc.
  
  ;; Author: Roland McGrath <address@hidden>
***************
*** 407,413 ****
                       (if (and (or (null existing-buffer)
                                    (not (buffer-modified-p existing-buffer)))
                                (listp last-time) (= (length last-time) 2)
!                               (not (autoload-before-p last-time file-time)))
                           (progn
                             (if (interactive-p)
                                 (message "\
--- 407,413 ----
                       (if (and (or (null existing-buffer)
                                    (not (buffer-modified-p existing-buffer)))
                                (listp last-time) (= (length last-time) 2)
!                               (not (time-less-p last-time file-time)))
                           (progn
                             (if (interactive-p)
                                 (message "\
***************
*** 468,478 ****
  
        (if no-autoloads file))))
  
- (defun autoload-before-p (time1 time2)
-   (or (< (car time1) (car time2))
-       (and (= (car time1) (car time2))
-          (< (nth 1 time1) (nth 1 time2)))))
- 
  (defun autoload-remove-section (begin)
    (goto-char begin)
    (search-forward generate-autoload-section-trailer)
--- 468,473 ----
***************
*** 527,534 ****
                     (dolist (file file)
                       (let ((file-time (nth 5 (file-attributes file))))
                         (when (and file-time
!                                   (not (autoload-before-p last-time
!                                                           file-time)))
                           ;; file unchanged
                           (push file no-autoloads)
                           (setq files (delete file files)))))))
--- 522,528 ----
                     (dolist (file file)
                       (let ((file-time (nth 5 (file-attributes file))))
                         (when (and file-time
!                                   (not (time-less-p last-time file-time)))
                           ;; file unchanged
                           (push file no-autoloads)
                           (setq files (delete file files)))))))