Don't offer defaults for now when using eaf-bookmark-open

master
Clemens Radermacher 6 years ago
parent d004f28df4
commit 285e4a489b
No known key found for this signature in database
GPG Key ID: ADEDCAC15E317EA0
  1. 12
      eaf.el

@ -337,21 +337,13 @@ For now only eaf browser app is supported."
(bookmark-prop-get entry 'eaf-app))
bookmark-alist))
(names (mapcar #'car bookmarks))
(cand (completing-read "Eaf bookmark: "
bookmarks
nil nil nil nil
(unless (or (member eaf--bookmark-title names)
(not (derived-mode-p 'eaf-mode)))
(format "+%s" eaf--bookmark-title)))))
(cand (completing-read "Eaf bookmark: " bookmarks)))
(cond ((member cand names)
(bookmark-jump cand))
(t
(unless (derived-mode-p 'eaf-mode)
(user-error "Not in an eaf buffer"))
(when (string-match "\\`\\+" cand)
(setq cand (replace-match "" nil nil cand)))
;; create new one
;; create new one for current buffer with provided name
(bookmark-set cand)))))
(defun eaf-call (method &rest args)

Loading…
Cancel
Save