; (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
(global-set-key "\18\ 3y" '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
(> (point-max) (point)))
(insert cite-string)))))
;
+
+
+(delete ".git/" completion-ignored-extensions)
+
; End of this file.