/[emacs]/emacs/lisp/international/titdic-cnv.el
ViewVC logotype

Diff of /emacs/lisp/international/titdic-cnv.el

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

revision 1.32.2.1 by miles, Fri Apr 4 06:20:26 2003 UTC revision 1.32.2.2 by miles, Tue Oct 14 23:39:23 2003 UTC
# Line 206  SPC, 6, 3, 4, or 7 specifing a tone (SPC Line 206  SPC, 6, 3, 4, or 7 specifing a tone (SPC
206    
207  ;; Return a value of the key in the current line.  ;; Return a value of the key in the current line.
208  (defsubst tit-read-key-value ()  (defsubst tit-read-key-value ()
209    (if (looking-at "[^ \t\n]+")    (if (looking-at "[^ \t\r\n]+")
210        (car (read-from-string (concat "\"" (match-string 0) "\"")))))        (car (read-from-string (concat "\"" (match-string 0) "\"")))))
211    
212  ;; Return an appropriate quail-package filename from FILENAME (TIT  ;; Return an appropriate quail-package filename from FILENAME (TIT
# Line 768  To get complete usage, invoke \"emacs -b Line 768  To get complete usage, invoke \"emacs -b
768      (insert "(quail-define-rules\n")      (insert "(quail-define-rules\n")
769      (save-excursion      (save-excursion
770        (set-buffer dicbuf)        (set-buffer dicbuf)
771          ;; Handle double CR line ends, which result when checking out of
772          ;; CVS on MS-Windows.
773          (goto-char (point-min))
774          (while (re-search-forward "\r\r$" nil t)
775            (replace-match ""))
776        (goto-char (point-min))        (goto-char (point-min))
777        (search-forward "A440")        (search-forward "A440")
778        (beginning-of-line)        (beginning-of-line)
# Line 1178  to store generated Quail packages." Line 1183  to store generated Quail packages."
1183  ;; coding: iso-2022-7bit  ;; coding: iso-2022-7bit
1184  ;; End:  ;; End:
1185    
1186    ;;; arch-tag: 8ad478b2-a985-4da2-b47f-d8ee5d7c24a3
1187  ;;; titdic-cnv.el ends here  ;;; titdic-cnv.el ends here

Legend:
Removed from v.1.32.2.1  
changed lines
  Added in v.1.32.2.2

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