 (put 'scroll-left 'disabled nil)
 
 
-(define-key ska-ctrl-v-map '[(control t)] 'fdlcap-change-case-current-word)
-
-(global-set-key '[(control up)]           '(lambda ()
-                                              (interactive)
-                                              (scroll-down 1)))
-(global-set-key '[(control down)]         '(lambda ()
-                                             (interactive)
-                                             (scroll-up 1)))
-
-(global-set-key '[(home)]                 'chb-home)
-(global-set-key '[(end)]                  'chb-end)
-
-
+(define-key ska-ctrl-v-map '[(control t)] #'fdlcap-change-case-current-word)
+
+(global-set-key '[(control up)] (lambda ()
+                                  (interactive)
+                                  (scroll-down 1)))
+(global-set-key '[(control down)] (lambda ()
+                                    (interactive)
+                                    (scroll-up 1)))
+
+(global-set-key '[(home)] #'chb-home)
+(global-set-key '[(end)] #'chb-end)

(use-package time-stamp
  :config
  (add-hook 'write-file-hooks 
            '(lambda ()
               (time-stamp))))

(use-package executable
  :config

  (let ((tmp (point-marker)))
    (jump-to-register 8)
    (set-register 8 tmp)))
;; Something new
;; Should probably integrate transparently with ska-point-to-register.
(defvar ska-point-stack)
(defun ska-point-push ()
  (interactive)
  (push (point-marker) ska-point-stack))
(defun ska-point-pop ()
  (interactive)
  (when ska-point-stack
    (let* ((m (pop ska-point-stack))
           (b (marker-buffer m)))
      (switch-to-buffer b)
      (goto-char m))))
(global-set-key (kbd "C-:") #'ska-point-push)
(global-set-key (kbd "C-;") #'ska-point-pop)

(defun ska-insert-x-selection (arg)
  "Insert the current X selection at point.
