mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Compress publicsuffix file to save space

Browse Source 
* url-domsuf.el (url-domsuf-parse-file): Read compressed
publicsuffix file if available.
* Makefile.in (install-arch-indep): Compress publicsuffix.txt file.
This commit is contained in:
David Reitter 2014-11-14 07:22:01 -05:00
parent a5cbb7d9cc
commit c28ef9a466
4 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2014-11-14 David Reitter <david.reitter@gmail.com>
* Makefile.in (install-arch-indep): Compress publicsuffix.txt file.
2014-11-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* .gitignore: Copy over sufficient ignorable files from the old

5
Makefile.in
View File

@ -259,7 +259,7 @@ MKDIR_P = @MKDIR_P@
# Create a link to a file in the same directory as the target.
LN_S_FILEONLY = @LN_S_FILEONLY@
# We use gzip to compress installed .el files.
# We use gzip to compress installed .el and some .txt files.
GZIP_PROG = @GZIP_PROG@
# ============================= Targets ==============================
@ -600,11 +600,12 @@ install-arch-indep: lisp install-info install-man ${INSTALL_ARCH_INDEP_EXTRA}
subdir="$(DESTDIR)${datadir}/emacs/site-lisp" ; \
${write_subdir} || true
[ -z "${GZIP_PROG}" ] || { \
echo "Compressing *.el ..." && \
echo "Compressing *.el etc. ..." && \
cd "$(DESTDIR)${lispdir}" && \
for f in `find . -name "*.elc" -print | sed 's/.elc$$/.el/'`; do \
${GZIP_PROG} -9n "$$f"; \
done; \
${GZIP_PROG} -9n "../etc/publicsuffix.txt"; \
}
-chmod -R a+r "$(DESTDIR)${datadir}/emacs/${version}" ${COPYDESTS}

5
lisp/url/ChangeLog
View File

@ -1,3 +1,8 @@
2014-11-14 David Reitter <david.reitter@gmail.com>
* url-domsuf.el (url-domsuf-parse-file): Read compressed
publicsuffix file if available.
2014-11-05 Teodor Zlatanov <tzz@lifelogs.com>
* url-http.el (url-user-agent): New variable, can be function or

8
lisp/url/url-domsuf.el
View File

@ -32,8 +32,12 @@
(defun url-domsuf-parse-file ()
(with-temp-buffer
(insert-file-contents
(expand-file-name "publicsuffix.txt" data-directory))
(with-auto-compression-mode
(insert-file-contents
(let* ((suffixfile (expand-file-name "publicsuffix.txt" data-directory))
(compressed-file (concat suffixfile ".gz")))
(or (and (file-readable-p compressed-file) compressed-file)
suffixfile))))
(let ((domains nil)
domain exception)
(while (not (eobp))