Skip to content

Commit

Permalink
Replaced defsubsts with defuns.
Browse files Browse the repository at this point in the history
  • Loading branch information
nschum committed Jun 5, 2011
1 parent 12dca66 commit 8bfe437
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions full-ack.el
Expand Up @@ -350,7 +350,7 @@ This can be used in `ack-root-directory-functions'."
(when (processp ack-process) (when (processp ack-process)
(delete-process ack-process))) (delete-process ack-process)))


(defsubst ack-option (name enabled) (defun ack-option (name enabled)
(format "--%s%s" (if enabled "" "no") name)) (format "--%s%s" (if enabled "" "no") name))


(defun ack-arguments-from-options (regexp) (defun ack-arguments-from-options (regexp)
Expand Down Expand Up @@ -434,15 +434,15 @@ This can be used in `ack-root-directory-functions'."
history-var history-var
default))) default)))


(defsubst ack--initial-contents-for-read () (defun ack--initial-contents-for-read ()
(when (ack--use-region-p) (when (ack--use-region-p)
(buffer-substring-no-properties (region-beginning) (region-end)))) (buffer-substring-no-properties (region-beginning) (region-end))))


(defsubst ack--default-for-read () (defun ack--default-for-read ()
(unless (ack--use-region-p) (unless (ack--use-region-p)
(thing-at-point 'symbol))) (thing-at-point 'symbol)))


(defsubst ack--use-region-p () (defun ack--use-region-p ()
(or (and (fboundp 'use-region-p) (use-region-p)) (or (and (fboundp 'use-region-p) (use-region-p))
(and transient-mark-mode mark-active (and transient-mark-mode mark-active
(> (region-end) (region-beginning))))) (> (region-end) (region-beginning)))))
Expand All @@ -457,7 +457,7 @@ This can be used in `ack-root-directory-functions'."
(and buffer-file-name (file-name-directory buffer-file-name)) (and buffer-file-name (file-name-directory buffer-file-name))
default-directory)))) default-directory))))


(defsubst ack-xor (a b) (defun ack-xor (a b)
(if a (not b) b)) (if a (not b) b))


(defun ack-interactive () (defun ack-interactive ()
Expand Down Expand Up @@ -623,7 +623,7 @@ DIRECTORY is the root directory. If called interactively, it is determined by
(ack--move-to-line (string-to-number line)) (ack--move-to-line (string-to-number line))
(copy-marker (+ (point) offset -1))))))) (copy-marker (+ (point) offset -1)))))))


(defsubst ack--move-to-line (line) (defun ack--move-to-line (line)
(save-restriction (save-restriction
(widen) (widen)
(goto-char (point-min)) (goto-char (point-min))
Expand Down

0 comments on commit 8bfe437

Please sign in to comment.