আমি কোয়েরি অনুসন্ধান কীভাবে করব তা বের করার আশা করছি যা কোয়েরি প্রতিস্থাপনের পরিবর্তে কোনও লাইন মন্তব্য করবে। এটি হল একটি ইন্টারেক্টিভ ক্যোয়ারী অনুসন্ধান করুন, এবং আমি যদি হ্যাঁ বলি, তবে ম্যাচটি চালু আছে comment
এই আদেশ কি বিদ্যমান? তা না হলে কীভাবে লিখব? আমি এলিস্পে নতুন, এবং কীভাবে আমার নিজের ফাংশনগুলি প্রোগ্রাম করতে হয় তা জানি না।
উত্তর:
(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))))
query-replace-regexp। একটি মন্তব্য শুরুর সাথে উপসর্গযুক্ত রেখার দ্বারা লাইনটি প্রতিস্থাপন করুন।