From: Gerd Moellmann Date: Wed, 19 Apr 2000 14:39:19 +0000 (+0000) Subject: (gulp-maintainer): Use expand-file-name X-Git-Tag: emacs-pretest-21.0.90~4197 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f1390acaa01b10a107dfcdbb9b480ae75e3b7e3;p=emacs.git (gulp-maintainer): Use expand-file-name instead of concat. --- diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el index 9a41864d437..096460a1961 100644 --- a/lisp/emacs-lisp/gulp.el +++ b/lisp/emacs-lisp/gulp.el @@ -152,7 +152,7 @@ That is a list of elements, each of the form (MAINTAINER PACKAGES...)." (defun gulp-maintainer (filenm dir) "Return a list (MAINTAINER TIMESTAMP) for the package FILENM in directory DIR." (save-excursion - (let* ((fl (concat dir filenm)) mnt + (let* ((fl (expand-file-name filenm dir)) mnt (timest (format-time-string "%Y-%m-%d %a %T %Z" (elt (file-attributes fl) 5)))) (set-buffer gulp-tmp-buffer)