diff options
| author | Gerd Moellmann | 2000-04-19 14:39:19 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-04-19 14:39:19 +0000 |
| commit | 4f1390acaa01b10a107dfcdbb9b480ae75e3b7e3 (patch) | |
| tree | 2243a553a926d0c40078e57c05b94689617fe803 | |
| parent | b52425f4dd218330ca748660389bfe95ef522373 (diff) | |
| download | emacs-4f1390acaa01b10a107dfcdbb9b480ae75e3b7e3.tar.gz emacs-4f1390acaa01b10a107dfcdbb9b480ae75e3b7e3.zip | |
(gulp-maintainer): Use expand-file-name
instead of concat.
| -rw-r--r-- | lisp/emacs-lisp/gulp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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...)." | |||
| 152 | (defun gulp-maintainer (filenm dir) | 152 | (defun gulp-maintainer (filenm dir) |
| 153 | "Return a list (MAINTAINER TIMESTAMP) for the package FILENM in directory DIR." | 153 | "Return a list (MAINTAINER TIMESTAMP) for the package FILENM in directory DIR." |
| 154 | (save-excursion | 154 | (save-excursion |
| 155 | (let* ((fl (concat dir filenm)) mnt | 155 | (let* ((fl (expand-file-name filenm dir)) mnt |
| 156 | (timest (format-time-string "%Y-%m-%d %a %T %Z" | 156 | (timest (format-time-string "%Y-%m-%d %a %T %Z" |
| 157 | (elt (file-attributes fl) 5)))) | 157 | (elt (file-attributes fl) 5)))) |
| 158 | (set-buffer gulp-tmp-buffer) | 158 | (set-buffer gulp-tmp-buffer) |