From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: martin-kemp@brusseler.com Newsgroups: gmane.emacs.help Subject: Using comment characters for specific major modes Date: Sun, 6 Jun 2021 00:53:46 +0200 (CEST) Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="8765"; mail-complaints-to="usenet@ciao.gmane.io" Cc: help-gnu-emacs@gnu.org To: "Jean Louis" Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sun Jun 06 00:54:45 2021 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lpfBk-0001zK-Uj for geh-help-gnu-emacs@m.gmane-mx.org; Sun, 06 Jun 2021 00:54:44 +0200 Original-Received: from localhost ([::1]:39230 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lpfBj-00063d-Ef for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 05 Jun 2021 18:54:43 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:46010) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lpfBP-00063J-Fv for help-gnu-emacs@gnu.org; Sat, 05 Jun 2021 18:54:23 -0400 Original-Received: from ip-8.mailobj.net ([213.182.54.8]:33388 helo=msg-3.mailo.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lpfBM-0006nk-HV for help-gnu-emacs@gnu.org; Sat, 05 Jun 2021 18:54:23 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=brusseler.com; s=mailo; t=1622933626; bh=oewms4JO3V76uueDmnDV2nvEZQNovTa9rBbL8zqbvh4=; h=X-EA-Auth:From:To:Cc:Date:Subject:MIME-Version:X-Mailer: Message-ID:In-Reply-To:Content-Type; b=jUFf4CrPgmVT/2nOgyxIe4o3GZNcMhWRs/NR4WLpK+M0jk7BRJAV/25JS186c+3mQ JWxLq2DPdRJe15qp2xGp1Iwm7+LqDAdqyGFu7p3PL55q+mUE3vzVv7ZMAs9PB/BlJE sma3AP3Pk40UJ3cZUmEty1CU1hBqeUU4OMvfQkeY= Original-Received: by www-8.mailo.com with http webmail; Sun, 6 Jun 2021 00:53:46 +0200 (CEST) X-EA-Auth: QNrJB9c1dmMhFX8WWpYlhg5kKjhCD5RHT0RL8XFdYrSB1MxZRrZhqzvdN6ZFNPzgT3voSPXeJWCn//KIgQpB46Hv9TKlnUbm X-Priority: 3 X-Mailer: COMS/EA21.01/r20210415 In-Reply-To: Received-SPF: pass client-ip=213.182.54.8; envelope-from=martin-kemp@brusseler.com; helo=msg-3.mailo.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, HTML_MESSAGE=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Content-Filtered-By: Mailman/MimeDel 2.1.23 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:130561 Archived-At: I would not like to use the mini-buffer, but introduce the comment characte= r=20 according the the major mode being used on the buffer. Is there a command that gets the current comment for the major mode used i= n the working buffer ? Would use the comment character twice=C2=A0 ";;"',=C2=A0 "cc", "!!", excep= t for texinfo which will use just "@c" as it is already composed of two characters. From: Jean Louis To: martin-kemp@brusseler.com Subject: Re: Using comment characters for specific major modes Date: 06/06/2021 00:40:14 Europe/Paris Cc: help-gnu-emacs@gnu.org * martin-kemp@brusseler.com [2021-06-06 01:06]= : > I only want to change the first two, the rest remains the same >=20 > Suppose lena is 8 OK and how do you propose to change the function? Instead: (defun my-fancy-thing () (interactive) (let* ((initial (completing-read "Comment: " '("1 ;;" "2 !!") nil t)) (comment (substring initial 2)) (lena 10) (string (make-string lena (string-to-char (substring initial 2))))) (insert (concat comment " " string)))) then: (defun my-fancy-thing () (interactive) (let* ((initial (completing-read "Comment: " '("1 ;;" "2 !!") nil t)) (comment (substring initial 2)) (lena 10) (string (make-string lena 59))) (insert (concat comment " " string)))) ;; ;;;;;;;;;; Adopt the function to your needs. --=20 Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns Sign an open letter in support of Richard M. Stallman https://stallmansupport.org/