 
 If the point is in a comment, ensure that the returned string does not contain
 the comment start characters (especially for major modes that have '//' as
-comment start characters). https://debbugs.gnu.org/cgi/bugreport.cgi?bug=24057
+comment start characters).
+
+Sets variables `ffap-string-at-point' and `ffap-string-at-point-region'.
 
 |-----------------------------------+---------------------------------|
 | Example string in `c-mode' buffer | Returned `ffap-string-at-point' |

               (null region-selected)
               ;; Check if END character is part of a comment.
               (save-excursion
                 (nth 4 (syntax-ppss end))))
          ;; Move BEG to beginning of comment (after the comment start
          ;; characters), or END, whichever comes first.
          (save-excursion
            (let ((state (syntax-ppss beg)))
              ;; (nth 4 (syntax-ppss)) will be nil for comment start chars
              (unless (nth 4 state)
                (parse-partial-sexp beg end nil nil state :commentstop)
                (setq beg (point))))))

        (if (and (natnump ffap-max-region-length)
                 (< region-len ffap-max-region-length)) ; Bug#25243.
            (setf ffap-string-at-point-region (list beg end)
                  ffap-string-at-point
                  (buffer-substring-no-properties beg end))
          (setf ffap-string-at-point-region (list 1 1)
                ffap-string-at-point ""))))
    (advice-add 'ffap-string-at-point :override #'modi/ffap-string-at-point)))

;; https://github.com/abo-abo/hydra/blob/master/hydra-examples.el

| ▮// //tmp                         | (empty string) \"\"             |
| // ▮/tmp                          | /tmp                            |
| // ▮//tmp                         | //tmp                           |
|-----------------------------------+---------------------------------| "
      (let* ((args
              (cdr
               (or (assq (or mode major-mode) ffap-string-at-point-mode-alist)
