From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Drew Adams Newsgroups: gmane.emacs.help Subject: RE: finding the hork point in ~/.emacs Date: Wed, 26 Aug 2020 21:57:28 -0700 (PDT) Message-ID: <8ec86d3a-9070-4e10-a1cb-e25a829b326a@default> References: <1731fb09-fa74-49a7-bd02-df34d8a00544@default> <87a6ygj01j.fsf@ebih.ebihd> <871rjsiuoi.fsf@ebih.ebihd> 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="36202"; mail-complaints-to="usenet@ciao.gmane.io" Cc: help-gnu-emacs@gnu.org To: Emanuel Berg Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Aug 27 06:57:54 2020 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 1kB9z0-0009Jy-2V for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 27 Aug 2020 06:57:54 +0200 Original-Received: from localhost ([::1]:38286 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kB9yz-0001e7-5G for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 27 Aug 2020 00:57:53 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:60620) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kB9yh-0001dz-3V for help-gnu-emacs@gnu.org; Thu, 27 Aug 2020 00:57:35 -0400 Original-Received: from userp2130.oracle.com ([156.151.31.86]:48950) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kB9yf-0004ZY-29 for help-gnu-emacs@gnu.org; Thu, 27 Aug 2020 00:57:34 -0400 Original-Received: from pps.filterd (userp2130.oracle.com [127.0.0.1]) by userp2130.oracle.com (8.16.0.42/8.16.0.42) with SMTP id 07R4mvau184188; Thu, 27 Aug 2020 04:57:30 GMT DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=oracle.com; h=mime-version : message-id : date : from : sender : to : cc : subject : references : in-reply-to : content-type : content-transfer-encoding; s=corp-2020-01-29; bh=H//CtCVTYluFstkGseoQMVVIUeP3I43JkeKKhDdLCg4=; b=K87XU1PA2P0WFoJ3LV1AmHbJ71RXlba6VrzHbTxMl/idOFn+DqiWxV7p0Yf3u5asuuAp 5vYxGBoxI0JFGmgTZFcaj0aMNxfB4Q9PIrw9zr0cWm4BxwAqkbDF/dfe5mfVlZBauF/3 l1i2B3Bdw3aUW4rxdsWTB/0QjFk0jXwFSw4j5iMFUQuF0vHmwtdskRTqel8YGDjSzTh6 wuKyh2B0ukhsQSTLx3zywKpl0JltkDl+7Otmoidg6SWN9x9V/Szg1i6Syf87VaH1/D0U lc9xDqt7n3ZMnlpRz6Ba9kpFUOi9uEnDnE+1iB/aeQBWvMAeA3i6bu2XFvrtiDt7BNIC JQ== Original-Received: from aserp3030.oracle.com (aserp3030.oracle.com [141.146.126.71]) by userp2130.oracle.com with ESMTP id 335gw85xud-1 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=FAIL); Thu, 27 Aug 2020 04:57:30 +0000 Original-Received: from pps.filterd (aserp3030.oracle.com [127.0.0.1]) by aserp3030.oracle.com (8.16.0.42/8.16.0.42) with SMTP id 07R4orST040250; Thu, 27 Aug 2020 04:57:29 GMT Original-Received: from aserv0122.oracle.com (aserv0122.oracle.com [141.146.126.236]) by aserp3030.oracle.com with ESMTP id 333r9my5tt-1 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=OK); Thu, 27 Aug 2020 04:57:29 +0000 Original-Received: from abhmp0001.oracle.com (abhmp0001.oracle.com [141.146.116.7]) by aserv0122.oracle.com (8.14.4/8.14.4) with ESMTP id 07R4vT9R025673; Thu, 27 Aug 2020 04:57:29 GMT In-Reply-To: <871rjsiuoi.fsf@ebih.ebihd> X-Priority: 3 X-Mailer: Oracle Beehive Extensions for Outlook 2.0.1.9.1 (1003210) [OL 16.0.5044.0 (x86)] X-Proofpoint-Virus-Version: vendor=nai engine=6000 definitions=9725 signatures=668679 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 malwarescore=0 mlxscore=0 bulkscore=0 adultscore=0 spamscore=0 mlxlogscore=999 phishscore=0 suspectscore=0 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.12.0-2006250000 definitions=main-2008270040 X-Proofpoint-Virus-Version: vendor=nai engine=6000 definitions=9725 signatures=668679 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 suspectscore=0 lowpriorityscore=0 mlxscore=0 phishscore=0 bulkscore=0 impostorscore=0 adultscore=0 malwarescore=0 clxscore=1015 spamscore=0 mlxlogscore=999 priorityscore=1501 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.12.0-2006250000 definitions=main-2008270040 Received-SPF: pass client-ip=156.151.31.86; envelope-from=drew.adams@oracle.com; helo=userp2130.oracle.com X-detected-operating-system: by eggs.gnu.org: First seen = 2020/08/26 22:59:11 X-ACL-Warn: Detected OS = Linux 3.1-3.10 [fuzzy] X-Spam_score_int: -53 X-Spam_score: -5.4 X-Spam_bar: ----- X-Spam_report: (-5.4 / 5.0 requ) BAYES_00=-1.9, DKIMWL_WL_HIGH=-0.959, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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:123798 Archived-At: > ? `comment-dwim': >=20 > If the region is active and =E2=80=98transient-mark-mode=E2=80=99 > is on, call =E2=80=98comment-region=E2=80=99 (unless it only > consists of comments, in which case it calls > =E2=80=98uncomment-region=E2=80=99). Right: "unless it..." I want it to comment when I tell it to comment, including when it may already be commented - nested comment blocks. And I want it to uncomment when I tell it to uncomment. This particular DWIM doesn't do-what-I-want. (It may do-what-you-want.) > > (defun comment-region-lines (beg end &optional arg) > > "Like `comment-region', but comment/uncomment > > whole lines." [...] >=20 > What do you mean by "whole lines"? What the code says. Regardless of the columns of point and mark, their lines and the lines between them are commented, from bol. (let ((bol (save-excursion=20 (goto-char beg)=20 (line-beginning-position))) (eol (save-excursion=20 (goto-char end)=20 (if (bolp) (point) (line-end-position))))) (comment-region bol eol arg))