a short comment to mark the occasion

a short comment to mark the occasion

[Emanuel Berg via Users list for the GNU Emacs text editor]

find or set a comment mark, with only one function to do
both things! Useful when you are proofreading/editing
a long document, e.g. a violent, immoral science fiction
novel featuring futuristic all-graphene sniper rifles
... and a hovercraft over an industrial swamp, where the
trajectory of the vehicle must be computed with the
outmost etc etc for the Kodak moment to appear... might
as well shoot - its not like a SINGLE BULLET ever
changed world history!

The comment style is LaTeX as it stands.

(defun find-here ()
  (interactive)
  (let ((start (point)))
    (goto-char (point-min))
    (let*((sign "%%%% hit123") ; change disaccording to need
          (hits (how-many sign (point-min) (point-max))) )
      (if (> hits 0)
          (progn
            (search-forward-regexp sign)
            (beginning-of-line)
            (recenter 1)
            (message "%d" hits) )
        (goto-char start)
        (insert sign) ))))
(defalias 'h #'find-here)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal