diff options
| -rw-r--r-- | lisp/language/viet-util.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el index 356a130efc3..1da3de12a4a 100644 --- a/lisp/language/viet-util.el +++ b/lisp/language/viet-util.el | |||
| @@ -275,8 +275,12 @@ positions (integers or markers) specifying the stretch of the region." | |||
| 275 | (work-buf (get-buffer-create " *viet-work*"))) | 275 | (work-buf (get-buffer-create " *viet-work*"))) |
| 276 | (set-buffer work-buf) | 276 | (set-buffer work-buf) |
| 277 | (erase-buffer) | 277 | (erase-buffer) |
| 278 | (insert-buffer-substring old-buf from to) | 278 | (if (stringp from) |
| 279 | (viet-encode-viqr-region (point-min) (point-max)))) | 279 | (insert from) |
| 280 | (insert-buffer-substring old-buf from to)) | ||
| 281 | (viet-encode-viqr-region (point-min) (point-max)) | ||
| 282 | ;; Should return nil as annotations. | ||
| 283 | nil)) | ||
| 280 | 284 | ||
| 281 | ;;; | 285 | ;;; |
| 282 | (provide 'language/viet-util) | 286 | (provide 'language/viet-util) |