           (newline))
       (message "Error: both current coding and major-mode are nil."))))
 
-;; 確認なしでバッファの削除
 (defun kui/kill-buffer-without-interaction ()
   "Kill the current buffer without interaction."
   (interactive)
   (kill-buffer nil))
 (global-set-key "\C-xk" 'kui/kill-buffer-without-interaction)
 
-;; フルスクリーン状態をトグル
 (defun kui/toggle-fullscreen ()
   "Toggle full screen."
   (interactive)

  (kill-line (- 1 arg)))
(global-set-key "\C-u" 'kui/backward-kill-line)

;; インデント先頭に移動
;; インデント先頭時は行頭移動
;; 行頭時は何もしない （要するに eclipse 風）
(defun kui/move-beginning-of-line ()
  "`back-to-indentation' but execute `move-beginning-of-line' \
if point is in indentation or nothing if point is in BoL."
  (interactive)
  (unless (= (point) (point-at-bol))
    (let ((old-point (point)))
      (back-to-indentation)
      (if (= old-point (point))
          (move-beginning-of-line nil)))))
(global-set-key "\C-a" 'kui/move-beginning-of-line)

;; 現在の行をコメントアウト
(defun kui/comment-or-uncomment-current-line ()
  "Comment or uncomment current line."
  (interactive)
  (comment-or-uncomment-region (line-beginning-position)
                               (line-end-position)))

;; region ある時は、そのリージョンをコメントアウト
;; region ない時は、現在行をコメントアウト
(defun kui/comment-or-uncomment ()
  "Comment or uncomment region, but if region is not active, comment or \
uncomment the current line."

        (find-alternate-file (concat "/sudo::" file-name))
      (error "Cannot get a file name"))))

(defun kui/backward-kill-word-or-kill-region ()
  "Better `backward-kill-word'."
  (interactive)
