diff options
author | Michael Brand <michael.ch.brand@gmail.com> | 2014-02-18 20:33:34 +0100 |
---|---|---|
committer | Michael Brand <michael.ch.brand@gmail.com> | 2014-02-18 20:33:34 +0100 |
commit | da0121a996a98760103f9e11e62bc37ce3cdf9fe (patch) | |
tree | d4680d7bc0686d36ab875a3f46bffa66dd45b6d4 | |
parent | 03514a6a789762848ef49d4cd95e10c8020191f8 (diff) | |
download | org-mode-da0121a996a98760103f9e11e62bc37ce3cdf9fe.tar.gz |
org-feed.el: Allow current buffer to be indirect
* lisp/org-feed.el (org-feed-alist): Allow current buffer to be an
indirect buffer.
-rw-r--r-- | lisp/org-feed.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 7df762a..71a424f 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -117,8 +117,8 @@ to create inbox items in Org. Each entry is a list with the following items: name a custom name for this feed URL the Feed URL file the target Org file where entries should be listed, when - nil the target becomes the current buffer each time the - feed update is invoked + nil the target becomes the current buffer (may be an + indirect buffer) each time the feed update is invoked headline the headline under which entries should be listed Additional arguments can be given using keyword-value pairs. Many of these @@ -298,7 +298,8 @@ it can be a list structured like an entry in `org-feed-alist'." (catch 'exit (let ((name (car feed)) (url (nth 1 feed)) - (file (or (nth 2 feed) (buffer-file-name (current-buffer)))) + (file (or (nth 2 feed) (buffer-file-name (or (buffer-base-buffer) + (current-buffer))))) (headline (nth 3 feed)) (filter (nth 1 (memq :filter feed))) (formatter (nth 1 (memq :formatter feed))) |