; Un-disable narrow and eval-expression
(put 'narrow-to-region 'disabled nil)
(put 'eval-expression 'disabled nil)
-(standard-display-european t)
+;(standard-display-european t)
;
(setq browse-url-netscape-program "mozilla")
(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
;(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
;
;(require 'vm-autoload)
+
+(vm-legacy-key-bindings)
;
; (autoload 'info "info-fixed" "Patched info browser" t)
(setq shell-mode-hook
(> (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)