forked from mirrors/org-mode
org-feed.el: Allow current buffer to be indirect
* lisp/org-feed.el (org-feed-alist): Allow current buffer to be an indirect buffer.
This commit is contained in:
parent
03514a6a78
commit
da0121a996
|
@ -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
|
name a custom name for this feed
|
||||||
URL the Feed URL
|
URL the Feed URL
|
||||||
file the target Org file where entries should be listed, when
|
file the target Org file where entries should be listed, when
|
||||||
nil the target becomes the current buffer each time the
|
nil the target becomes the current buffer (may be an
|
||||||
feed update is invoked
|
indirect buffer) each time the feed update is invoked
|
||||||
headline the headline under which entries should be listed
|
headline the headline under which entries should be listed
|
||||||
|
|
||||||
Additional arguments can be given using keyword-value pairs. Many of these
|
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
|
(catch 'exit
|
||||||
(let ((name (car feed))
|
(let ((name (car feed))
|
||||||
(url (nth 1 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))
|
(headline (nth 3 feed))
|
||||||
(filter (nth 1 (memq :filter feed)))
|
(filter (nth 1 (memq :filter feed)))
|
||||||
(formatter (nth 1 (memq :formatter feed)))
|
(formatter (nth 1 (memq :formatter feed)))
|
||||||
|
|
Loading…
Reference in a new issue