summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-06-27 17:02:50 +0200
committerBastien Guerry <bzg@altern.org>2013-06-27 17:02:50 +0200
commit370a2bfb4f2530b6a8e3a4f12358810413198081 (patch)
treee23b724b291da2939d04036a6e54a029e7b2dbff
parentb01871f23e241d4392d46d7e106d1df8958fccac (diff)
parent311856590575807b4dc98a109603bc5e846d60b6 (diff)
downloadorg-mode-370a2bfb4f2530b6a8e3a4f12358810413198081.tar.gz
Merge branch 'maint'
-rw-r--r--contrib/lisp/ox-rss.el13
-rw-r--r--lisp/org-agenda.el2
-rw-r--r--lisp/org-capture.el3
-rw-r--r--lisp/org.el4
4 files changed, 11 insertions, 11 deletions
diff --git a/contrib/lisp/ox-rss.el b/contrib/lisp/ox-rss.el
index b50970c..ad02673 100644
--- a/contrib/lisp/ox-rss.el
+++ b/contrib/lisp/ox-rss.el
@@ -48,7 +48,7 @@
;; :base-directory "~/myhomepage/"
;; :base-extension "org"
;; :rss-image-url "http://lumiere.ens.fr/~guerry/images/faces/15.png"
-;; :home-link-home "http://lumiere.ens.fr/~guerry/"
+;; :html-link-home "http://lumiere.ens.fr/~guerry/"
;; :rss-extension "xml"
;; :publishing-directory "/home/guerry/public_html/"
;; :publishing-function (org-rss-publish-to-rss)
@@ -236,12 +236,11 @@ communication channel."
(pubdate
(let ((system-time-locale "C"))
(format-time-string
- "%a, %d %h %Y %H:%M:%S %Z"
+ "%a, %d %h %Y %H:%M:%S %z"
(org-time-string-to-time
(or (org-element-property :PUBDATE headline)
(error "Missing PUBDATE property"))))))
- (title (org-rss-plain-text
- (org-element-property :raw-value headline) info))
+ (title (org-element-property :raw-value headline))
(publink
(concat
(file-name-as-directory
@@ -310,7 +309,7 @@ as a communication channel."
(author (and (plist-get info :with-author)
(let ((auth (plist-get info :author)))
(and auth (org-export-data auth info)))))
- (date (format-time-string "%a, %d %h %Y %H:%M:%S %Z")) ;; RFC 882
+ (date (format-time-string "%a, %d %h %Y %H:%M:%S %z")) ;; RFC 882
(description (org-export-data (plist-get info :description) info))
(lang (plist-get info :language))
(keywords (plist-get info :keywords))
@@ -332,7 +331,7 @@ as a communication channel."
<pubDate>%s</pubDate>
<lastBuildDate>%s</lastBuildDate>
<generator>%s</generator>
-<webMaster>%s</webMaster>
+<webMaster>%s (%s)</webMaster>
<image>
<url>%s</url>
<title>%s</title>
@@ -344,7 +343,7 @@ as a communication channel."
emacs-major-version
emacs-minor-version)
" Org-mode " (org-version))
- email image title blogurl)))
+ email author image title blogurl)))
(defun org-rss-section (section contents info)
"Transcode SECTION element into RSS format.
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index c615b58..ca9bbe1 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3879,7 +3879,7 @@ continue from there."
(throw :skip t))))
(defun org-agenda-skip-eval (form)
- "If FORM is a function or a list, call (or eval) is and return result.
+ "If FORM is a function or a list, call (or eval) it and return the result.
`save-excursion' and `save-match-data' are wrapped around the call, so point
and match data are returned to the previous state no matter what these
functions do."
diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 936883a..a4f0fd0 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -909,7 +909,8 @@ Store them in the capture property list."
(current-time))))
(org-capture-put
:default-time
- (cond ((and (not org-time-was-given)
+ (cond ((and (or (not (boundp 'org-time-was-given))
+ (not org-time-was-given))
(not (= (time-to-days prompt-time) (org-today))))
;; Use 00:00 when no time is given for another date than today?
(apply 'encode-time (append '(0 0 0) (cdddr (decode-time prompt-time)))))
diff --git a/lisp/org.el b/lisp/org.el
index d0dffc7..f55c53e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13812,7 +13812,6 @@ headlines matching this string."
(abbreviate-file-name
(or (buffer-file-name (buffer-base-buffer))
(buffer-name (buffer-base-buffer)))))))
- (case-fold-search nil)
(org-map-continue-from nil)
lspos tags tags-list
(tags-alist (list (cons 0 org-file-tags)))
@@ -13825,7 +13824,8 @@ headlines matching this string."
(when (eq action 'sparse-tree)
(org-overview)
(org-remove-occur-highlights))
- (while (re-search-forward re nil t)
+ (while (let (case-fold-search)
+ (re-search-forward re nil t))
(setq org-map-continue-from nil)
(catch :skip
(setq todo (if (match-end 1) (org-match-string-no-properties 2))