X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/ca001a562783538cad2762d90f8026896b4d6985..23a624ca1d40fa9cefd7229ac6152b79278a6517:/packages/ada-mode/gpr-skel.el

diff --git a/packages/ada-mode/gpr-skel.el b/packages/ada-mode/gpr-skel.el
old mode 100755
new mode 100644
index 2ddc5d134..9990f0944
--- a/packages/ada-mode/gpr-skel.el
+++ b/packages/ada-mode/gpr-skel.el
@@ -213,15 +213,15 @@ it is a name, and use the word before that as the token."
       ;; hippie is asking us to try the "next" completion; we don't have one
       nil
     (let ((pos (point))
-	  (undo-len (length pending-undo-list)))
+	  (undo-len (if (sequencep pending-undo-list) (length pending-undo-list) 0)))
       (undo-boundary)
       (condition-case nil
 	  (progn
 	    (skeleton-expand)
 	    t)
-	('error
+	(error
 	 ;; undo hook action if any
-	 (unless (= undo-len (length pending-undo-list))
+	 (unless (= undo-len (if (sequencep pending-undo-list) (length pending-undo-list) 0))
 	   (undo))
 
 	 ;; undo motion