Permalink
Browse files

bcomp.el*:

Specify coding-system to bytecompile.
  • Loading branch information...
1 parent 5713d14 commit 91e3efb60671d7c3c229560e833c87203cc5e331 nawota committed Aug 25, 2008
Showing with 22 additions and 10 deletions.
  1. +5 −0 ChangeLog
  2. +9 −5 bcomp.el
  3. +8 −5 bcomp.el.in
View
@@ -1,3 +1,8 @@
+2008-08-25 Naohiro Aota <nao.aota@gmail.com>
+
+ * bcomp.el.in, bcomp.el : coding-system を指定してコンパイルするよ
+ うに。
+
2008-08-09 Naohiro Aota <nao.aota@gmail.com>
* navi2ch-vars.el (navi2ch-coding-system): cp932, shift_jis-2004,
View
@@ -1,6 +1,11 @@
;;; -*- Emacs-Lisp -*-
+
(require 'cl)
+(when (featurep 'xemacs)
+ (setq log-warning-minimum-level 'info)
+ (setenv "XEMACSDEBUG" nil))
+
(setq bcomp-files
'(
"navi2ch-version.el" "navi2ch-vars.el" "navi2ch-face.el" "navi2ch-util.el" "navi2ch-net.el" "navi2ch-list.el" "navi2ch-article.el" "navi2ch-popup-article.el" "navi2ch-board-misc.el" "navi2ch-board.el" "navi2ch-articles.el" "navi2ch-bookmark.el" "navi2ch-history.el" "navi2ch-search.el" "navi2ch-message.el" "navi2ch.el" "navi2ch-head.el" "navi2ch-mona.el" "navi2ch-e21.el" "navi2ch-xmas.el" "navi2ch-splash.el" "navi2ch-directory.el" "navi2ch-be2ch.el" "navi2ch-multibbs.el" "navi2ch-jbbs-net.el" "navi2ch-jbbs-shitaraba.el" "navi2ch-machibbs.el" "navi2ch-futaba.el" "navi2ch-megabbs.el" "navi2ch-http-date.el" "navi2ch-localfile.el" "navi2ch-oyster.el" "navi2ch-auto-modify.el"
@@ -12,12 +17,11 @@
(message "deleting old .elc files...")
(dolist (elt bcomp-files)
(setq file (concat dir elt "c"))
- (if (file-exists-p file)
- (delete-file file)))
-
+ (when (file-exists-p file)
+ (delete-file file)))
(message "compiling...")
(dolist (elt bcomp-files)
(setq file (concat dir elt))
- (byte-compile-file file t))
-
+ (let ((coding-system-for-read 'iso-2022-7bit))
+ (byte-compile-file file t)))
(message "done"))
View
@@ -1,6 +1,10 @@
;;; -*- Emacs-Lisp -*-
(require 'cl)
+(when (featurep 'xemacs)
+ (setq log-warning-minimum-level 'info)
+ (setenv "XEMACSDEBUG" nil))
+
(setq bcomp-files
'(
@lisp_LISP@
@@ -12,12 +16,11 @@
(message "deleting old .elc files...")
(dolist (elt bcomp-files)
(setq file (concat dir elt "c"))
- (if (file-exists-p file)
- (delete-file file)))
-
+ (when (file-exists-p file)
+ (delete-file file)))
(message "compiling...")
(dolist (elt bcomp-files)
(setq file (concat dir elt))
- (byte-compile-file file t))
-
+ (let ((coding-system-for-read 'iso-2022-7bit))
+ (byte-compile-file file t)))
(message "done"))

0 comments on commit 91e3efb

Please sign in to comment.