Browse files

Replaced defsubsts with defuns.

  • Loading branch information...
1 parent 12dca66 commit 8bfe4372278b69e35d35d7f4735190f71f8180e2 @nschum committed Jun 5, 2011
Showing with 6 additions and 6 deletions.
  1. +6 −6 full-ack.el
@@ -350,7 +350,7 @@ This can be used in `ack-root-directory-functions'."
(when (processp ack-process)
(delete-process ack-process)))
-(defsubst ack-option (name enabled)
+(defun ack-option (name enabled)
(format "--%s%s" (if enabled "" "no") name))
(defun ack-arguments-from-options (regexp)
@@ -434,15 +434,15 @@ This can be used in `ack-root-directory-functions'."
-(defsubst ack--initial-contents-for-read ()
+(defun ack--initial-contents-for-read ()
(when (ack--use-region-p)
(buffer-substring-no-properties (region-beginning) (region-end))))
-(defsubst ack--default-for-read ()
+(defun ack--default-for-read ()
(unless (ack--use-region-p)
(thing-at-point 'symbol)))
-(defsubst ack--use-region-p ()
+(defun ack--use-region-p ()
(or (and (fboundp 'use-region-p) (use-region-p))
(and transient-mark-mode mark-active
(> (region-end) (region-beginning)))))
@@ -457,7 +457,7 @@ This can be used in `ack-root-directory-functions'."
(and buffer-file-name (file-name-directory buffer-file-name))
-(defsubst ack-xor (a b)
+(defun ack-xor (a b)
(if a (not b) b))
(defun ack-interactive ()
@@ -623,7 +623,7 @@ DIRECTORY is the root directory. If called interactively, it is determined by
(ack--move-to-line (string-to-number line))
(copy-marker (+ (point) offset -1)))))))
-(defsubst ack--move-to-line (line)
+(defun ack--move-to-line (line)
(goto-char (point-min))

0 comments on commit 8bfe437

Please sign in to comment.