procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(autoload-before-p): Remove.

Browse source 
(update-file-autoloads, update-directory-autoloads): Use `time-less-p'.
This commit is contained in:
Juanma Barranquero 2004-04-27 22:46:52 +00:00
parent 1c226f2ba5
commit 66dc9a0f2f
2 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/autoload.el
View file

@ -1,6 +1,6 @@
;; autoload.el --- maintain autoloads in loaddefs.el
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2003
;; Copyright (C) 1991,92,93,94,95,96,97, 2001,02,03,04
;; Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.org>
@ -407,7 +407,7 @@ Return FILE if there was no autoload cookie in it."
(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)))
(not (time-less-p last-time file-time)))
(progn
(if (interactive-p)
(message "\
@ -468,11 +468,6 @@ Autoload section for %s is up to date."
(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)
@ -527,8 +522,7 @@ directory or directories specified."
(dolist (file file)
(let ((file-time (nth 5 (file-attributes file))))
(when (and file-time
(not (autoload-before-p last-time
file-time)))
(not (time-less-p last-time file-time)))
;; file unchanged
(push file no-autoloads)
(setq files (delete file files)))))))