/[emacs]/emacs/lisp/emacs-lisp/autoload.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/autoload.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.98.4.1 by handa, Fri Apr 16 12:50:13 2004 UTC revision 1.98.4.2 by miles, Mon Jun 28 07:29:45 2004 UTC
# Line 1  Line 1 
1  ;; autoload.el --- maintain autoloads in loaddefs.el  ;; autoload.el --- maintain autoloads in loaddefs.el
2    
3  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2003  ;; Copyright (C) 1991,92,93,94,95,96,97, 2001,02,03,04
4  ;;   Free Software Foundation, Inc.  ;;   Free Software Foundation, Inc.
5    
6  ;; Author: Roland McGrath <roland@gnu.org>  ;; Author: Roland McGrath <roland@gnu.org>
# Line 407  Return FILE if there was no autoload coo Line 407  Return FILE if there was no autoload coo
407                         (if (and (or (null existing-buffer)                         (if (and (or (null existing-buffer)
408                                      (not (buffer-modified-p existing-buffer)))                                      (not (buffer-modified-p existing-buffer)))
409                                  (listp last-time) (= (length last-time) 2)                                  (listp last-time) (= (length last-time) 2)
410                                  (not (autoload-before-p last-time file-time)))                                  (not (time-less-p last-time file-time)))
411                             (progn                             (progn
412                               (if (interactive-p)                               (if (interactive-p)
413                                   (message "\                                   (message "\
# Line 468  Autoload section for %s is up to date." Line 468  Autoload section for %s is up to date."
468    
469        (if no-autoloads file))))        (if no-autoloads file))))
470    
 (defun autoload-before-p (time1 time2)  
   (or (< (car time1) (car time2))  
       (and (= (car time1) (car time2))  
            (< (nth 1 time1) (nth 1 time2)))))  
   
471  (defun autoload-remove-section (begin)  (defun autoload-remove-section (begin)
472    (goto-char begin)    (goto-char begin)
473    (search-forward generate-autoload-section-trailer)    (search-forward generate-autoload-section-trailer)
# Line 527  directory or directories specified." Line 522  directory or directories specified."
522                       (dolist (file file)                       (dolist (file file)
523                         (let ((file-time (nth 5 (file-attributes file))))                         (let ((file-time (nth 5 (file-attributes file))))
524                           (when (and file-time                           (when (and file-time
525                                      (not (autoload-before-p last-time                                      (not (time-less-p last-time file-time)))
                                                             file-time)))  
526                             ;; file unchanged                             ;; file unchanged
527                             (push file no-autoloads)                             (push file no-autoloads)
528                             (setq files (delete file files)))))))                             (setq files (delete file files)))))))

Legend:
Removed from v.1.98.4.1  
changed lines
  Added in v.1.98.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26