emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/org/org-publish.el,v


From: Carsten Dominik
Subject: [Emacs-diffs] Changes to emacs/lisp/org/org-publish.el,v
Date: Fri, 25 Jul 2008 23:02:22 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      08/07/25 23:02:17

Index: org-publish.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-publish.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- org-publish.el      24 Jul 2008 13:59:55 -0000      1.6
+++ org-publish.el      25 Jul 2008 23:02:15 -0000      1.7
@@ -4,7 +4,7 @@
 ;; Author: David O'Toole <address@hidden>
 ;; Maintainer: Bastien Guerry <bzg AT altern DOT org>
 ;; Keywords: hypermedia, outlines, wp
-;; Version: 6.06a
+;; Version: 6.06b
 
 ;; This file is part of GNU Emacs.
 ;;
@@ -554,6 +554,7 @@
                                          (abbreviate-file-name filename))))
                      (error "Can't publish file outside of a project")))))
           (project-plist (cdr project))
+          (ftname (file-truename filename))
           (publishing-function
            (or (plist-get project-plist :publishing-function)
                'org-publish-org-to-html))
@@ -565,8 +566,8 @@
       (setq tmp-pub-dir
            (file-name-directory
             (concat pub-dir
-                    (and (string-match (regexp-quote base-dir) filename)
-                         (substring filename (match-end 0))))))
+                    (and (string-match (regexp-quote base-dir) ftname)
+                         (substring ftname (match-end 0))))))
       (if (listp publishing-function)
          ;; allow chain of publishing functions
          (mapc (lambda (f)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]