1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index e8581de2f79..4ce4f36bc90 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -443,9 +443,9 @@ See also docstring of the function tibetan-compose-region."
         (narrow-to-region (point) (+ (point) len))
         (tibetan-compose-region (point-min) (point-max))
         (set-buffer-modified-p buffer-modified-p)
-        (point-max))))
-  (make-local-variable 'tibetan-decomposed)
-  (setq tibetan-decomposed nil))
+        (make-local-variable 'tibetan-decomposed)
+        (setq tibetan-decomposed nil)
+        (- (point-max) (point-min))))))
 
 
 ;;;###autoload