mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Make djvused emit UTF-8 encoded text

Browse Source 
* lisp/doc-view.el (doc-view--djvu-outline): Pass -u to djvused
to make it emit UTF-8 encoded text rather than using octal
escapes for non-ASCII string.  (bug#73846)
This commit is contained in:
Visuwesh 2024-10-17 09:40:34 +05:30 committed by Tassilo Horn
parent 09e586b383
commit 5f22c090b1
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/doc-view.el
View File

@ -2026,13 +2026,16 @@ name.
For the format, see `doc-view--pdf-outline'."
(unless file-name (setq file-name (buffer-file-name)))
(with-temp-buffer
(call-process doc-view-djvused-program nil (current-buffer) nil
"-e" "print-outline" file-name)
(goto-char (point-min))
(when (eobp)
(setq doc-view--outline 'unavailable)
(imenu-unavailable-error "Unable to create imenu index using `djvused'"))
(nreverse (doc-view--parse-djvu-outline (read (current-buffer))))))
(let ((coding-system-for-read 'utf-8))
;; Pass "-u" to make `djvused' emit UTF-8 encoded text to avoid
;; unescaping octal escapes for non-ASCII text.
(call-process doc-view-djvused-program nil (current-buffer) nil
"-u" "-e" "print-outline" file-name)
(goto-char (point-min))
(when (eobp)
(setq doc-view--outline 'unavailable)
(imenu-unavailable-error "Unable to create imenu index using `djvused'"))
(nreverse (doc-view--parse-djvu-outline (read (current-buffer)))))))
(defun doc-view--parse-djvu-outline (bookmark &optional level)
"Return a list describing the djvu outline from BOOKMARK.