Commits

Anonymous committed 2cedc3d

Provide some more input methods; ensure every specified langenv IM exists.
There's more to come, but that'll be committed to the trunk.

  • Participants
  • Parent commits 573a275

Comments (0)

Files changed (2)

+2007-05-20  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule-util.el (nested-alist-p):
+	Escape a parenthesis at the start of the line, for the sake of 
+	fontification.
+	* mule-util.el (set-nested-alist):
+	Merge a change that Handa made to the function back in 1999. 
+
 2006-12-01  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.49 released.
 
 Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is
 any Lisp object, and BRANCHES is a list of cons cells of the form
-(KEY-ELEMENT . NESTED-ALIST).
+\(KEY-ELEMENT . NESTED-ALIST).
 
 You can use a nested alist to store any Lisp object (ENTRY) for a key
 sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT.  KEYSEQ
       (setq i (1+ i)))
     (setcar alist entry)
     (if branches
-	(if (cdr alist)
-	    (error "Can't set branches for keyseq %s" keyseq)
-	  (setcdr alist branches)))))
+        (setcdr (last alist) branches))))
 
 ;;;###autoload
 (defun lookup-nested-alist (keyseq alist &optional len start nil-for-too-long)