tec
/
lexic
1
0
Fork 0
Code Issues 10 Pull Requests 1 Releases Activity

Use a temp buffer instead of shell-cmd-to-string

This commit is contained in:
TEC 2021-07-30 00:00:08 +08:00
parent 47e6b1c3a2
commit 64c695024c
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lexic.el
View File

@ -507,9 +507,10 @@ Optional argument RAW-P signals whether the result should be formatted or not."
(defun lexic-oneshot-lookup (word &optional raw-p args)
"Use a oneshot stcv process just to look up WORD, with ARGS.
Optional argument RAW-P signals whether the result should be formatted or not."
(let ((result (shell-command-to-string
(concat lexic-program-path " -n " args
" '" (replace-regexp-in-string "'" "\\'" word) "'"))))
(let ((result (with-temp-buffer
(apply #'call-process lexic-program-path nil t nil
(append '("-n") args (list word)))
(buffer-string))))
(if raw-p result
(lexic-format-result result))))
@ -1800,8 +1801,7 @@ collected using https://framagit.org/tuxor1337/dictmaster."
(lexic-parse-results
(lexic-oneshot-lookup
(replace-regexp-in-string " ?(.*)" " (*)" (plist-get entry :word)) ; lexic accepts a glob
t (format "-0 -u '%s'"
(replace-regexp-in-string "'" "\\'" (plist-get entry :dict))))))))
t (list "-0" "-u" (plist-get entry :dict)))))))
(replace-regexp-in-string
"\\(?:\\`\\|\n\n\\)<b>\\(.+?\\) (\\(.+?\\)\\([0-9]+\\)?)</b> ?"
(lambda (match)