Репозиторий ALT Linux backports/2.4
Последнее обновление: 9 июля 2008 | Пакетов: 497 | Посещений: 1494114
 поиск   регистрация   авторизация 
 
Группа :: Редакторы
Пакет: emacs21

 Главная   Изменения   Спек   Патчи   Загрузить   Bugs and FR 

Патч: emacs-21.2-alt14-load-el_bz2.patch


Try to load also bzipped2 .el/.elc files
as well as with gzipped and uncompressed variants (supported before)
imz@altlinux.ru, Feb 2003.
--- emacs-21.1.orig/src/lread.c	Sat Jun  2 10:09:41 2001
+++ emacs-21.1/src/lread.c	Sat Feb 16 17:51:53 2002
@@ -680,8 +680,8 @@
 
       fd = openp (Vload_path, file,
 		  (!NILP (nosuffix) ? ""
-		   : ! NILP (must_suffix) ? ".elc.gz:.elc:.el.gz:.el"
-		   : ".elc:.elc.gz:.el.gz:.el:"),
+		   : ! NILP (must_suffix) ? ".elc.bz2:.elc.gz:.elc:.el.bz2:.el.gz:.el"
+		   : ".elc.bz2:.elc.gz:.elc:.el.bz2:.el.gz:.el:"),
 		  &found, 0);
       UNGCPRO;
     }
--- emacs-21.2.orig/lisp/emacs-lisp/find-func.el	2001-07-25 19:04:21 +0400
+++ emacs-21.2/lisp/emacs-lisp/find-func.el	2003-02-10 22:21:06 +0300
@@ -130,7 +130,11 @@
 			   (if compression
 			       (or (locate-library (concat library ".el.gz")
 						   t path)
+				   (locate-library (concat library ".el.bz2")
+						   t path)
 				   (locate-library (concat library ".gz")
+						   t path)
+				   (locate-library (concat library ".bz2")
 						   t path)))))))
       (if (not filename)
 	  (error "The library `%s' is not in the path" library))
 
design & coding: Vladimir Lettiev aka crux © 2004-2005