changeset 21688:855aedeb0742

(tmm-get-keymap): Handle new format menu item w/o cache. (tmm-prompt): If reach an empty menu, get an error.
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Apr 1998 04:51:23 +0000
parents 6645cda31681
children 95c0fe8d25a7
files lisp/tmm.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tmm.el	Tue Apr 21 04:03:16 1998 +0000
+++ b/lisp/tmm.el	Tue Apr 21 04:51:23 1998 +0000
@@ -176,6 +176,8 @@
 	;; This way we only ask the user one question,
 	;; for which element of that pane.
 	(setq choice (cdr (car tmm-km-list)))
+      (unless tmm-km-list
+	(error "Empty menu reached"))
       (and tmm-km-list
 	   (let ((index-of-default 0))
 	     (if tmm-mid-prompt
@@ -220,7 +222,7 @@
 	   (string= (substring out 0 (length tmm-c-prompt)) tmm-c-prompt)
 	   (setq out (substring out (length tmm-c-prompt))
 		 choice (cdr (assoc out tmm-km-list))))
-      (and (null choice)
+      (and (null choice) out
 	   (setq out (try-completion out tmm-km-list)
 		 choice (cdr (assoc  out tmm-km-list)))))
     ;; CHOICE is now (STRING . MEANING).  Separate the two parts.
@@ -426,6 +428,7 @@
 	       (setq km (nth 2 elt))
 	       (setq str (nth 1 elt))
 	       (and str
+		    (consp (nth 3 elt))
 		    (stringp (cdr (car (nth 3 elt)))) ; keyseq cache
 		    (setq cache (cdr (car (nth 3 elt))))
 		    cache