Changeset 6349 for dan/elisp

Timestamp:

02/07/08 21:02:40 (5 years ago)

Author:

akio0911

Message:

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

Files:

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

dan/elisp/akio0911/study.el

@@ -205 +205 @@
 (setq load-path (cons "~/mylisp" load-path))
 (setq load-path (append (list "~/mylisp" "/opt/lisp") load-path))
+
+;; ライブラリのロード
+
+(load "myprog" t) ; nil
+(autoload 'my-text-mode "my-text") ; (autoload "my-text" nil nil nil)
+(eval-after-load "sample"
+  '(define-key sample-mode-map "\C-c\C-y" 'my-sample-cmd)) ; nil
+
+;; 機能
+
+(provide 'my-text-mode) ; my-text-mode
+(require 'my-text-mode) ; my-text-mode
+(require 'my-text-mode "my-text") ; my-text-mode
+(unload-feature 'my-text-mode)
+(unload-feature 'my-text-mode t) ; nil
+
+;; ライブラリの存在場所を探す
+
+(when (locate-library "foo")
+  (autoload 'foo-start "foo" "Start foo." t)) ; nil
+(locate-library "emacs" t (split-string (getenv "PATH") ":")) ; "/usr/bin/emacs"
+
+;; 編集に関連するオブジェクト
+
+(current-buffer) ; #<buffer *scratch*>
+(point-marker) ; #<marker at 246 in *scratch*>
+(previous-window) ; #<window 3 on study.el>
+(selected-frame) ; #<frame Emacs@akio-no-imac.local 0x412ff0>
+
+;; 編集に関連するオブジェクト向けの述語
+
+(let ((buf (get-buffer-create "*temporary*")))
+  (kill-buffer buf)
+  (buffer-live-p buf)) ; nil
+
+;; メジャーモード
+
+(defvar sample-mode-hook nil)
+(defvar sample-mode-map nil)
+(unless sample-mode-map
+  (setq sample-mode-map (make-keymap))
+  (define-key sample-mode-map "\t" 'indent-relative))
+
+(defun sample-mode ()
+  "Sample major mode."
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map sample-mode-map)
+  (make-local-variable 'indent-line-function)
+  (setq indent-line-function 'indent-relative-maybe)
+  (setq mode-name "Sample")
+  (setq major-mode 'sample-mode)
+  (run-hooks 'sample-mode-hook))
+
+;; メジャーモードの判定
+
+(setq auto-mode-alist
+      (cons '("\\.smpl\\'". sample-mode) auto-mode-alist))
+
+(setq auto-mode-alist
+      (append '(("\\.smpl\\'" . sample-mode) ("\\.tst\\'" . test-mode))
+              auto-mode-alist))
+
+;; マイナーモード
+
+(defvar sample-minor-mode nil)
+(defvar sample-minor-mode-hook nil)
+
+(defun sample-minor-mode (&optional arg)
+  "Sample minor mode."
+  (interactive)
+  (setq sample-minor-mode
+        (if (null arg) (not sample-minor-mode)
+          (> arg 0)))
+  (if sample-minor-mode
+      (message "Sample minor mode enabled")
+    (message "Sample minor mode disabled"))
+  (or (assq 'sample-minor-mode minor-mode-alist)
+      (setq minor-mode-alist
+            (cons '(sample-minor-mode " Sample")
+                  minor-mode-alist)))
+  (run-hooks 'sample-minor-mode-hook))
+
+;; モードラインの定義
+
+(setq mode-line-format
+      '(""
+        mode-line-mule-info
+        mode-line-modified
+        " "
+        (-10 "" mode-line-buffer-identification)
+        "("
+        (:eval (mode-line-mode-name))
+        "%n)--"
+        (line-number-mode "%l" "--")
+        ":"
+        (column-number-mode "C%c" "--")
+        "[%p]%"
+        ))
+
+;; バッファローカル変数
+
+(make-local-variable 'tab-width) ; tab-width
+(setq tab-width 4) ; 4
+
+(set (make-local-variable 'tab-width) 4) ; 4
+
+tab-width ; 4
+(default-value 'tab-width) ; 8
+(kill-local-variable 'tab-width) ; tab-width
+tab-width ; 8
+
+(setq-default comment-column 52) ; 52
+
+;; フック
+
+(add-hook 'text-mode-hook
+          (lambda ()
+            (set (make-local-variable 'case-fold-search) nil)
+            (abbrev-mode 1))) ; ((lambda nil (set (make-local-variable ...) nil) (abbrev-mode 1)) text-mode-hook-identify)
+
+(defun sample-func ()
+  (set (make-local-variable 'case-fold-search) nil)
+  (abbrev-mode 1)) ; sample-func
+(add-hook 'text-mode-hook 'sample-func) ; (sample-func (lambda nil (set (make-local-variable ...) nil) (abbrev-mode 1)) text-mode-hook-identify)
+
+(remove-hook 'text-mode-hook
+             (lambda ()
+               (set (make-local-variable 'case-fold-search) nil)
+               (abbrev-mode 1))) ; (sample-func text-mode-hook-identify)
+(remove-hook 'text-mode-hook
+             'sample-func) ; (text-mode-hook-identify)