Patch elisp for emacs24. This likely isn't all of it.

3 files changed, 42 insertions, 1 deletions

diff --git a/devel/cqual/distinfo b/devel/cqual/distinfo
index 57b8e314d02..00318da174b 100644
--- a/devel/cqual/distinfo
+++ b/devel/cqual/distinfo
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.12 2012/11/16 02:28:39 dholland Exp $
+$NetBSD: distinfo,v 1.13 2013/03/31 14:13:27 dholland Exp $
 
 SHA1 (cqual-0.991.tar.gz) = f559af6947465ca242f19c1f499c7cb004e713e4
 RMD160 (cqual-0.991.tar.gz) = e3837a11c75f750196ec4be7f991ec519c1260f6
@@ -25,5 +25,7 @@ SHA1 (patch-cc) = f30adeec491d999b63e1ad5abd2b34c287608e5e
 SHA1 (patch-cd) = 1d9b0197b13f2414054d47e4a6ae3bf8920463bf
 SHA1 (patch-ce) = f9079f2c306bad8c9c0539759c4541b8bee7cda4
 SHA1 (patch-src_Makefile_in) = 8656d4ba7d489dc164e7cc84975dcd3efe07e8d1
+SHA1 (patch-src_build-basics_el) = 80b31186a920798524c6efee2f40cd1a5765c7d0
+SHA1 (patch-src_build-types_el) = 909a74edfdc007a33df35e7ce8f8240c26f974e8
 SHA1 (patch-src_expr.c) = a9f2d4696c263a1ade40d0fac5ea655b3978fb20
 SHA1 (patch-src_libcompat_Makefile_in) = a872d6aabf81a1db9a21f176d3b774a842729eef
diff --git a/devel/cqual/patches/patch-src_build-basics_el b/devel/cqual/patches/patch-src_build-basics_el
new file mode 100644
index 00000000000..51136990c06
--- /dev/null
+++ b/devel/cqual/patches/patch-src_build-basics_el
@@ -0,0 +1,24 @@
+$NetBSD: patch-src_build-basics_el,v 1.1 2013/03/31 14:13:28 dholland Exp $
+
+Fix elisp for emacs24.
+
+--- src/build-basics.el~	2002-07-03 17:39:29.000000000 +0000
++++ src/build-basics.el
+@@ -61,7 +61,7 @@
+ (setq legal-attributes '(init tree nodump noprint default dump-special print-special format))
+ 
+ (defun attributes-ok (field-name attrs)
+-  (mapcar '(lambda (attr)
++  (mapcar #'(lambda (attr)
+ 	     (let* ((realattr (if (listp attr) attr (list attr)))
+ 		    (aname (car realattr)))
+ 	       (if (not (member aname legal-attributes))
+@@ -79,7 +79,7 @@
+   (mapcar #'check-type types))
+ 
+ (defun check-type (type)
+-  (mapcar '(lambda (field-name)
++  (mapcar #'(lambda (field-name)
+ 	     (if (not (assoc field-name fields))
+ 		 (message (format "Unknown field %s in %s" field-name (car type)))))
+ 	  (type-fields type))
diff --git a/devel/cqual/patches/patch-src_build-types_el b/devel/cqual/patches/patch-src_build-types_el
new file mode 100644
index 00000000000..3e3e7674c1f
--- /dev/null
+++ b/devel/cqual/patches/patch-src_build-types_el
@@ -0,0 +1,15 @@
+$NetBSD: patch-src_build-types_el,v 1.1 2013/03/31 14:13:28 dholland Exp $
+
+Fix elisp for emacs24.
+
+--- src/build-types.el~	2002-07-03 17:39:30.000000000 +0000
++++ src/build-types.el
+@@ -109,7 +109,7 @@
+   (if (type-super-type type)
+       (write-fields (assoc (type-super-type type) types))
+     (insert "  ast_kind kind;\n"))
+-  (mapc '(lambda (field-name)
++  (mapc #'(lambda (field-name)
+ 	   (let ((field (assoc field-name fields)))
+ 	     (insert "  "
+ 	      (if (assoc 'format (field-attributes field))