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 |
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) |
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 |