diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index f7af10887c..97803d08c1 100644
--- a/lisp/cedet/pulse.el
+++ b/lisp/cedet/pulse.el
@@ -102,6 +102,22 @@ pulse-delay
   :group 'pulse
   :type 'number)
 
+;;;###autoload
+(defcustom pulse-after-commands '()
+  "List of commands to pulse the current line after invocation."
+  :set (lambda (sym val)
+         (funcall (if val #'add-hook #'remove-hook)
+                  'post-command-hook
+                  #'pulse--after-command)
+         (set-default sym val))
+  :group 'pulse
+  :type '(repeat symbol))
+
+(defun pulse--after-command ()
+  "Pulse if the current command is in `pulse-after-commands'."
+  (when (memq this-command pulse-after-commands)
+    (pulse-momentary-highlight-one-line)))
+
 ;;; Convenience Functions
 ;;
 (defvar pulse-momentary-overlay nil