Skip to content
Browse files

(defun dss/local-line-jump-search (n txt)

  (interactive "nLine: \nsText:")
  (dss/local-line-jump n)
  (search-forward txt (line-end-position)))
  • Loading branch information...
1 parent e90f08b commit 1bbe9e0cc478f44e48b4919cbf6e57c8edfe1147 @tavisrudd committed Sep 27, 2010
Showing with 7 additions and 1 deletion.
  1. +7 −1 dss-codenav-helpers.el
View
8 dss-codenav-helpers.el
@@ -293,7 +293,13 @@ Comes from http://github.com/technomancy/emacs-starter-kit/blob/master/starter-k
(defun dss/local-line-jump (n)
(interactive "nLine: ")
;(message (format "%d" (+ n (* (/ (line-number-at-pos) 100) 100))))
- (dss/goto-line (+ n (* (/ (line-number-at-pos) 100) 100))))
+ (dss/goto-line (+ n (* (/ (line-number-at-pos) 100) 100)))
+ (back-to-indentation))
+
+(defun dss/local-line-jump-search (n txt)
+ (interactive "nLine: \nsText:")
+ (dss/local-line-jump n)
+ (search-forward txt (line-end-position)))
(defun dss/highlight-watchwords ()
;; http://github.com/technomancy/emacs-starter-kit/blob/master/starter-kit-defuns.el

0 comments on commit 1bbe9e0

Please sign in to comment.
Something went wrong with that request. Please try again.