/usr/share/emacs/site-lisp/navi2ch/bcomp.el is in navi2ch 2.0.0~git20120331-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ;;; -*- 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" "navi2ch-p2.el" "navi2ch-thumbnail.el"
))
(let* ((dir (expand-file-name default-directory))
(load-path (cons dir load-path))
file)
(message "deleting old .elc files...")
(dolist (elt bcomp-files)
(setq file (concat dir elt "c"))
(when (file-exists-p file)
(delete-file file)))
(message "compiling...")
(dolist (elt bcomp-files)
(setq file (concat dir elt))
(let ((coding-system-for-read 'iso-2022-7bit))
(byte-compile-file file t)))
(message "done"))
|