[elpa] master e18bbf0 172/433: (mmm-display-insertion-key): Prevented (nthcdr -1 ...); breaks in XEmacs.

[Dmitry Gutov]

branch: master
commit e18bbf08464c6ededd92f3d095a825c13139ccaa
Author: mas <mas>
Commit: mas <mas>

    (mmm-display-insertion-key): Prevented (nthcdr -1 ...); breaks in XEmacs.
---
 mmm-cmds.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mmm-cmds.el b/mmm-cmds.el
index 0a97b97..9de05b9 100644
--- a/mmm-cmds.el
+++ b/mmm-cmds.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-cmds.el,v 1.11 2000/08/24 22:52:58 mas Exp $
+;; Version: $Id: mmm-cmds.el,v 1.12 2000/09/05 07:22:13 mas Exp $
 
 ;;{{{ GPL
 
@@ -323,7 +323,7 @@ is a symbol naming the insertion."
          ;; This gets us a dotted list, because of the way insertion
          ;; keys are specified.
          (key (append mmm-insert-modifiers (car spec)))
-         (lastkey (nthcdr (1- (safe-length key)) key)))
+         (lastkey (nthcdr (max (1- (safe-length key)) 0) key)))
     ;; Now we make it a true list
     (if (consp key)
         (setcdr lastkey (list (cdr lastkey)))