diff options
| author | Kenichi Handa | 1998-10-21 11:50:56 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-21 11:50:56 +0000 |
| commit | cb8778823b44ed8aa6d5b5c8e6c717c7ac12c87e (patch) | |
| tree | f69159b8c8c632f380fd7769ae2cc1fa8a4d2cab | |
| parent | 1944b2e73b268c651c7c7025891cb009dff0d9b2 (diff) | |
| download | emacs-cb8778823b44ed8aa6d5b5c8e6c717c7ac12c87e.tar.gz emacs-cb8778823b44ed8aa6d5b5c8e6c717c7ac12c87e.zip | |
(in-is13194-devanagari-pre-write-conversion): Use with-temp-buffer.
| -rw-r--r-- | lisp/language/devan-util.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index ce2d564b163..1f28148774c 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el | |||
| @@ -1277,14 +1277,12 @@ Ligatures and special rules are processed." | |||
| 1277 | 1277 | ||
| 1278 | ;;;###autoload | 1278 | ;;;###autoload |
| 1279 | (defun in-is13194-devanagari-pre-write-conversion (from to) | 1279 | (defun in-is13194-devanagari-pre-write-conversion (from to) |
| 1280 | (let ((old-buf (current-buffer)) | 1280 | (let ((old-buf (current-buffer))) |
| 1281 | (work-buf (get-buffer-create " *devanagari-work*"))) | 1281 | (with-temp-buffer |
| 1282 | (set-buffer work-buf) | 1282 | (if (stringp from) |
| 1283 | (erase-buffer) | 1283 | (insert from) |
| 1284 | (if (stringp from) | 1284 | (insert-buffer-substring old-buf from to)) |
| 1285 | (insert from) | 1285 | (devanagari-decompose-to-is13194-region (point-min) (point-max))) |
| 1286 | (insert-buffer-substring old-buf from to)) | ||
| 1287 | (devanagari-decompose-to-is13194-region (point-min) (point-max)) | ||
| 1288 | ;; Should return nil as annotations. | 1286 | ;; Should return nil as annotations. |
| 1289 | nil)) | 1287 | nil)) |
| 1290 | 1288 | ||