Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix khard.el

Browse Source
This commit is contained in:
Alexander Rosenberg 2023-10-29 03:03:24 -07:00
parent 2118704d98
commit c26beed6e9
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
elisp/khard.el
View File

@ -72,19 +72,18 @@ If NO-CONFIRM is nil, do not ask the user."
(defun khard--new-process-filter (proc str) (defun khard--new-process-filter (proc str)
"Process filter for `khard-new'. "Process filter for `khard-new'.
PROC and STR are described in `set-process-filter'." PROC and STR are described in `set-process-filter'."
(let ((lines (string-split str "\n"))) (let ((lines (string-split str "\n"))
(error-msg nil))
(dolist (line lines) (dolist (line lines)
(cond (if (equal
((string-prefix-p "Error: " line)
(setq error-msg line))
((equal
"Do you want to open the editor again? (y/N) " "Do you want to open the editor again? (y/N) "
line) line)
(if (y-or-n-p (format "%s! Reopen the editor? " (if (y-or-n-p (format "%sReopen the editor? "
(or error-msg (or error-msg
"Unknown error"))) "Unknown error")))
(process-send-string proc "y\n") (process-send-string proc "y\n")
(process-send-string proc "n\n")))))) (process-send-string proc "n\n"))
(setq error-msg (concat error-msg "\n" line)))))
(with-editor-process-filter proc str t)) (with-editor-process-filter proc str t))
(defun khard-new (abook) (defun khard-new (abook)