Changeset 6295 for dan

Timestamp:

02/06/08 20:15:57 (10 months ago)

Author:

akio0911

Message:

coderepos/dan/elisp/akio0911/study.el add some lines

Files:

• dan/elisp/akio0911/study.el (modified) (1 diff)

dan/elisp/akio0911/study.el

@@ -95 +95 @@
   (setq newlist (nreverse editors))
   (list editors newlist)) ; (("MEadow") ("vi" "Emacs" "MEadow"))
+
+;; シンボル及び関数定義の操作
+
+(defun func (x) (* x x)) ; func
+(symbol-function 'func) ; (lambda (x) (* x x))
+(byte-compile 'func) ; #[(x) "\211_\207" [x] 2]
+(symbol-function 'func) ; #[(x) "\211_\207" [x] 2]
+
+(defalias 'atomp 'atom) ; atom
+(atomp '(1 2)) ; nil
+(atomp "123") ; t
+
+;; 動作が良く分からないので後回し
+;; (let ((somefunc1-b (symbol-function 'somefunc1))
+;;       (somefunc2-b (symbol-function 'somefunc2)))
+;;   (fset 'somefunc1 'ignore)
+;;   (fset 'somefunc2 'ignore)
+;;   (unwind-protect
+;;       (progn (+ 1 2))
+;;     (fset 'somefunc1 somefunc1-b)
+;;     (fset 'somefunc2 somefunc2-b)))
+
+(setq x 10) ; 10
+(intern (concat "my-symbol-" (number-to-string x))) ; my-symbol-10
+(intern-soft "my-symbol-10") ; my-symbol-10
+(intern-soft "my-symbol-11") ; nil
+(unintern "my-symbol-10") ; t
+
+;; アドバイスの概要
+
+(defadvice list-buffers (after pop-to-buffer-list)
+  (pop-to-buffer "*Buffer List*")) ; list-buffers
+(ad-activate 'list-buffers) ; list-buffers
+
+;; アドバイスの定義
+
+(defun triple (x) (* x 3)) ; triple
+(defadvice triple (before before-triple)
+  (princ (format "before\n"))) ; triple
+(defadvice triple (after after-triple)
+  (princ (format "after\n"))) ; triple
+(defadvice triple (around around-triple)
+  (princ (format "around-before\n"))
+  ad-do-it
+  (princ (format "around-after\n"))) ; triple
+(ad-activate 'triple) ; triple
+
+(triple 3)
+;before
+;around-before
+;around-after
+;after
+;9
+
+;; アドバイスの活性化と有効化
+
+(ad-disable-advice 'triple 'around 'around-triple) ; nil
+(ad-activate 'triple) ; triple
+(triple 7)
+;before
+;after
+;21
+
+(ad-enable-advice 'triple 'around 'around-triple) ; nil
+(ad-activate 'triple) ; triple
+(triple 7)
+;before
+;around-before
+;around-after
+;after
+;21
+
+(ad-deactivate 'triple) ; triple
+(triple 7) ; 21
+
+;; 引数及び返却値の操作
+
+(defun sample (x y z) (list x y z)) ; sample
+(defadvice sample (before before-sample1)
+  (princ (format "arg 1: %s\n"
+                 (ad-get-arg 1)))) ; sample
+(defadvice sample (before before-sample2)
+  (princ (format "args 1: %s\n"
+                 (ad-get-args 1)))) ; sample
+(defadvice sample (before before-sample3)
+  (ad-set-arg 0 "arg 0")) ; sample
+(defadvice sample (before before-sample4)
+  (ad-set-args 1 '("arg 1" "arg 2"))) ; sample
+(defadvice sample (around around-sample)
+  (princ (format "around begin:\n"))
+  ad-do-it
+  (princ (format "around end:\n"))) ; sample
+(defadvice sample (after after-sample)
+  (princ (format "%s\n"
+                 ad-return-value))
+  (setq ad-return-value '(1 2 3))) ; sample
+(ad-activate 'sample) ; sample
+
+(sample 4 5 6)
+;args 1: (arg 1 arg 2)
+;arg 1: arg 1
+;around begin:
+;around end:
+;(arg 0 arg 1 arg 2)
+;(1 2 3)
+
+;; ファイルロードの概要
+
+(setq load-path (cons "~/mylisp" load-path))
+(setq load-path (append (list "~/mylisp" "/opt/lisp") load-path))