/[emacs]/emacs/lisp/textmodes/sgml-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/sgml-mode.el

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

revision 1.64 by rms, Thu Nov 1 19:35:05 2001 UTC revision 1.64.2.1 by handa, Fri Mar 1 02:29:13 2002 UTC
# Line 104  This takes effect when first loading the Line 104  This takes effect when first loading the
104          (define-key map "\"" 'sgml-name-self))          (define-key map "\"" 'sgml-name-self))
105        (when (memq ?' sgml-specials)        (when (memq ?' sgml-specials)
106          (define-key map "'" 'sgml-name-self)))          (define-key map "'" 'sgml-name-self)))
107      (define-key map (vector (make-char 'latin-iso8859-1))      (dotimes (i 96)
108        'sgml-maybe-name-self)        (define-key map (vector (encode-char (+ i 32) 'latin-iso8859-1))
109            'sgml-maybe-name-self))
110      (let ((c 127)      (let ((c 127)
111            (map (nth 1 map)))            (map (nth 1 map)))
112        (while (< (setq c (1+ c)) 256)        (while (< (setq c (1+ c)) 256)
# Line 191  This takes effect when first loading the Line 192  This takes effect when first loading the
192    (let ((table (make-char-table 'sgml-table))    (let ((table (make-char-table 'sgml-table))
193          (i 32)          (i 32)
194          elt)          elt)
195      (while (< i 256)      (while (< i 128)
196        (setq elt (aref sgml-char-names i))        (setq elt (aref sgml-char-names i))
197        (if elt (aset table (make-char 'latin-iso8859-1 i) elt))        (if elt (aset table (make-char 'latin-iso8859-1 i) elt))
198        (setq i (1+ i)))        (setq i (1+ i)))

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.64.2.1

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