/[emacs]/emacs/lisp/international/encoded-kb.el
ViewVC logotype

Diff of /emacs/lisp/international/encoded-kb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25.2.1 by fx, Mon May 13 18:24:52 2002 UTC revision 1.25.2.2 by fx, Mon May 13 18:27:28 2002 UTC
# Line 2  Line 2 
2    
3  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
5    ;; Copyright (C) 2002 Free Software Foundation, Inc.
6    
7  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
8    
# Line 307  as a multilingual text encoded in a codi Line 308  as a multilingual text encoded in a codi
308        (let ((coding (keyboard-coding-system)))        (let ((coding (keyboard-coding-system)))
309          (setq saved-input-mode  (current-input-mode))          (setq saved-input-mode  (current-input-mode))
310          (cond ((null coding)          (cond ((null coding)
311                 (setq encoded-kbd-mode nil)                 (setq encoded-kbd-mode nil)
312                 (error "No coding system for keyboard input is set"))                 (error "No coding system for keyboard input is set"))
313    
314                ((eq (coding-system-type coding) 'sjis)                ((eq (coding-system-type coding) 'sjis)
315                 (set-input-mode                 (set-input-mode
316                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)
317                  'use-8th-bit (nth 3 saved-input-mode))                    'use-8th-bit (nth 3 saved-input-mode))
318                 (setq encoded-kbd-coding 'sjis))                 (setq encoded-kbd-coding 'sjis))
319    
320                ((eq (coding-system-type coding) 'iso-2022)                ((eq (coding-system-type coding) 'iso-2022)
# Line 321  as a multilingual text encoded in a codi Line 322  as a multilingual text encoded in a codi
322                     (setq encoded-kbd-coding 'iso2022-7)                     (setq encoded-kbd-coding 'iso2022-7)
323                   (set-input-mode                   (set-input-mode
324                    (nth 0 saved-input-mode) (nth 1 saved-input-mode)                    (nth 0 saved-input-mode) (nth 1 saved-input-mode)
325                    'use-8th-bit (nth 3 saved-input-mode))                            'use-8th-bit (nth 3 saved-input-mode))
326                   (setq encoded-kbd-coding 'iso2022-8))                   (setq encoded-kbd-coding 'iso2022-8))
327                 (setq encoded-kbd-iso2022-designations                 (setq encoded-kbd-iso2022-designations
328                       (coding-system-get coding :designation))                       (coding-system-get coding :designation))
# Line 332  as a multilingual text encoded in a codi Line 333  as a multilingual text encoded in a codi
333                ((eq (coding-system-type coding) 'big5)                ((eq (coding-system-type coding) 'big5)
334                 (set-input-mode                 (set-input-mode
335                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)
336                  'use-8th-bit (nth 3 saved-input-mode))                    'use-8th-bit (nth 3 saved-input-mode))
337                 (setq encoded-kbd-coding 'big5))                 (setq encoded-kbd-coding 'big5))
338    
339                ((eq (coding-system-type coding) 'ccl)                ((eq (coding-system-type coding) 'ccl)
340                 (set-input-mode                 (set-input-mode
341                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)
342                  'use-8th-bit (nth 3 saved-input-mode))                    'use-8th-bit (nth 3 saved-input-mode))
343                 (setq encoded-kbd-coding 'ccl))                 (setq encoded-kbd-coding 'ccl))
344    
345                (t                (t

Legend:
Removed from v.1.25.2.1  
changed lines
  Added in v.1.25.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26