Запросить поиск и закомментировать строку?

9

Я надеюсь выяснить, как выполнить поиск запроса, который закомментирует строку вместо замены запроса. То есть выполните интерактивный поиск по запросу и, если я скажу «да», закомментируйте строку, в которой находится соответствие.

Эта команда существует? Если нет, то как бы я это написал? Я новичок в elisp и не знаю, как программировать свои собственные функции.

Хайме Артуро Гомес
источник
8
Использование query-replace-regexp. Замените строку строкой с префиксом начала комментария.
Дрю

Ответы:

1
(defun my-comment-matching-line ()
  (interactive "*")
  (call-interactively 'search-forward)
  (beginning-of-line)
  ;; don't comment the region maybe
  (push-mark)
  (comment-line 1))

Если строка комментария недоступна, вот из недавнего newcomment.el:

(defun comment-line (n)
  "Comment or uncomment current line and leave point after it.
With positive prefix, apply to N lines including current one.
With negative prefix, apply to -N lines above.  Also, further
consecutive invocations of this command will inherit the negative
argument.

If region is active, comment lines in active region instead.
Unlike `comment-dwim', this always comments whole lines."
  (interactive "p")
  (if (use-region-p)
      (comment-or-uncomment-region
       (save-excursion
         (goto-char (region-beginning))
         (line-beginning-position))
       (save-excursion
         (goto-char (region-end))
         (line-end-position)))
    (when (and (eq last-command 'comment-line-backward)
               (natnump n))
      (setq n (- n)))
    (let ((range
           (list (line-beginning-position)
                 (goto-char (line-end-position n)))))
      (comment-or-uncomment-region
       (apply #'min range)
       (apply #'max range)))
    (forward-line 1)
    (back-to-indentation)
    (unless (natnump n) (setq this-command 'comment-line-backward))))
Андреас Рёлер
источник
Спасибо за это, то, что вы здесь вернули, «Определение функции Symbol недействительно: строка комментария»
Хайме Артуро Гомес
@JaimeArturoGomez Кажется, что вводится недавно. Предоставлена ​​копия.
Андреас Рёлер