/[emacs]/emacs/lisp/language/european.el
ViewVC logotype

Diff of /emacs/lisp/language/european.el

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

revision 1.80 by fx, Sun Jan 5 00:55:27 2003 UTC revision 1.81 by lektu, Tue Feb 4 13:11:50 2003 UTC
# Line 582  but it selects the Dutch tutorial and in Line 582  but it selects the Dutch tutorial and in
582    (setq translation-table    (setq translation-table
583          (make-translation-table-from-vector encoding-vector))          (make-translation-table-from-vector encoding-vector))
584    (define-translation-table 'mac-roman-decoder translation-table)    (define-translation-table 'mac-roman-decoder translation-table)
585    (define-translation-table 'mac-roman-encoder    (define-translation-table 'mac-roman-encoder
586      (char-table-extra-slot translation-table 0)))      (char-table-extra-slot translation-table 0)))
587    
588  (define-ccl-program decode-mac-roman  (define-ccl-program decode-mac-roman
# Line 640  positions (integers or markers) specifyi Line 640  positions (integers or markers) specifyi
640        (compose-string string idx (match-end 0))        (compose-string string idx (match-end 0))
641        (setq idx (match-end 0))))        (setq idx (match-end 0))))
642    string)    string)
643          
644  (defun diacritic-compose-buffer ()  (defun diacritic-compose-buffer ()
645    "Compose diacritic characters in the current buffer."    "Compose diacritic characters in the current buffer."
646    (interactive)    (interactive)

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

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