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> |
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 "\ |
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) |
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))))))) |