Mercurial > emacs

comparison lisp/international/mule-cmds.el @ 83384:08b4dd6a6e87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 578-592) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-578 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-579 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-580 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-581 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-582 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-583 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-584 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-585 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-586 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-587 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-588 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-589 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-590 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-591 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-592 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-424
author Karoly Lorentey <lorentey@elte.hu>
date Wed, 12 Oct 2005 16:14:04 +0000
parents 2a679c81f552 74b084c8ec13
children 51eb0aa362f3
comparison
equal deleted inserted replaced
83383:2a679c81f552 83384:08b4dd6a6e87
1865 (if syntax 1865 (if syntax
1866 (let ((set-case-syntax-set-multibyte nil)) 1866 (let ((set-case-syntax-set-multibyte nil))
1867 (load syntax nil t)) 1867 (load syntax nil t))
1868 ;; No information for syntax and case. Reset to the defaults. 1868 ;; No information for syntax and case. Reset to the defaults.
1869 (let ((syntax-table (standard-syntax-table)) 1869 (let ((syntax-table (standard-syntax-table))
1870 (case-table (standard-case-table)) 1870 (standard-table (standard-case-table))
1871 (case-table (make-char-table 'case-table))
1871 (ch (if (eq window-system 'pc) 128 160))) 1872 (ch (if (eq window-system 'pc) 128 160)))
1872 (while (< ch 256) 1873 (while (< ch 256)
1873 (modify-syntax-entry ch " " syntax-table) 1874 (modify-syntax-entry ch " " syntax-table)
1874 (aset case-table ch ch)
1875 (setq ch (1+ ch))) 1875 (setq ch (1+ ch)))
1876 (dotimes (i 128)
1877 (aset case-table i (aref standard-table i)))
1876 (set-char-table-extra-slot case-table 0 nil) 1878 (set-char-table-extra-slot case-table 0 nil)
1877 (set-char-table-extra-slot case-table 1 nil) 1879 (set-char-table-extra-slot case-table 1 nil)
1878 (set-char-table-extra-slot case-table 2 nil)) 1880 (set-char-table-extra-slot case-table 2 nil)
1879 (set-standard-case-table (standard-case-table)) 1881 (set-standard-case-table case-table))
1880 (let ((list (buffer-list))) 1882 (let ((list (buffer-list)))
1881 (while list 1883 (while list
1882 (with-current-buffer (car list) 1884 (with-current-buffer (car list)
1883 (set-case-table (standard-case-table))) 1885 (set-case-table (standard-case-table)))
1884 (setq list (cdr list)))))) 1886 (setq list (cdr list))))))