 ;;-------------------------------------;;
 
 (defun delete-word ()
-    "Delete word next at cursor (point) - can be associated 
+    "Delete word next at cursor (point) - can be associated
      with a key binb.
     "
     (interactive)

(defun map-xypair (func-x func-y xs)
  "
  Example:
 
   map-xypair fx fy [x0, x1, x2, ... xn]

   Returns: 
           [(fx x0, fy x0), (fx x1, fy x1), (fx x2, fy x2) ...]

   ELISP> (map-xypair #'buffer-name #'buffer-mode (buffer-list))
   ((\"*ielm*\" . inferior-emacs-lisp-mode)
    (\"*scratch*\" . lisp-interaction-mode)
    (\"*Backtrace*\" . debugger-mode)    
    ...  
  "
  (mapcar
   (lambda (x)

;;
;; Useful Macros and Functions for Emacs - Elisp
;;
;;
;;
;;--------------------------------------------------------


(defun unique (list)
  (let (tmp-list head)
    (while list
      (setq head (pop list))
      (unless (equal head (car list))
        (push head tmp-list)))
    (reverse tmp-list)))

(defun string/starts-with (s begins)
  "Return non-nil if string S starts with BEGINS."
