Mercurial > emacs
comparison lisp/international/ucs-tables.el @ 67435:f245bb6e08da
* files.el (save-buffer):
* international/ucs-tables.el (ucs-set-table-for-input):
* mail/mail-extr.el (mail-extract-address-components):
* mail/sendmail.el (mail-mode): Reformat doc string.
author | Reiner Steib <Reiner.Steib@gmx.de> |
---|---|
date | Fri, 09 Dec 2005 16:44:18 +0000 |
parents | 41f652ac3620 |
children | 43cc94d955c2 |
comparison
equal
deleted
inserted
replaced
67434:6d3669227452 | 67435:f245bb6e08da |
---|---|
2497 ;; Arrange to set up the translation-table for keyboard input. This | 2497 ;; Arrange to set up the translation-table for keyboard input. This |
2498 ;; is called from get-buffer-create, set-buffer-file-coding-system, | 2498 ;; is called from get-buffer-create, set-buffer-file-coding-system, |
2499 ;; normal-mode and minibuffer-setup-hook. | 2499 ;; normal-mode and minibuffer-setup-hook. |
2500 (defun ucs-set-table-for-input (&optional buffer) | 2500 (defun ucs-set-table-for-input (&optional buffer) |
2501 "Set up an appropriate `translation-table-for-input' for BUFFER. | 2501 "Set up an appropriate `translation-table-for-input' for BUFFER. |
2502 BUFFER defaults to the current buffer. | 2502 BUFFER defaults to the current buffer. This function is |
2503 This function is automatically called directly at the end of `get-buffer-create'." | 2503 automatically called directly at the end of `get-buffer-create'." |
2504 (when (and unify-8859-on-encoding-mode | 2504 (when (and unify-8859-on-encoding-mode |
2505 (not unify-8859-on-decoding-mode) | 2505 (not unify-8859-on-decoding-mode) |
2506 (char-table-p translation-table-for-input)) | 2506 (char-table-p translation-table-for-input)) |
2507 (let ((cs (and buffer-file-coding-system | 2507 (let ((cs (and buffer-file-coding-system |
2508 (coding-system-base buffer-file-coding-system))) | 2508 (coding-system-base buffer-file-coding-system))) |