(global-smart-shift-mode 1)
;;; markがないときはエラーになるバグがあるので修正
(defadvice smart-shift-lines (before mark-fix activate)
  (or (mark) (push-mark nil t)))