diff options
author | alraban <alexander.raban@gmail.com> | 2019-02-28 22:32:34 -0500 |
---|---|---|
committer | GitHub <noreply@github.com> | 2019-02-28 22:32:34 -0500 |
commit | 25bd34eea4b5772588c0d5c1d6f8d61af1f8c0bf (patch) | |
tree | cb1444bcc6428974453f2e5474e8f41812ae879d | |
parent | 76c15c2a28b8ed71b5b37326120639acf65eddf5 (diff) | |
parent | cc016a3ea455a3eae6ca68e668783390d2648755 (diff) |
Merge pull request #3 from rlaboiss/compilation-warnings
Fix compilation warnings
-rw-r--r-- | org-recoll.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/org-recoll.el b/org-recoll.el index 49ccd6c..414ee95 100644 --- a/org-recoll.el +++ b/org-recoll.el @@ -67,6 +67,7 @@ initated and this variable is not evaluated." (defcustom org-recoll-search-history nil "List to store your recoll search history." :group 'org-recoll + :type 'list ) (defcustom org-recoll-result-file-read-only t @@ -123,12 +124,12 @@ deleting/editing parts of your research library." (defun org-recoll-compare-string-to-list (string list) "Compares STRING to each element of LIST." - (setq org-recoll-matched nil) - (while list - (if (string= (prin1-to-string (car list)) string) - (setq org-recoll-matched t)) - (setq list (cdr list))) - org-recoll-matched) + (let ((matched nil)) + (while list + (if (string= (prin1-to-string (car list)) string) + (setq matched t)) + (setq list (cdr list))) + matched)) (defun org-recoll-fill-region-paragraphs () "Fill region like `org-fill-paragraph' for each para in buffer." |