updated emacs23-vl.spec, emacs24-vl.spec

git-svn-id: http://trac.vinelinux.org/repos/projects/specs@3288 ec354946-7b23-47d6-9f5a-488ba84defc7

e/emacs/emacs23-vl.spec

@@ -1,6 +1,6 @@
 %define emacsversion 23.3
 #% define rcversion rc1
-%define emacsrelease 1%{?rcversion:.%rcversion}%{?_dist_release}
+%define emacsrelease 2%{?rcversion:.%rcversion}%{?_dist_release}
 
 %define _noVersionedDependencies 1
 %define prereq_ge()  %(LC_ALL="C" rpm -q --queryformat 'PreReq:%%{NAME} >= %%{VERSION}' %1| grep -v "is not")
@@ -423,7 +423,11 @@ unset PRIORITY
 %{_localstatedir}/games/emacs/*
 
 %changelog
-* Fri Mar 11 2011 Munehiro Yamamoto <munepi@vinelinux.org> 23.3-2
+* Sun Apr 03 2011 Munehiro Yamamoto <munepi@vinelinux.org> 23.3-2
+- fixed site-start.el
+  - do not use the macro loop (contained in the common lisp)
+
+* Fri Mar 11 2011 Munehiro Yamamoto <munepi@vinelinux.org> 23.3-1
 - new upstream release
 
 * Tue Mar 01 2011 Munehiro Yamamoto <munepi@vinelinux.org> 23.3-1.rc1

e/emacs/site-start.el.emacs23

@@ -40,7 +40,6 @@
       (message "Loading vine-default-faces ...")
       (require 'vine-default-faces))
     (run-hooks 'vine-default-setup-hook)
-    (run-hooks 'after-vine-default-setup-hook);; obsolete
     )
   )
 
@@ -53,9 +52,12 @@
 (defun drop-vine-default-from-load-path (regex)
   "A function to drop a path matching to REGEX from load-path"
   (setq load-path
-	(loop for x in load-path
-	      unless (string-match regex x)
-	      collect x))
+	(let (list)
+	  (dolist (x (reverse load-path) list)
+	    (unless (string-match regex x)
+	      (setq list (cons x list))))
+	  )
+	)
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

e/emacs24/emacs24-vl.spec

@@ -1,6 +1,6 @@
 %define emacsversion 24.0.50
 %define bzrdate 20110318
-%define emacsrelease 5%{?bzrdate:.%bzrdate}%{?_dist_release}
+%define emacsrelease 6%{?bzrdate:.%bzrdate}%{?_dist_release}
 
 %define _noVersionedDependencies 1
 %define prereq_ge()  %(LC_ALL="C" rpm -q --queryformat 'PreReq:%%{NAME} >= %%{VERSION}' %1| grep -v "is not")
@@ -366,6 +366,10 @@ unset PRIORITY
 
 
 %changelog
+* Sun Apr 03 2011 Munehiro Yamamoto <munepi@vinelinux.org> 24.0.50-6.20110318
+- fixed site-start.el
+  - do not use the macro loop (contained in the common lisp)
+
 * Tue Feb 22 2011 Munehiro Yamamoto <munepi@vinelinux.org> 24.0.50-5.20110318
 - emacs24 24.0.50 (20110318) snapshot
 

e/emacs24/site-start.el.emacs24

@@ -40,7 +40,6 @@
       (message "Loading vine-default-faces ...")
       (require 'vine-default-faces))
     (run-hooks 'vine-default-setup-hook)
-    (run-hooks 'after-vine-default-setup-hook);; obsolete
     )
   )
 
@@ -53,9 +52,12 @@
 (defun drop-vine-default-from-load-path (regex)
   "A function to drop a path matching to REGEX from load-path"
   (setq load-path
-	(loop for x in load-path
-	      unless (string-match regex x)
-	      collect x))
+	(let (list)
+	  (dolist (x (reverse load-path) list)
+	    (unless (string-match regex x)
+	      (setq list (cons x list))))
+	  )
+	)
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;