मैं यह पता लगाने की उम्मीद कर रहा हूं कि एक क्वेरी खोज कैसे करें जो क्वेरी प्रतिस्थापित के बजाय एक पंक्ति बाहर टिप्पणी करेगा। यही है, एक इंटरैक्टिव क्वेरी खोज करें, और अगर मैं हां कहता हूं, तो मैच की लाइन पर टिप्पणी करें।
क्या यह आदेश मौजूद है? यदि नहीं, तो मैं इसे कैसे लिखूंगा? मैं नया करने के लिए नया हूँ, और नहीं जानता कि कैसे अपने स्वयं के कार्य करने के लिए कार्यक्रम।
जवाबों:
(defun my-comment-matching-line ()
(interactive "*")
(call-interactively 'search-forward)
(beginning-of-line)
;; don't comment the region maybe
(push-mark)
(comment-line 1))
टिप्पणी-पंक्ति उपलब्ध नहीं होनी चाहिए, यहाँ हाल ही में आए एक नए लेख से:
(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))))
query-replace-regexp। एक टिप्पणी शुरू करने के साथ उपसर्ग द्वारा लाइन की जगह।