comparison lisp/emacs-lisp/autoload.el @ 81604:feafa882a0cf

(autoload-modified-buffers): New var. (autoload-find-destination): Keep it uptodate. (autoload-save-buffers): New fun. (update-file-autoloads): Use it. Re-add the "up to date" message.

81603:6a5ecb520686

      (or visited
          ;; We created this buffer, so we should kill it.
          (kill-buffer (current-buffer))))
    (not output-start)))

;;;###autoload
(defun update-file-autoloads (file &optional save-after)
  "Update the autoloads for FILE in `generated-autoload-file'
\(which FILE might bind in its local variables).
If SAVE-AFTER is non-nil (which is always, when called interactively),
save the buffer too.

Return FILE if there was no autoload cookie in it, else nil."
  (interactive "fUpdate autoloads for file: \np")
  (let ((existing-buffer (get-file-buffer file)))
    (with-temp-buffer
      ;; Let's presume the file is not visited, so we call
      ;; autoload-find-destination from a dummy buffer, except if the file
      ;; is visited, in which case we use that buffer instead.
      (if existing-buffer (set-buffer existing-buffer))

      (catch 'up-to-date
        (let ((buf (autoload-find-destination file)))
          (with-current-buffer buf
            (let ((no-autoloads (generate-file-autoloads file)))
              
              (and save-after
                   (buffer-modified-p)
                   (save-buffer))

              (if no-autoloads file))))))))

(defun autoload-find-destination (file)
  "Find the destination point of the current buffer's autoloads.
FILE is the file name of the current buffer.
Returns a buffer whose point is placed at the requested location.

      (or found
          (progn
            ;; No later sections in the file.  Put before the last page.
            (goto-char (point-max))
            (search-backward "\f" nil t)))
      (current-buffer))))

(defun autoload-remove-section (begin)
  (goto-char begin)
  (search-forward generate-autoload-section-trailer)

81604:feafa882a0cf

      (or visited
          ;; We created this buffer, so we should kill it.
          (kill-buffer (current-buffer))))
    (not output-start)))

(defvar autoload-modified-buffers nil)

(defun autoload-save-buffers ()
  (while autoload-modified-buffers
    (with-current-buffer (pop autoload-modified-buffers)
      (save-buffer))))

;;;###autoload
(defun update-file-autoloads (file &optional save-after)
  "Update the autoloads for FILE in `generated-autoload-file'
\(which FILE might bind in its local variables).
If SAVE-AFTER is non-nil (which is always, when called interactively),
save the buffer too.

Return FILE if there was no autoload cookie in it, else nil."
  (interactive "fUpdate autoloads for file: \np")
  (let ((existing-buffer (get-file-buffer file))
        (no-autoloads nil))
    (with-temp-buffer
      ;; Let's presume the file is not visited, so we call
      ;; autoload-find-destination from a dummy buffer, except if the file
      ;; is visited, in which case we use that buffer instead.
      (if existing-buffer (set-buffer existing-buffer))

      (if (catch 'up-to-date
            (with-current-buffer (autoload-find-destination file)
              (setq no-autoloads (generate-file-autoloads file))
              t))
          (if save-after (autoload-save-buffers))
        (if (interactive-p)
            (message "Autoload section for %s is up to date." file))))
    ;; If we caught `up-to-date', it means there are autoload entries, since
    ;; otherwise we wouldn't have detected their up-to-dateness.
    (if no-autoloads file)))

(defun autoload-find-destination (file)
  "Find the destination point of the current buffer's autoloads.
FILE is the file name of the current buffer.
Returns a buffer whose point is placed at the requested location.

      (or found
          (progn
            ;; No later sections in the file.  Put before the last page.
            (goto-char (point-max))
            (search-backward "\f" nil t)))
      (unless (memq (current-buffer) autoload-modified-buffers)
        (push (current-buffer) autoload-modified-buffers))
      (current-buffer))))

(defun autoload-remove-section (begin)
  (goto-char begin)
  (search-forward generate-autoload-section-trailer)