aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix Warning: Unused lexical argument

Browse source
This commit is contained in:
stardiviner 2022-06-04 09:02:12 +08:00
parent 02ac3ed9d0
commit c1c4cadf3f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
org-contacts.el
View file

@ -634,7 +634,8 @@ description."
(defun org-contacts-org-complete--annotation-function (candidate) (defun org-contacts-org-complete--annotation-function (candidate)
"Return org-contacts tags of contact candidate." "Return org-contacts tags of contact candidate."
;; TODO ;; TODO
"Tags: ") "Tags: "
(ignore candidate))
;;;###autoload ;;;###autoload
(defun org-contacts-org-complete--doc-function (candidate) (defun org-contacts-org-complete--doc-function (candidate)
@ -661,6 +662,7 @@ description."
(let ((content (buffer-substring (point-min) (point-max)))) (let ((content (buffer-substring (point-min) (point-max))))
(when (buffer-narrowed-p) (widen)) (when (buffer-narrowed-p) (widen))
content)))))) content))))))
(ignore name)
(with-current-buffer doc-buffer (with-current-buffer doc-buffer
(read-only-mode 1) (read-only-mode 1)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
@ -684,6 +686,7 @@ description."
(name (plist-get contact :name)) (name (plist-get contact :name))
(file (plist-get contact :file)) (file (plist-get contact :file))
(position (plist-get contact :position))) (position (plist-get contact :position)))
(ignore name)
(with-current-buffer (find-file-noselect file) (with-current-buffer (find-file-noselect file)
(goto-char position) (goto-char position)
(cons (current-buffer) position)))) (cons (current-buffer) position))))
@ -1373,6 +1376,7 @@ Each element has the form (NAME . (FILE . POSITION))."
(goto-char position) (goto-char position)
;; (symbol-name (org-property-or-variable-value 'EMAIL)) ;; (symbol-name (org-property-or-variable-value 'EMAIL))
(org-entry-get (point) "EMAIL"))))) (org-entry-get (point) "EMAIL")))))
(ignore name)
;; (cons name email) ;; (cons name email)
email)) email))
(org-contacts--all-contacts))) (org-contacts--all-contacts)))