tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Use `expand-file-name' instead of `file-true-name'. 

Also remove unused alias for `dired-files-attributes'.
This commit is contained in:
Bastien Guerry 2008-03-04 01:12:05 +00:00
parent 71a582cc52
commit 1336cd8999
1 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
org-publish.el
View File

@ -338,22 +338,6 @@ Also set it if the optional argument REFRESH is non-nil."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Compatibility aliases
;; Looks like dired-files-attributes is not in Emacs 21.4a.
;; FIXME: Check this twice
(if (fboundp 'dired-files-attributes)
(defalias 'org-publish-dired-files-attributes 'dired-files-attributes)
;; taken from dired-aux.el
(defun org-publish-dired-files-attributes (dir)
"Return a list of all file names and attributes from DIR.
List has a form of (file-name full-file-name (attribute-list))"
(mapcar
(lambda (file-name)
(let ((full-file-name (expand-file-name file-name dir)))
(list file-name
full-file-name
(file-attributes full-file-name))))
(directory-files dir))))
;; Delete-dups is not in Emacs <22
(if (fboundp 'delete-dups)
(defalias 'org-publish-delete-dups 'delete-dups)
@ -386,7 +370,7 @@ If NO-EXCLUSION is non-nil, don't exclude files."
;; add all files from this project
(mapc (lambda(f)
(add-to-list 'all-files
(cons (file-truename f) (car p))))
(cons (expand-file-name f) (car p))))
files)))
(org-publish-expand-projects projects-alist))
all-files))
@ -449,7 +433,7 @@ matching filenames."
(defun org-publish-get-project-from-filename (filename)
"Return the project FILENAME belongs."
(let* ((project-name (cdr (assoc (file-truename filename)
(let* ((project-name (cdr (assoc (expand-file-name filename)
org-publish-files-alist))))
(assoc project-name org-publish-project-alist)))