     (forward-line)
     (move-to-column col)))
 (defun move-line-up ()
+  "Move current line up."
   (interactive)
   (let ((col (current-column)))
     (save-excursion


;;; Move current line up or down.
(defun move-line-down ()
  (interactive)
  (let ((col (current-column)))
    (save-excursion

(global-whitespace-mode 1)
(setq whitespace-action '(auto-cleanup))
(defun whitespace-disable-for-some-files ()
  "Disable whitespace mode for some files."
  (let ((extension (file-name-extension buffer-file-name)))
    (if (or (string-equal extension "sln")
            (string-match "sigrok" buffer-file-name))
