heckyel/emacs-personal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

code-cleanup: remove unimportant code, this already exists with use-package: :after

Browse Source
This commit is contained in:
Jesús 2019-05-14 16:43:54 -05:00
parent e60a671ef6
commit 678187cf7e
No known key found for this signature in database
GPG Key ID: F6EE7BC59A315766
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
modules/init-utils.el
View File

@ -31,7 +31,8 @@ read the .el files"
(floor (* 0.9 (floor (* 0.9
(face-attribute 'default :height))))) (face-attribute 'default :height)))))
;; Not original from Sacha. Taken from: http://emacsredux.com/blog/2013/05/22/smarter-navigation-to-the-beginning-of-a-line/ ;; Not original from Sacha.
;; Taken from: http://emacsredux.com/blog/2013/05/22/smarter-navigation-to-the-beginning-of-a-line/
(defun sacha/smarter-move-beginning-of-line (arg) (defun sacha/smarter-move-beginning-of-line (arg)
"Move point back to indentation of beginning of line. "Move point back to indentation of beginning of line.
@ -55,15 +56,5 @@ point reaches the beginning or end of the buffer, stop there."
(when (= orig-point (point)) (when (= orig-point (point))
(move-beginning-of-line 1)))) (move-beginning-of-line 1))))
;;------------------------------------------------------------------------------ ;;------------------------------------------------------------------------------
;; This is borrowed from https://github.com/purcell/emacs.d/blob/master/lisp/init-utils.el by Steve Purcell but I have added some stuff.
(if (fboundp 'with-eval-after-load)
(defalias 'after-load 'with-eval-after-load)
(defmacro after-load (feature &rest body)
"After FEATURE is loaded, evaluate BODY."
(declare (indent defun))
`(eval-after-load, feature
'(progn ,@body))))
(provide 'init-utils) (provide 'init-utils)
;;; init-utils.el ends here ;;; init-utils.el ends here