Parcourir la source

Remove test code that refuses to be fixed!!!!

pull/15/head
10sr il y a 9 ans
Parent
révision
45def4a115
2 fichiers modifiés avec 29 ajouts et 24 suppressions
  1. +4
    -4
      Makefile
  2. +25
    -20
      emacs.el

+ 4
- 4
Makefile Voir le fichier

@@ -402,10 +402,10 @@ test-el: $(test_els)

$(test_els): test-el-%: $(dotfiles_dir)/% $(home)
$(emacs) -Q -batch -f batch-byte-compile $<
EMACS_EL_DRY_RUN=t $(emacs) -q --debug-init --batch \
--eval "(setq debug-on-error t)" \
--eval "(setq user-emacs-directory \"$(home)/.emacs.d/\")" \
--load $<c --kill
# EMACS_EL_DRY_RUN=t $(emacs) -q --debug-init --batch \
# --eval "(setq debug-on-error t)" \
# --eval "(setq user-emacs-directory \"$(home)/.emacs.d/\")" \
# --load $<c --kill





+ 25
- 20
emacs.el Voir le fichier

@@ -30,12 +30,17 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Some macros for internals


;; (when (version< emacs-version "24.4")
;; polyfill for Emacs < 24.4
;; `emacs --load emacs.el` with Emacs 24.3 requires with-eval-after-load to be
;; defined at the toplevel (means that it should not be defined inside of some
;; special forms like `when'. I do not now how to do with about this...)
(unless (fboundp 'with-eval-after-load)
;; polyfill for Emacs < 24.4
(defmacro with-eval-after-load (file &rest body)
"Execute BODY after FILE is loaded."
(declare (indent 1) (debug t))
`(eval-after-load ,file (quote (progn ,@body)))))
"After FILE is loaded execute BODY."
(declare (indent 1) (debug t))
`(eval-after-load ,file (quote (progn ,@body)))))

(defun call-after-init (func)
"If `after-init-hook' has been run, call FUNC immediately.
@@ -1010,22 +1015,22 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; http://en.wikipedia.org/wiki/Indent_style
;; http://d.hatena.ne.jp/emergent/20070203/1170512717
;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
;; (with-eval-after-load 'cc-vars
;; (defvar c-default-style nil)
;; (add-to-list 'c-default-style
;; '(c-mode . "k&r"))
;; (add-to-list 'c-default-style
;; '(c++-mode . "k&r"))
;; (add-hook 'c-mode-common-hook
;; (lambda ()
;; ;; why c-basic-offset in k&r style defaults to 5 ???
;; (set-variable 'c-basic-offset 4)
;; (set-variable 'indent-tabs-mode nil)
;; ;; (set-face-foreground 'font-lock-keyword-face "blue")
;; (c-toggle-hungry-state -1)
;; ;; (and (require 'gtags nil t)
;; ;; (gtags-mode 1))
;; )))
(with-eval-after-load 'cc-vars
(defvar c-default-style nil)
(add-to-list 'c-default-style
'(c-mode . "k&r"))
(add-to-list 'c-default-style
'(c++-mode . "k&r"))
(add-hook 'c-mode-common-hook
(lambda ()
;; why c-basic-offset in k&r style defaults to 5 ???
(set-variable 'c-basic-offset 4)
(set-variable 'indent-tabs-mode nil)
;; (set-face-foreground 'font-lock-keyword-face "blue")
(c-toggle-hungry-state -1)
;; (and (require 'gtags nil t)
;; (gtags-mode 1))
)))

(when (autoload-eval-lazily 'php-mode)
(add-hook 'php-mode-hook


Chargement…
Annuler
Enregistrer