X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=home%2Femacs%2Fian.el;h=6f6bd9821a62caf85eab0516bf0f8511fc98a5b5;hb=dce87e65f3ecaaa267141e9c896f56ad0af9d51f;hp=cfc34945bd9335959267bab2f3ad57571186843c;hpb=0dcf2c0a5f5151e22d8d57680db283c4e9d48646;p=ian-dotfiles.git

diff --git a/home/emacs/ian.el b/home/emacs/ian.el
index cfc3494..6f6bd98 100644
--- a/home/emacs/ian.el
+++ b/home/emacs/ian.el
@@ -454,9 +454,9 @@ then call send-and-exit."
 ;  (interactive)
 ;  (vm "/u/ijackson/mail/INBOX"))
 ;;
-(defun vms ()
-  (interactive)
-  (vm vm-sinbin-inbox))
+;(defun vms ()
+;  (interactive)
+;  (vm vm-sinbin-inbox))
 ;
 (defun make-session ()
   "Makes this emacs hard to kill by requiring ^X^Cy to kill it
@@ -466,20 +466,20 @@ instead of just ^X^C."
   (global-set-key "y" 'save-buffers-kill-emacs))
 ;
 ; Fix problems with M-| setting window title of emacs' parent xterm
-(defun envdelete-term-termcap-windowid (list)
-  (let ((l list))
-    (mapcar '(lambda (x)
-               (if x (delq x l)))
-            (mapcar '(lambda (x)
-                       (if (or (string-match "^TERM=" x)
-                               (string-match "^TERMCAP=" x)
-                               (string-match "^WINDOWID=" x))
-                           x
-                         nil))
-                    l))
-    l))
-(setq process-environment
-      (envdelete-term-termcap-windowid process-environment))
+;(defun envdelete-term-termcap-windowid (list)
+;  (let ((l list))
+;    (mapcar '(lambda (x)
+;               (if x (delq x l)))
+;            (mapcar '(lambda (x)
+;                       (if (or (string-match "^TERM=" x)
+;                               (string-match "^TERMCAP=" x)
+;                               (string-match "^WINDOWID=" x))
+;                           x
+;                         nil))
+;                    l))
+;    l))
+;(setq process-environment
+;      (envdelete-term-termcap-windowid process-environment))
 ;
 (defun add-insertion-keys (table)
   "Adds keybindings according to TABLE.  Each element of
@@ -535,4 +535,38 @@ The citation string is taken from cite-string."
            (> (point-max) (point)))
         (insert cite-string)))))
 ;
+;
+
+
+;; (defun hack-dir-local-variables ()
+;;   "Read per-directory local variables for the current buffer.
+;; Store the directory-local variables in `dir-local-variables-alist'
+;; and `file-local-variables-alist', without applying them."
+;;   (when (and enable-local-variables
+;; 	     (buffer-file-name))
+;;     ;; Find the variables file.
+;;     (let ((variables-file (dir-locals-find-file (buffer-file-name)))
+;; 	  (class nil)
+;; 	  (dir-name nil))
+;;       (cond
+;;        ((stringp variables-file)
+;; 	(setq dir-name (file-name-directory (buffer-file-name)))
+;; 	(setq class (dir-locals-read-from-file variables-file)))
+;;        ((consp variables-file)
+;; 	(setq dir-name (nth 0 variables-file))
+;; 	(setq class (nth 1 variables-file))))
+;;       (when class
+;; 	(let ((variables
+;; 	       (dir-locals-collect-variables
+;; 		(dir-locals-get-class-variables class) dir-name nil)))
+;; 	  (when variables
+;; 	    (dolist (elt variables)
+;; 	      (unless (memq (car elt) '(eval mode))
+;; 		(setq dir-local-variables-alist
+;; 		      (assq-delete-all (car elt) dir-local-variables-alist)))
+;; 	      (push elt dir-local-variables-alist))
+;; 	    (hack-local-variables-filter variables dir-name)))))))
+
+(delete ".git/" completion-ignored-extensions)
+
 ; End of this file.