-(defadvice exchange-point-and-mark (after pulse-advice activate)
- "Cause the line that is `goto'd to pulse when the cursor gets there."
- (when (and pulse-command-advice-flag (interactive-p)
- (> (abs (- (point) (mark))) 400))
- (pulse-momentary-highlight-one-line (point))))
-
-(defadvice find-tag (after pulse-advice activate)
- "After going to a tag, pulse the line the cursor lands on."
- (when (and pulse-command-advice-flag (interactive-p))
- (pulse-momentary-highlight-one-line (point))))
-
-(defadvice tags-search (after pulse-advice activate)
- "After going to a hit, pulse the line the cursor lands on."
- (when (and pulse-command-advice-flag (interactive-p))
- (pulse-momentary-highlight-one-line (point))))
-
-(defadvice tags-loop-continue (after pulse-advice activate)
- "After going to a hit, pulse the line the cursor lands on."
- (when (and pulse-command-advice-flag (interactive-p))
- (pulse-momentary-highlight-one-line (point))))
-
-(defadvice pop-tag-mark (after pulse-advice activate)
- "After going to a hit, pulse the line the cursor lands on."
- (when (and pulse-command-advice-flag (interactive-p))
- (pulse-momentary-highlight-one-line (point))))
-
-(defadvice imenu-default-goto-function (after pulse-advice activate)
- "After going to a tag, pulse the line the cursor lands on."
- (when pulse-command-advice-flag
- (pulse-momentary-highlight-one-line (point))))