el/dot-emacs.el: Arrange for Slime to name me better.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 4b4be86..c53beff 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -4310,6 +4310,13 @@ that character only to be normal punctuation.")
 
 ;; SLIME setup.
 
+(defvar mdw-friendly-name "[mdw]"
+  "How I want to be addressed.")
+(defadvice slime-user-first-name
+    (around mdw-use-friendly-name compile activate)
+  (if mdw-friendly-name (setq ad-return-value mdw-friendly-name)
+    ad-do-it))
+
 (trap
  (if (not mdw-fast-startup)
      (progn