Permalink
Browse files

This is already a function.

  • Loading branch information...
1 parent 8bcd006 commit 415752a9910ad142946741eaf34f4b510c65080f Jesse Alama committed Nov 20, 2012
Showing with 0 additions and 7 deletions.
  1. +0 −7 ce-macros.el
View
7 ce-macros.el
@@ -40,13 +40,6 @@ But writing '(goto-char (point-min))' is the kind of
speaking-in-code that I dislike so much. Whence this macro."
`(goto-char (point-min)))
-(defmacro current-line ()
- "The current line number."
- `(+ (count-lines 1 (point))
- (if (zerop (current-column))
- 1
- 0)))
-
(defmacro keep-evaluating (&rest body)
(let ((condition-case-forms
(mapcar #'(lambda (form)

0 comments on commit 415752a

Please sign in to comment.