From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?UTF-8?B?QW5kcmVhcyBSw7ZobGVy?= Newsgroups: gmane.emacs.devel Subject: Re: POC comment/uncomment region in nxml-mode Date: Wed, 23 Jul 2014 08:36:03 +0200 Message-ID: <53CF57D3.1050605@online.de> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1406097410 19763 80.91.229.3 (23 Jul 2014 06:36:50 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 23 Jul 2014 06:36:50 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jul 23 08:36:44 2014 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1X9qAN-0001Hy-Vu for ged-emacs-devel@m.gmane.org; Wed, 23 Jul 2014 08:36:44 +0200 Original-Received: from localhost ([::1]:43207 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X9qAN-0002If-IT for ged-emacs-devel@m.gmane.org; Wed, 23 Jul 2014 02:36:43 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:35007) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X9qAF-0002IS-NL for emacs-devel@gnu.org; Wed, 23 Jul 2014 02:36:41 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X9qA5-0006ch-W7 for emacs-devel@gnu.org; Wed, 23 Jul 2014 02:36:35 -0400 Original-Received: from mout.kundenserver.de ([212.227.126.130]:61285) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X9qA5-0006ca-M9 for emacs-devel@gnu.org; Wed, 23 Jul 2014 02:36:25 -0400 Original-Received: from [192.168.178.32] (brln-4db9e851.pool.mediaWays.net [77.185.232.81]) by mrelayeu.kundenserver.de (node=mreue006) with ESMTP (Nemesis) id 0MdjtQ-1WtG9U225k-00PLy4; Wed, 23 Jul 2014 08:36:24 +0200 User-Agent: Mozilla/5.0 (X11; Linux i686; rv:24.0) Gecko/20100101 Icedove/24.6.0 In-Reply-To: X-Provags-ID: V02:K0:2ENF8WkMJG0qx/P6Q4ghkGPSaQEO3WOJ7kj6mqFbpex +BVV2CGCSFVDjFzZUiwYWxNdX1OpYwupHTGEKjUX6bpGSQKInV VSTG/FiSjWEWzAvD90grYpfWP1r1wUpYLiu/Ry43DF3fRxbnro GztPus81GoKO/46ZR19xgozj7+BkJJUrq/4LJw+QF+Zu4GzUUW 0qTCBi4fwFCqy5FG6H2b6VPErWoVYVrB7n4CKIaC1rdQqkWaen /s/Ld0z1YF6IcmogpufTrPs+CZrGsR0MLY/TEZHY8oKwy1hZct dORZdmwijZIEcVRsYyCz3kmMzfNeXMt1/Np6vsrh2nstzgKZs2 FRZ6X/YxSRGHoJ+ujRo4QMYiDQqQXT90LUf2PxLna X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-Received-From: 212.227.126.130 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:173089 Archived-At: On 23.07.2014 01:22, Tim Chambers wrote: > Here's a POC for interactively commenting/uncommenting a region in > nxml-mode. I guess if I wanted to submit this as an enhancement to > nxml-mode I'd have to properly integrate the functions into nXML mode. > Looking for motivation. Anyone interest in pursuing this? > > (defun my-nxml-comment-region () > "comment a block if in nXML mode; else call comment-region" > (interactive) > ;; KLUDGE: should bind key in buffer, but I'm lazy > (cond ((string-equal mode-name "nXML") > (save-excursion > (narrow-to-region (point) (mark)) > (goto-point-min) > (save-excursion (replace-string "--" "\\-\\-")) > (insert "\n") > (widen))) > (t (comment-region (point) (mark))))) > > (defun my-nxml-uncomment-region () > "uncomment a block if in nXML mode; else call uncomment-region > assumes it was commented by my-nxml-comment-region" > (interactive) > ;; KLUDGE: should bind key in buffer, but I'm lazy > (cond ((string-equal mode-name "nXML") > (save-excursion > (search-backward "\n") > (delete-char -4) > (setq end (point)) > (save-excursion (replace-string "\\-\\-" "--" nil start end))))) > (t (uncomment-region (point) (mark))))) > > www.emacswiki.org/emacs/NxmlMode#toc13 > > – Tim Chambers 1E4AF729D5CEFFD0 > > Why not just M-x comment-dwim? Andreas