Browse Source

Merge branch 'maint'

Bastien Guerry 11 years ago
parent
commit
bf27c6b71f
2 changed files with 15 additions and 11 deletions
  1. 7 3
      contrib/lisp/ox-rss.el
  2. 8 8
      lisp/org-clock.el

+ 7 - 3
contrib/lisp/ox-rss.el

@@ -246,7 +246,11 @@ communication channel."
 	       (org-time-string-to-time
 		(or (org-element-property :PUBDATE headline)
 		    (error "Missing PUBDATE property"))))))
-	   (title (org-element-property :raw-value headline))
+	   (title (replace-regexp-in-string
+		   org-bracket-link-regexp
+		   (lambda (m) (or (match-string 3 m)
+				   (match-string 1 m)))
+		   (org-element-property :raw-value headline)))
 	   (publink
 	    (or (and hl-perm (concat (or hl-home hl-pdir) hl-perm))
 		(concat
@@ -326,8 +330,8 @@ as a communication channel."
 	 (ifile (plist-get info :input-file))
 	 (publink
 	  (concat (file-name-as-directory blogurl)
-		   (file-name-nondirectory
-		    (file-name-sans-extension ifile))
+		  (file-name-nondirectory
+		   (file-name-sans-extension ifile))
 		  "." rssext)))
     (format
      "\n<title>%s</title>

+ 8 - 8
lisp/org-clock.el

@@ -1842,9 +1842,9 @@ Use \\[org-clock-remove-overlays] to remove the subtree times."
 	(when org-remove-highlights-with-change
 	  (org-add-hook 'before-change-functions 'org-clock-remove-overlays
 			nil 'local))))
-      (message (concat "Total file time: "
-		       (org-minutes-to-clocksum-string org-clock-file-total-minutes)
-		       " (%d hours and %d minutes)") h m)))
+    (message (concat "Total file time: "
+		     (org-minutes-to-clocksum-string org-clock-file-total-minutes)
+		     " (%d hours and %d minutes)") h m)))
 
 (defvar org-clock-overlays nil)
 (make-variable-buffer-local 'org-clock-overlays)
@@ -2711,11 +2711,11 @@ TIME:      The sum of all time spend in this tree, in minutes.  This time
 				   (save-match-data
 				     (match-string 2)))
 			   (org-make-org-heading-search-string
-				      (replace-regexp-in-string
-				       org-bracket-link-analytic-regexp
-				       (lambda (m) (or (match-string 3 m)
-						       (match-string 1 m)))
-				       (match-string 2)))))
+			    (replace-regexp-in-string
+			     org-bracket-link-regexp
+			     (lambda (m) (or (match-string 3 m)
+					     (match-string 1 m)))
+			     (match-string 2)))))
 		    tsp (when timestamp
 			  (setq props (org-entry-properties (point)))
 			  (or (cdr (assoc "SCHEDULED" props))