(defun kill-whole-line ()

   (interactive)

   (move-beginning-of-line 1)

   (kill-line 1)

   )

 (defun jao-toggle-selective-display (column)

   (interactive "P")

   (set-selective-display

    (if selective-display nil (or column 1))))

 (defun diff-buffer-with-associated-file ()

   "View the differences between BUFFER and its associated file.

 This requires the external program \"diff\" to be in your `exec-path'. 

 Returns nil if no differences found, 't otherwise."

   (interactive)

   (let ((buf-filename buffer-file-name)

         (buffer (current-buffer)))

     (unless buf-filename

       (error "Buffer %s has no associated file" buffer))

     (let ((diff-buf (get-buffer-create

                      (concat "*Assoc file diff: "

                              (buffer-name)

                              "*"))))

       (with-current-buffer diff-buf

         (setq buffer-read-only nil)

         (erase-buffer))

       (let ((tempfile (make-temp-file "buffer-to-file-diff-")))

         (unwind-protect

             (progn

               (with-current-buffer buffer

                 (write-region (point-min) (point-max) tempfile nil 'nomessage))

               (if (zerop

                    (apply #'call-process "diff" nil diff-buf nil

                           (append

                            (when (and (boundp 'ediff-custom-diff-options)

                                       (stringp ediff-custom-diff-options))

                              (list ediff-custom-diff-options))

                            (list buf-filename tempfile))))

                   (progn

                     (message "No differences found")

                     nil)

                 (progn

                   (with-current-buffer diff-buf

                     (goto-char (point-min))

                     (if (fboundp 'diff-mode)

                         (diff-mode)

                       (fundamental-mode)))

                   (display-buffer diff-buf)

                   t)))

           (when (file-exists-p tempfile)

             (delete-file tempfile)))))))

 ;; tidy up diffs when closing the file

 (defun kill-associated-diff-buf ()

   (let ((buf (get-buffer (concat "*Assoc file diff: "

                              (buffer-name)

                              "*"))))

     (when (bufferp buf)

       (kill-buffer buf))))

 (add-hook 'kill-buffer-hook 'kill-associated-diff-buf)

 (defun de-context-kill (arg)

   "Kill buffer, taking gnuclient into account."

   (interactive "p")

   (when (and (buffer-modified-p)

              buffer-file-name

              (not (string-match "\\*.*\\*" (buffer-name)))

              ;; erc buffers will be automatically saved

              (not (eq major-mode 'erc-mode))

              (= 1 arg))

     (let ((differences 't))

     (when (file-exists-p buffer-file-name)

       (setq differences (diff-buffer-with-associated-file)))

     (error (if differences 

                "Buffer has unsaved changes"

              "Buffer has unsaved changes, but no differences wrt. the file"))))

   (if (and (boundp 'gnuserv-minor-mode)

              gnuserv-minor-mode)

       (gnuserv-edit)

     (set-buffer-modified-p nil)

     (kill-buffer (current-buffer))))

 (fset 'lparen

       (lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ("\\left(" 0 "%d")) arg)))

 (fset 'rparen

       (lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ("\\right)" 0 "%d")) arg)))

 (defun my-list-buffers (&optional files-only)

   "Opens list-buffers and put focus on it"

   (interactive "P")

   (let ((b (list-buffers-noselect files-only)))

     (display-buffer b)

     (pop-to-buffer b)

     (delete-other-windows)))

 (defun jao-toggle-selective-display (column)

   (interactive "P")

   (set-selective-display

    (if selective-display nil (or column 1))))

 (defun really-revert-buffer ()

   "Revert the buffer without asking for confirmation."

   (interactive)

   (revert-buffer t t t))

 (defun close-project (project)

   "Filesets never seems to work."

   (interactive "P")

   (dolist (buffer (buffer-list))

     (with-current-buffer buffer

       (if (and (buffer-file-name)

                (string-match project (buffer-file-name)))

           (kill-buffer buffer)))))

 (defun my-clean-line (foo)

   (interactive "P")

   (indent-for-tab-command)

   (move-end-of-line nil)

   (delete-horizontal-space)

   (next-logical-line))

 (defun insert-time-stamp ()

   (interactive)

   (insert-and-inherit (time-stamp-yyyy/mm/dd) " - "(time-stamp-hh:mm:ss))

   (newline))

 (provide 'ag-functions)