DWIM for the TAB key

[Oliver Scholz]

Reading a thread on emacs-devel, I thought that maybe others would
also like what I have been using for quite a while:

(defun egoge-tab-dwim ()
  "Indent or complete depending on the context.
If point is at the beginning of a line or if all characters
between point and the beginning of the line are whitespace
characters, indent that line. Otherwise complete the symbol at
point."
  (interactive)
  (if (or (bolp)
          (save-excursion (backward-char 1)
                          (looking-at "[[:blank:]]")))
      (indent-according-to-mode)
    (if (memq major-mode '(emacs-lisp-mode
                           lisp-interaction-mode
                           inferior-emacs-lisp-mode))
        (lisp-complete-symbol)
      (complete-symbol))))

(define-key global-map [tab] 'egoge-tab-dwim)

    Oliver
-- 
28 Pluviôse an 213 de la Révolution
Liberté, Egalité, Fraternité!