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)
"Process filter for `khard-new'.
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)
(cond
((string-prefix-p "Error: " line)
(setq error-msg line))
((equal
(if (equal
"Do you want to open the editor again? (y/N) "
line)
(if (y-or-n-p (format "%s! Reopen the editor? "
(if (y-or-n-p (format "%sReopen the editor? "
(or error-msg
"Unknown error")))
(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))
(defun khard-new (abook)