;; Libraries (require 'cl) ;;; Variables (defvar aka-init-dir "/home/aka/.emacs.d/") ;;; Utility Functions (defun aka-qualify (relative-path) (concat aka-init-dir relative-path)) ;;; Main Procedure (cond ((and (equal system-configuration "mipsel-unknown-linux-gnu") (equal emacs-version "23.1.1")) (load (aka-qualify "init-adhoc"))) (t (load (aka-qualify "init-general"))))
~/jail/usr/local/share/emacs/site-lisp ~/jail/usr/local/share/emacs/<version-number>/site-lisp
/usr/local/share/emacs/site-lisp /usr/local/share/emacs/<version-number>/site-lisp
(add-to-list 'load-path "/home/aka/jail/usr/local/share/emacs/site-lisp/org-6.36c/lisp") (add-to-list 'Info-additional-directory-list "/home/aka/jail/usr/local/share/emacs/site-lisp/org-6.36c/doc")
(require 'auto-complete) (require 'yasnippet) (defun ac-yasnippet-candidate () (let ((table (yas/get-snippet-tables major-mode))) (if table (let (candidates (list)) (mapcar (lambda (mode) (maphash (lambda (key value) (push key candidates)) (yas/snippet-table-hash mode))) table) (all-completions ac-prefix candidates))))) (defface ac-yasnippet-candidate-face '((t (:background "sandybrown" :foreground "black"))) "Face for yasnippet candidate.") (defface ac-yasnippet-selection-face '((t (:background "coral3" :foreground "white"))) "Face for the yasnippet selected candidate.") (defvar ac-source-yasnippet '((candidates . ac-yasnippet-candidate) (action . yas/expand) (limit . 3) (candidate-face . ac-yasnippet-candidate-face) (selection-face . ac-yasnippet-selection-face)) "Source for Yasnippet.") (provide 'auto-complete-yasnippet)auto-complete-yasnippet.elとして、jail/usr/local/share/emacs/site-lisp/に配置。