comparison lisp/emacs-lisp/autoload.el @ 732:a8d94735277e

*** empty log message ***

731:5c6db33a9ef6

    ;; If the autoload section we create here uses an absolute
    ;; pathname for FILE in its header, and then Emacs is installed
    ;; under a different path on another system,
    ;; `update-autoloads-here' won't be able to find the files to be
    ;; autoloaded.  So, if FILE is in the same directory or a
    ;; subdirectory of the current buffer's file, we'll make it
    ;; relative to the current buffer's directory.
    (setq file (expand-file-name file))
    (if (and (< (length default-directory) (length file))
	     (string= default-directory
		      (substring file 0 (length default-directory))))

732:a8d94735277e

    ;; If the autoload section we create here uses an absolute
    ;; pathname for FILE in its header, and then Emacs is installed
    ;; under a different path on another system,
    ;; `update-autoloads-here' won't be able to find the files to be
    ;; autoloaded.  So, if FILE is in the same directory or a
    ;; subdirectory of the current buffer's directory, we'll make it
    ;; relative to the current buffer's directory.
    (setq file (expand-file-name file))
    (if (and (< (length default-directory) (length file))
	     (string= default-directory
		      (substring file 0 (length default-directory))))