(switch_to_buffer_1): New subroutine, taken out from Fswitch_to_buffer.

[gnu-emacs] / lisp / language / lao.el

diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index 4c1dd1ec7509832a3275491b0b182b850247b662..b8add00ec3e59708554e982b43d47710c067f6bc 100644 (file)
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -1,4 +1,4 @@
-;;; lao.el --- Support for Lao
+;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -27,19 +27,24 @@
 (make-coding-system
  'lao 2 ?L
  "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
- '((ascii t) (lao t) nil nil
-   nil ascii-eol))
+ '(ascii lao nil nil
+   nil nil)
+ '((safe-charsets ascii lao)))
 
 (set-language-info-alist
- "Lao" '((setup-function . setup-lao-environment)
-        (charset . (lao))
-        (coding-system . (lao))
-        (sample-text . "Lao(\e(1>RJRERG\e(B)            \e(1JP:R-\e04U\e1\e(B, \e0\e(1"i\e1M-`\e0;Q\e19\e0$[\e19ERG\e(B")
+ "Lao" '((charset lao)
+        (coding-system lao)
+        (coding-priority lao)
+        (input-method . "lao")
+        (nonascii-translation . lao)
+        (unibyte-display . lao)
+        (features lao-util)
         (documentation . t)))
 
 (aset use-default-ascent ?\e(1;\e(B t)
 (aset use-default-ascent ?\e(1=\e(B t)
 (aset use-default-ascent ?\e(1?\e(B t)
 (aset use-default-ascent ?\e(1B\e(B t)
+(aset ignore-relative-composition ?\e(1\\e(B t)
 
 ;;; lao.el ends here