← Back to branch summary

~ubuntu-branches/ubuntu/karmic/emacs-snapshot/karmic

« back to all changes in this revision

Viewing changes to lisp/language/tibet-util.el

  • Committer: Bazaar Package Importer
  • Author(s): Reinhard Tartler
  • Date: 2009-04-05 09:14:30 UTC
  • mto: This revision was merged to the branch mainline in revision 34.
  • Revision ID: james.westby@ubuntu.com-20090405091430-nw07lynn2arotjbe
Tags: upstream-20090320
Import upstream version 20090320

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/language/tibet-util.el
1
1
;;; tibet-util.el --- utilities for Tibetan   -*- coding: iso-2022-7bit; -*-
2
2
 
3
 
;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
 
3
;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
4
4
;;   Free Software Foundation, Inc.
5
5
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6
 
;;   2005, 2006, 2007, 2008
 
6
;;   2005, 2006, 2007, 2008, 2009
7
7
;;   National Institute of Advanced Industrial Science and Technology (AIST)
8
8
;;   Registration Number H14PRO021
9
9
 
 
10
;; Author: Toru TOMABECHI <Toru.Tomabechi@orient.unil.ch>
10
11
;; Keywords: multilingual, Tibetan
 
12
;; Created: Feb. 17. 1997
11
13
 
12
14
;; This file is part of GNU Emacs.
13
15
 
24
26
;; You should have received a copy of the GNU General Public License
25
27
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
26
28
 
27
 
;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch>
28
 
 
29
 
;; Created: Feb. 17. 1997
30
 
 
31
29
;;; History:
32
30
;; 1997.03.13 Modification in treatment of text properties;
33
31
;;            Support for some special signs and punctuations.
313
311
            idx (1+ idx)))
314
312
    new))
315
313
 
316
 
;;;###autoload
317
 
(defun tibetan-composition-function (from to font-object string)
318
 
  (or (and font-object
319
 
           (font-shape-text from to font-object string))
320
 
      (if string
321
 
          (tibetan-compose-string string)
322
 
        (tibetan-compose-region from to))))
323
 
 
324
314
;;;
325
315
;;; This variable is used to avoid repeated decomposition.
326
316
;;;