Группа :: Редакторы
Пакет: 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))