Disable vm-autoload explicit stuff

[ian-dotfiles.git] / home / emacs / ian.el

diff --git a/home/emacs/ian.el b/home/emacs/ian.el
index 689d6dbf210299181f3dfd1b7728d7a535ac3be4..1366b889843a3fe5d20a544b93575012d4eff56e 100644 (file)
--- a/home/emacs/ian.el
+++ b/home/emacs/ian.el
@@ -139,6 +139,36 @@
   (global-set-key "\eOB" 'next-line))
 (setq term-setup-hook 'terminal-keybindings)     ; remap keys in due course
 ;
+(setq frame-title-format
+      '(multiple-frames
+       (:eval 
+        (let*
+            ((buf (current-buffer))
+             (leaf (buffer-name buf))
+             (dir default-directory))
+          (if dir
+              (let*
+                  ((dir (abbreviate-file-name dir))
+                   (node (replace-regexp-in-string "\\..*" "" system-name)))
+                (concat leaf "  " node ":" dir))
+            leaf)))
+       ("" invocation-name "@" system-name)))
+;(setq frame-title-format
+;      '(multiple-frames
+;      (:eval 
+;       (let*
+;           ((buf (current-buffer))
+;            (fn (buffer-file-name buf)))
+;         (if fn
+;             (let*
+;                 ((fn (abbreviate-file-name fn))
+;                  (dir (file-name-directory fn))
+;                  (leaf (file-name-nondirectory fn))
+;                  (node (replace-regexp-in-string "\\..*" "" system-name)))
+;               (concat leaf "  " node ":" dir))
+;           (buffer-name buf))))
+;      ("" invocation-name "@" system-name)))
+;
 ; Autoload definitions
 (autoload 'tar-mode "tar-mode")
 (autoload 'uncompress-while-visiting "uncompress")
@@ -151,12 +181,14 @@
 ; (autoload 'rmail "rmail-fixed" "Patched mail reader" t)
 (autoload 'quicker-compile "quicker-compile" "Patched Compile mode" t)
 
-(autoload 'vm "vm" "Start VM on your primary inbox." t)
-(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
-(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
-(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
-(autoload 'vm-mail "vm" "Send a mail message using VM." t)
-(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
+;(autoload 'vm "vm" "Start VM on your primary inbox." t)
+;(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
+;(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
+;(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
+;(autoload 'vm-mail "vm" "Send a mail message using VM." t)
+;(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
+;
+;(require 'vm-autoload)
 ;
 ; (autoload 'info "info-fixed" "Patched info browser" t)
 (setq shell-mode-hook