diff options
| author | Joost Kremers <joostkremers@fastmail.fm> | 2014-12-08 14:22:41 +0100 |
|---|---|---|
| committer | Joost Kremers <joostkremers@fastmail.fm> | 2014-12-08 14:22:41 +0100 |
| commit | 68f2e99c9dabd905e86f10e74976f94331a69a1b (patch) | |
| tree | f074769e7da065f0611959aedb1adb3f3c91eb83 /ebib-keywords.el | |
| parent | 1c33aec4b4e89e8ee8ebc4be7b46d31345677a32 (diff) | |
Use #' correctly.
Diffstat (limited to 'ebib-keywords.el')
| -rw-r--r-- | ebib-keywords.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ebib-keywords.el b/ebib-keywords.el index 3db3007..5106f92 100644 --- a/ebib-keywords.el +++ b/ebib-keywords.el @@ -120,7 +120,7 @@ Also automatically remove duplicates." ;; may subsequently add keywords. (add-to-list 'ebib--keywords-files-alist ; add the dir if not in the list yet (list dir keyword-list nil) ; the extra empty list is for new keywords - t #'(lambda (x y) (equal (car x) (car y))))))))) + t (lambda (x y) (equal (car x) (car y))))))))) (defun ebib--keywords-add-keyword (keyword db) "Add KEYWORD to the list of keywords for DB." @@ -159,8 +159,8 @@ keywords and the third the keywords added in this session." (concat (car keyword-file-descr) ebib-keywords-file)))) (if (file-writable-p file) (with-temp-buffer - (mapc #'(lambda (keyword) - (insert (format "%s\n" keyword))) + (mapc (lambda (keyword) + (insert (format "%s\n" keyword))) (append (cl-second keyword-file-descr) (cl-third keyword-file-descr))) (write-region (point-min) (point-max) file)) (ebib--log 'warning "Could not write to keyword file `%s'" file)))) @@ -209,8 +209,8 @@ Optional argument DB specifies the database to check for." (and (eq ebib-keywords-file-save-on-exit 'ask) (y-or-n-p (format "New keywords were added. Save '%s'? " (file-name-nondirectory ebib-keywords-file)))))) ; strip path for succinctness - (mapc #'(lambda (elt) - (ebib--keywords-save-to-file elt)) + (mapc (lambda (elt) + (ebib--keywords-save-to-file elt)) new)))) (provide 'ebib-keywords) |