# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1409998349 -10800
# Node ID 89f674f09ca30661b7cae9e080f20025c923b33d
# Parent  2036f6052212c5598e63b2d33335bf0377880148
If the string begins with ^' andshift-select-mode' is non-nil, Emacs first
calls the function `handle-shift-select'.

diff -r 2036f6052212 -r 89f674f09ca3 .emacs-my
--- a/.emacs-my	Sat Sep 06 13:09:08 2014 +0300
+++ b/.emacs-my	Sat Sep 06 13:12:29 2014 +0300
@@ -757,7 +757,7 @@
 (defun my-smart-beginning-of-line ()
   "Move point to beginning-of-line. If repeat command it cycle
 position between `back-to-indentation' and `beginning-of-line'."
-  (interactive)
+  (interactive "^")
   (if (and (eq last-command 'my-smart-beginning-of-line)
            (= (line-beginning-position) (point)))
       (back-to-indentation)