mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(quail-defrule-internal): New arg REPLACE.

Browse Source 
(quail-defrule): Call quail-defrule-internal with REPLACE t.
This commit is contained in:
Richard M. Stallman 1998-03-06 21:33:37 +00:00
parent ecd57ad40f
commit 171666af2d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/quail.el
View File

@ -798,7 +798,7 @@ If TRANSLATION is a Quail map or a function symbol which returns a Quail map,
',(let ((l rules)
(map (list nil)))
(while l
(quail-defrule-internal (car (car l)) (car (cdr (car l))) map)
(quail-defrule-internal (car (car l)) (car (cdr (car l))) map t)
(setq l (cdr l)))
map)))
@ -841,7 +841,7 @@ current Quail package."
(quail-defrule-internal key translation (quail-map)))
;;;###autoload
(defun quail-defrule-internal (key trans map)
(defun quail-defrule-internal (key trans map &optional append)
"Define KEY as TRANS in a Quail map MAP."
(if (null (stringp key))
"Invalid Quail key `%s'" key)
@ -891,7 +891,9 @@ current Quail package."
(error "Quail key %s is too short" key)
(setcdr entry trans))
(setcdr entry (append trans (cdr map)))))
(setcar map trans)))))
(if (and append (stringp (car map)) (stringp trans))
(setcar map (concat (car map) trans))
(setcar map trans))))))
(defun quail-get-translation (def key len)
"Return the translation specified as DEF for KEY of length LEN.