diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-08 23:40:24 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-08 23:40:24 +0100 |
commit | 42cf4cce52f23785ab295038f485790e6f567868 (patch) | |
tree | b182308c0c39f28cd4f5e762a27c0c4378737a24 | |
parent | e2fbaeedc19a92e63ec0a50a6e8fcccdc4b09cdd (diff) | |
download | org-mode-42cf4cce52f23785ab295038f485790e6f567868.tar.gz |
org-feed: Switch to lexical binding
* lisp/org-feed.el (org-feed-update):
(org-feed-write-status): Silence byte-compiler.
-rw-r--r-- | lisp/org-feed.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 3c742be..d11265e 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -1,4 +1,4 @@ -;;; org-feed.el --- Add RSS feed items to Org files +;;; org-feed.el --- Add RSS feed items to Org files -*- lexical-binding: t; -*- ;; ;; Copyright (C) 2009-2016 Free Software Foundation, Inc. ;; @@ -312,7 +312,7 @@ it can be a list structured like an entry in `org-feed-alist'." (parse-entry (or (nth 1 (memq :parse-entry feed)) 'org-feed-parse-rss-entry)) feed-buffer inbox-pos new-formatted - entries old-status status new changed guid-alist e guid olds) + entries old-status status new changed guid-alist guid olds) (setq feed-buffer (org-feed-get-feed url)) (unless (and feed-buffer (bufferp (get-buffer feed-buffer))) (error "Cannot get feed %s" name)) @@ -474,8 +474,7 @@ This will find DRAWER and extract the alist." "Write the feed STATUS to DRAWER in entry at POS." (save-excursion (goto-char pos) - (let ((end (save-excursion (org-end-of-subtree t t))) - guid) + (let ((end (save-excursion (org-end-of-subtree t t)))) (if (re-search-forward (concat "^[ \t]*:" drawer ":[ \t]*\n") end t) (progn |