comparison lisp/language/tibet-util.el @ 23545:0d25c6f765ab

(tibetan-pre-write-conversion): Cancel previous change, use generate-new-buffer instead of get-buffer-create.

23544:e54fbf58812f

;;;###autoload
(defun tibetan-pre-write-conversion (from to)
  (setq tibetan-decomposed-temp tibetan-decomposed)
  (let ((old-buf (current-buffer)))
    (with-temp-buffer
      (if (stringp from)
	  (insert from)
	(insert-buffer-substring old-buf from to))
      (if (not tibetan-decomposed-temp)
	  (tibetan-decompose-region (point-min) (point-max))))
    ;; Should return nil as annotations.
    nil))

(provide 'tibet-util)

23545:0d25c6f765ab

;;;###autoload
(defun tibetan-pre-write-conversion (from to)
  (setq tibetan-decomposed-temp tibetan-decomposed)
  (let ((old-buf (current-buffer)))
    (set-buffer (generate-new-buffer " *temp*"))
    (if (stringp from)
	(insert from)
      (insert-buffer-substring old-buf from to))
    (if (not tibetan-decomposed-temp)
	(tibetan-decompose-region (point-min) (point-max)))
    ;; Should return nil as annotations.
    nil))

(provide 'tibet-util)