[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el [lexbind]

[Miles Bader]

Index: emacs/lisp/international/titdic-cnv.el
diff -c emacs/lisp/international/titdic-cnv.el:1.32.2.1 
emacs/lisp/international/titdic-cnv.el:1.32.2.2
*** emacs/lisp/international/titdic-cnv.el:1.32.2.1     Fri Apr  4 01:20:26 2003
--- emacs/lisp/international/titdic-cnv.el      Tue Oct 14 19:39:23 2003
***************
*** 206,212 ****
  
  ;; Return a value of the key in the current line.
  (defsubst tit-read-key-value ()
!   (if (looking-at "[^ \t\n]+")
        (car (read-from-string (concat "\"" (match-string 0) "\"")))))
  
  ;; Return an appropriate quail-package filename from FILENAME (TIT
--- 206,212 ----
  
  ;; Return a value of the key in the current line.
  (defsubst tit-read-key-value ()
!   (if (looking-at "[^ \t\r\n]+")
        (car (read-from-string (concat "\"" (match-string 0) "\"")))))
  
  ;; Return an appropriate quail-package filename from FILENAME (TIT
***************
*** 768,773 ****
--- 768,778 ----
      (insert "(quail-define-rules\n")
      (save-excursion
        (set-buffer dicbuf)
+       ;; Handle double CR line ends, which result when checking out of
+       ;; CVS on MS-Windows.
+       (goto-char (point-min))
+       (while (re-search-forward "\r\r$" nil t)
+       (replace-match ""))
        (goto-char (point-min))
        (search-forward "A440")
        (beginning-of-line)
***************
*** 1178,1181 ****
--- 1183,1187 ----
  ;; coding: iso-2022-7bit
  ;; End:
  
+ ;;; arch-tag: 8ad478b2-a985-4da2-b47f-d8ee5d7c24a3
  ;;; titdic-cnv.el ends here