comparison lisp/international/quail.el @ 89483:2f877ed80fa6

*** empty log message ***

88123:375f2633d815

(defun quail-error (&rest args)
  (signal 'quail-error (apply 'format args)))

(defun quail-input-string-to-events (str)
  "Convert input string STR to a list of events.
Do so while interleaving with the following special events:
\(compose-last-chars LEN COMPONENTS)
\(quail-advice INPUT-STRING)"
  (let* ((events (mapcar
		  (lambda (c)
		    ;; This gives us the chance to unify on input
		    ;; (e.g. using ucs-tables.el).
		    (or (and translation-table-for-input
			     (aref translation-table-for-input c))
			c))
		  str))
	 (len (length str))
	 (idx len)
	 composition from to)
    (while (and (> idx 0)
		(setq composition (find-composition idx 0 str t)))
      (setq from (car composition) to (nth 1 composition))
      (setcdr (nthcdr (1- to) events)
	      (cons (list 'compose-last-chars (- to from)
			  (and (not (nth 3 composition)) (nth 2 composition)))
		    (nthcdr to events)))
      (setq idx (1- from)))
    (if (or (get-text-property 0 'advice str)
	    (next-single-property-change 0 'advice str))
	(setq events
	      (nconc events (list (list 'quail-advice str)))))
    events))

	  (setq num (quail-build-decode-map (list (quail-map)) "" decode-map
					    0 512 done-list))
	  (when (> num 0)
	    (insert "
KEY SEQUENCE
-----------
")
	    (if (quail-show-layout)
		(insert "You can also input more characters")
	      (insert "You can input characters"))
	    (insert " by the following key sequences:\n")

	  (setq pkg-list (cdr pkg-list)))
	(setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames))))

    ;; At last, write out LEIM list file.
    (with-current-buffer list-buf
      (setq buffer-file-coding-system 'iso-2022-7bit)
      (save-buffer 0))
    (kill-buffer list-buf)
    (message "Updating %s ... done" leim-list)))

(defun quail-advice (args)
  "Advise users about the characters input by the current Quail package.

89483:2f877ed80fa6

(defun quail-error (&rest args)
  (signal 'quail-error (apply 'format args)))

(defun quail-input-string-to-events (str)
  "Convert input string STR to a list of events.
If STR has `advice' text property, append the following special event:
\(quail-advice STR)"
  (let ((events (mapcar
		 (lambda (c)
		   ;; This gives us the chance to unify on input
		   ;; (e.g. using ucs-tables.el).
		   (or (and translation-table-for-input
			    (aref translation-table-for-input c))
		       c))
		 str)))
    (if (or (get-text-property 0 'advice str)
	    (next-single-property-change 0 'advice str))
	(setq events
	      (nconc events (list (list 'quail-advice str)))))
    events))

	  (setq num (quail-build-decode-map (list (quail-map)) "" decode-map
					    0 512 done-list))
	  (when (> num 0)
	    (insert "
KEY SEQUENCE
------------
")
	    (if (quail-show-layout)
		(insert "You can also input more characters")
	      (insert "You can input characters"))
	    (insert " by the following key sequences:\n")

	  (setq pkg-list (cdr pkg-list)))
	(setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames))))

    ;; At last, write out LEIM list file.
    (with-current-buffer list-buf
      (let ((coding-system-for-write 'iso-2022-7bit))
	(save-buffer 0)))
    (kill-buffer list-buf)
    (message "Updating %s ... done" leim-list)))

(defun quail-advice (args)
  "Advise users about the characters input by the current Quail package.