EMACS: I can use let* instead of 2x let

This commit is contained in:
Tom Willemsen 2011-09-14 20:15:49 +02:00
parent b804526353
commit 4f0850d764

View file

@ -55,10 +55,10 @@
(delete-trailing-whitespace))) (delete-trailing-whitespace)))
(defun oni/after-save-hook () (defun oni/after-save-hook ()
(let ((fname (buffer-file-name))) (let* ((fname (buffer-file-name))
(let ((suffix (file-name-extension fname))) (suffix (file-name-extension fname)))
(if (string-equal suffix "el") (if (string-equal suffix "el")
(byte-compile-file fname))))) (byte-compile-file fname))))
(defun oni/pretty-lambdas () (defun oni/pretty-lambdas ()
(font-lock-add-keywords (font-lock-add-keywords
@ -395,7 +395,7 @@
(global-set-key [f12] 'ide-skel-toggle-right-view-window) (global-set-key [f12] 'ide-skel-toggle-right-view-window)
;;-----[ Misc ]---------------------------------------------------------- ;;-----[ Misc ]----------------------------------------------------------
(defun oni/reload-buffer (defun oni/reload-buffer ()
(interactive) (interactive)
(revert-buffer nil t nil)) (revert-buffer nil t nil))