diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-30 02:00:11 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-30 02:00:11 +0000 |
| commit | ca0a881a3512c1f9495833e15a801f5af5b89893 (patch) | |
| tree | 6d91adb6a5117ab394bb0564cca9f95b8e16f9f1 /lisp/language/tibetan.el | |
| parent | d9a57abf8154b57d50371250348628e0102e28a2 (diff) | |
| download | emacs-ca0a881a3512c1f9495833e15a801f5af5b89893.tar.gz | |
* puresize.h (BASE_PURESIZE): Increase to 1470000.
* lread.c (Fload): Purecopy the file name when building Vpreloaded_file_list.
* textmodes/ispell.el (ispell-skip-region-alist):
* international/mule-conf.el (eight-bit):
* international/fontset.el (font-encoding-alist):
* startup.el (pure-space-overflow-message):
* simple.el (overwrite-mode-textual, overwrite-mode-binary):
* paths.el (gnus-nntp-service, rmail-spool-directory)
(term-file-prefix):
* files.el (save-some-buffers-action-alist):
* cmuscheme.el (same-window-buffer-names):
* ielm.el (same-window-buffer-names):
* shell.el (same-window-buffer-names):
* mail/sendmail.el (same-window-buffer-names):
* progmodes/inf-lisp.el (same-window-buffer-names):
* bindings.el (mode-line-client)
(mode-line-column-line-number-mode-map):
* language/tibetan.el (tibetan-precomposition-rule-regexp)
(tibetan-precomposed-regexp): Purecopy string arguments.
Diffstat (limited to 'lisp/language/tibetan.el')
| -rw-r--r-- | lisp/language/tibetan.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index 6b0c06649c3..cad73c01cc0 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -568,6 +568,7 @@ The result of matching is to be used for indexing alists at conversion from a roman transcription to the corresponding Tibetan character.") (defvar tibetan-precomposed-regexp + (purecopy (let ((l tibetan-precomposed-transcription-alist) temp) (setq temp "^\\(") @@ -578,12 +579,13 @@ from a roman transcription to the corresponding Tibetan character.") (setq temp (concat temp "\\|" (car (car l)))) (setq l (cdr l))) - (concat temp "\\)")) + (concat temp "\\)"))) "Regexp string to match a romanized Tibetan complex consonant. The result of matching is to be used for indexing alists when the input key from an input method is converted to the corresponding precomposed glyph.") (defvar tibetan-precomposition-rule-regexp + (purecopy (let ((l tibetan-precomposition-rule-alist) temp) (setq temp "\\(") @@ -592,7 +594,7 @@ from an input method is converted to the corresponding precomposed glyph.") (while l (setq temp (concat temp "\\|" (car (car l)))) (setq l (cdr l))) - (concat temp "\\)")) + (concat temp "\\)"))) "Regexp string to match a sequence of Tibetan consonantic components, i.e., one base consonant and one or more subjoined consonants. The result of matching is to be used for indexing alist when the component |