env.el (934B)
1 ;; Copyright (C) 2012-2023 Free Software Foundation, Inc -*- lexical-binding: t; -*- 2 3 (let* ((current-directory (file-name-directory load-file-name)) 4 (features-directory (expand-file-name ".." current-directory)) 5 (project-directory (expand-file-name ".." features-directory))) 6 (setq expand-region-root-path project-directory)) 7 8 (add-to-list 'load-path expand-region-root-path) 9 10 (require 'undercover) 11 (undercover "*.el") 12 13 (require 'expand-region) 14 (require 'espuds) 15 (require 'ert) 16 17 (Before 18 (global-set-key (kbd "C-@") 'er/expand-region) 19 (global-set-key (kbd "C-S-@") 'er/contract-region) 20 (switch-to-buffer 21 (get-buffer-create "*expand-region*")) 22 (erase-buffer) 23 (fundamental-mode) 24 (transient-mark-mode 1) 25 (cua-mode 0) 26 (setq er--show-expansion-message t) 27 (setq expand-region-smart-cursor nil) 28 (setq set-mark-default-inactive nil) 29 (deactivate-mark)) 30 31 (After) 32 ;; Local Variables: 33 ;; no-byte-compile: t 34 ;; End: