 
 (defun mode/show ()
   "  Returns all modes associated with files
-    
+
      To query the file extesions associated with a mode
-     use: 
+     use:
          > (mode/ftypes 'markdown-mode)
-  
+
      for example.
   "
-  (dolist (m (remove-if #'listp
-    (mapcar #'cdr auto-mode-alist))) (print m)))
+  (for-each #'print
+	    (unique (reject #'listp (map #'cdr auto-mode-alist)))))
+
 
 (defun mode/ftypes (mode)
   "
-  Get all file extension associated with a mode. 
-  
+  Get all file extension associated with a mode.
+
   Usage:
-  
+
   ELISP> (get-mode-ftypes 'markdown-mode)
   ((\"\\.md\\'\" . markdown-mode)
   (\"\\.text\\'\" . markdown-mode)
-  (\"\\.markdown\\'\" . markdown-mode)  
-  
+  (\"\\.markdown\\'\" . markdown-mode)
+
   "
   (remove-if-not
    (lambda (al)

(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)

  > (url-download url dirpath filename)

  or

  To download to the current directory with a
  defined filename.

  > (url-download url nil filename)

  or

  To download a file to current directory, the file name
  will be extracted from the url.

  > (url-download url nil nil)

  "
  (letc
   (dir    (if (null dirpath)
               (current-dir)
                dirpath)

   fname   (if (null filename)
                (url->filename url)
             filename)

   fpath    (concat-path dir fname))

  (princ (list dir fname fpath))
