Changeset 289 for dotfiles/emacs/kentaro/.emacs.d/conf/init-keymaps.el

Timestamp:

09/27/07 19:27:24 (16 months ago)

Author:

kentaro

Message:

dotfiles/emacs/kentaro:

• added init-autosave-buffers.el
  
• added init-scheme.el
  
• added init-w3m.el
  
• added some utilities into init-perl.el
  

Files:

• dotfiles/emacs/kentaro/.emacs.d/conf/init-keymaps.el (modified) (1 diff)

dotfiles/emacs/kentaro/.emacs.d/conf/init-keymaps.el

@@ -6 +6 @@
 ;; C-x?でヘルプ
 (global-set-key "\C-x?" 'help)
+
+;; C-c C-iでインフォを引く
+(define-key global-map "\C-c\C-i" 'info-lookup-symbol)
+
+;; C-aで、インデント文字を飛ばした行頭に戻る
+;; http://subtech.g.hatena.ne.jp/antipop/20070916/1189915386
+(global-set-key "\C-a" 'beggining-of-indented-line)
+(defun beggining-of-indented-line (current-point)
+  "インデント文字を飛ばした行頭に戻る。ただし、ポイントから行頭ま
+での間にインデント文字しかない場合は、行頭に戻る。"
+  (interactive "d")
+  (if (string-match
+       "^[ \t]*$"
+       (save-excursion
+         (buffer-substring-no-properties
+          (progn (beginning-of-line) (point))
+          current-point)))
+      (beginning-of-line)
+    (back-to-indentation)))