   "Open recently closed file."
   (interactive)
   (find-file (ido-completing-read
-              "Open:" (mapcar (lambda (f)
-                                (cdr f)) xah-recently-closed-buffers))))
+               "Open:" (mapcar (lambda (f)
+                                 (cdr f)) xah-recently-closed-buffers))))
 
 ;; Create new buffer at ~/tmp by default
 (defun ~new-empty-buffer ()

  "Determine if a string is empty.  `nil' is treated as empty
string."
  (or (null str)
      (and (stringp str)
           (= 0 (length str)))))

(defun ~alist-get (alist key)
  "Return just the value associated with the key in an alist."

  "Make script executable on saving."
  (interactive)
  (if (not (= (shell-command (concat "test -x " (buffer-file-name))) 0))
    (progn 
      ;; This puts message in *Message* twice, but minibuffer
      ;; output looks better.
      (message (concat "Wrote " (buffer-file-name)))
      (save-excursion
        (goto-char (point-min))
        (if (looking-at "^#!")
          (if (= (shell-command  
                   (concat "chmod u+x " (buffer-file-name)))
                0)
            (progn
              (shell-script-mode)
              (message (concat 
                       "Wrote and made executable " 
                         (buffer-file-name)))
              )
            
            ))))
    ;; This puts message in *Message* twice, but minibuffer output
    ;; looks better.
    (message (concat "Wrote " (buffer-file-name)))))
