Rewrote initfiles; bugfixes galore
This commit is contained in:
parent
02863ee529
commit
d5f2bb1d23
9 changed files with 288 additions and 45 deletions
11
init/core.el
11
init/core.el
|
@ -20,11 +20,15 @@
|
|||
|
||||
(defun kill-other-buffers ()
|
||||
(interactive)
|
||||
(mapc 'kill-buffer (cdr (buffer-list (current-buffer)))))
|
||||
(mapc 'kill-buffer (cdr (buffer-list (current-buffer))))
|
||||
(message "All other buffers killed")
|
||||
)
|
||||
|
||||
(defun kill-all-buffers ()
|
||||
(interactive)
|
||||
(mapc 'kill-buffer (buffer-list)))
|
||||
(mapc 'kill-buffer (buffer-list))
|
||||
(message "All buffers killed")
|
||||
)
|
||||
|
||||
;;;; Advice ;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
@ -52,7 +56,6 @@
|
|||
ad-do-it))
|
||||
|
||||
|
||||
|
||||
;;;; My personal minor mode ;;;;;;;;
|
||||
|
||||
(defvar my-mode-map (make-sparse-keymap))
|
||||
|
@ -111,6 +114,8 @@
|
|||
(defun major-mode-module-path ()
|
||||
(expand-file-name (concat (major-mode-module-name) ".el") my-modules-dir))
|
||||
|
||||
;; TODO: Write better eval-and-replace
|
||||
|
||||
|
||||
;;;; Macros ;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue