procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tit-process-header): Convert argument of KEYPROMPT if it contains an escape.

Browse source 
(tit-process-body): Handle trailing whitespace and multiple spaces
between phrases.
This commit is contained in:
Richard M. Stallman 1997-09-16 01:57:52 +00:00
parent f0f90cfddf
commit 1fa1e1f500
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/international/titdic-cnv.el
View file

@ -176,6 +176,10 @@
(cond ((looking-at "KEYPROMPT(\\(.*\\)):[ \t]*")
(let ((key-char (match-string 1)))
(goto-char (match-end 0))
(if (string-match "\\\\[0-9]+" key-char)
(setq key-char
(car (read-from-string (format "\"%s\""
key-char)))))
(setq tit-keyprompt
(cons (cons key-char (tit-read-key-value))
tit-keyprompt))))))))
@ -320,17 +324,18 @@
(if tit-phrase
(progn
;; PHRASE1 PHRASE2 ... => ["PHRASE1" "PHRASE2" ...]
(insert "[\"")
(skip-chars-forward "^ \t\n")
(insert "[")
(skip-chars-forward " \t")
(while (not (eolp))
(insert "\"")
(forward-char 1)
(skip-chars-forward "^ \t\n")
(insert "\"")
(skip-chars-forward "^ \t\n"))
(insert "\"])"))
(skip-chars-forward " \t"))
(insert "])"))
;; TRANSLATIONS => "TRANSLATIONS"
(insert "\"")
(end-of-line)
(skip-chars-backward " \t")
(insert "\")"))
(forward-line 1))))
(insert ")\n")))