Commit 0378d0029654

@@ -387,8 +387,8 @@
   (defun my/cleanup-buffer ()
     "Perform a bunch of operations on the whitespace content of a buffer."
     (interactive)
-    (indent-buffer)
-    (untabify-buffer)
+    (my/indent-buffer)
+    (my/untabify-buffer)
     (delete-trailing-whitespace))
 #+end_src
 
@@ -468,18 +468,18 @@
 Start a server in not already running. I usually start emacs as a
 daemon when at the start of the computer, but you never know =;-)=.
 
-
 #+BEGIN_SRC emacs-lisp
   (unless (string= (user-login-name) "root")
     (require 'server)
+    (and (>= emacs-major-version 23)
+       (defun server-ensure-safe-dir (dir) "Noop" t))
     (when (or (not server-process)
-              (not (eq (process-status server-process)
-                       'listen)))
+             (not (eq (process-status server-process)
+                    'listen)))
       (unless (server-running-p server-name)
         (server-start))))
 #+END_SRC
 
-
 ** TODO Modes
 *** TODO Prompts
 **** DONE ido