diff options
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/viet-util.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el index 0520a836ed2..f90dc494df7 100644 --- a/lisp/language/viet-util.el +++ b/lisp/language/viet-util.el @@ -283,14 +283,12 @@ positions (integers or markers) specifying the stretch of the region." ;;;###autoload (defun viqr-pre-write-conversion (from to) - (let ((old-buf (current-buffer)) - (work-buf (get-buffer-create " *viet-work*"))) - (set-buffer work-buf) - (erase-buffer) - (if (stringp from) - (insert from) - (insert-buffer-substring old-buf from to)) - (viet-encode-viqr-region (point-min) (point-max)) + (let ((old-buf (current-buffer))) + (with-temp-buffer + (if (stringp from) + (insert from) + (insert-buffer-substring old-buf from to)) + (viet-encode-viqr-region (point-min) (point-max))) ;; Should return nil as annotations. nil)) |