(require 'cl)
(require 'bytecomp)
-(push "." load-path)
(push "~/lisp/custom" load-path)
-(require 'lpath)
+(push "." load-path)
+(load "./lpath.el")
(defalias 'device-sound-enabled-p 'ignore)
(defalias 'play-sound-file 'ignore)
(fset 'read-color 'ignore)))
(setq byte-compile-warnings
- '(free-vars unresolved callargs redefine obsolete))
+ '(free-vars unresolved callargs redefine))
(defun dgnushack-compile ()
;;(setq byte-compile-dynamic t)
- (unless (locate-library "custom")
+ (unless (locate-library "cus-edit")
(error "You do not seem to have Custom installed.
Fetch it from <URL:http://www.dina.kvl.dk/~abraham/custom/>.
You also then need to add the following to the lisp/dgnushack.el file:
file elc)
(condition-case ()
(require 'w3-forms)
- (error (setq files (delete "nnweb.el" files))))
+ (error (setq files (delete "nnweb.el" (delete "nnlistserv.el" files)))))
(while (setq file (pop files))
- (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el"
- "messagexmas.el" "nnheaderxm.el"
- "smiley.el" "x-overlay.el")))
- xemacs)
+ (when (or (and (not xemacs)
+ (not (member file '("gnus-xmas.el" "gnus-picon.el"
+ "messagexmas.el" "nnheaderxm.el"
+ "smiley.el" "x-overlay.el"))))
+ (and xemacs
+ (not (member file '("md5.el")))))
(when (or (not (file-exists-p (setq elc (concat file "c"))))
(file-newer-than-file-p file elc))
(ignore-errors