jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bye, bye cl

Browse source
This commit is contained in:
Bozhidar Batsov 2012-12-17 17:43:35 +02:00
parent 7c986dd3ef
commit 9384846e07
3 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
core/prelude-core.el
View file

@ -269,8 +269,8 @@ there's a region, all lines that region covers will be duplicated."
(interactive) (interactive)
(if (/= (count-windows) 2) (if (/= (count-windows) 2)
(message "You need exactly 2 windows to do this.") (message "You need exactly 2 windows to do this.")
(let* ((w1 (first (window-list))) (let* ((w1 (car (window-list)))
(w2 (second (window-list))) (w2 (cadr (window-list)))
(b1 (window-buffer w1)) (b1 (window-buffer w1))
(b2 (window-buffer w2)) (b2 (window-buffer w2))
(s1 (window-start w1)) (s1 (window-start w1))

6
core/prelude-packages.el
View file

@ -99,9 +99,9 @@
(-each prelude-auto-install-alist (-each prelude-auto-install-alist
(lambda (entry) (lambda (entry)
(let ((extension (first entry)) (let ((extension (car entry))
(package (second entry)) (package (cadr entry))
(mode (third entry))) (mode (cadr (cdr entry))))
(unless (package-installed-p package) (unless (package-installed-p package)
(prelude-auto-install extension package mode))))) (prelude-auto-install extension package mode)))))

2
init.el
View file

@ -58,8 +58,6 @@ ELPA (or MELPA).")
(unless (file-exists-p prelude-savefile-dir) (unless (file-exists-p prelude-savefile-dir)
(make-directory prelude-savefile-dir)) (make-directory prelude-savefile-dir))
(require 'cl)
(defun prelude-add-subfolders-to-load-path (parent-dir) (defun prelude-add-subfolders-to-load-path (parent-dir)
"Adds all first level `parent-dir' subdirs to the "Adds all first level `parent-dir' subdirs to the
Emacs load path." Emacs load path."