all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#34796: [PATCH] * lisp/simple.el (delete-indentation): Join lines in a region
@ 2019-03-09 17:56 Łukasz Stelmach
       [not found] ` <handler.34796.B.155215436111455.ack@debbugs.gnu.org>
  2019-03-15  8:13 ` Eli Zaretskii
  0 siblings, 2 replies; 5+ messages in thread
From: Łukasz Stelmach @ 2019-03-09 17:56 UTC (permalink / raw)
  To: 34796; +Cc: Łukasz Stelmach

If a region is active, join all the lines it spans.
---
 lisp/simple.el | 42 +++++++++++++++++++++++++-----------------
 1 file changed, 25 insertions(+), 17 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index d4ae5eb..1b3d1bf 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -593,25 +593,33 @@ When called from Lisp code, ARG may be a prefix string to copy."
     (indent-to col 0)
     (goto-char pos)))
 
-(defun delete-indentation (&optional arg)
+(defun delete-indentation (&optional arg beg end)
   "Join this line to previous and fix up whitespace at join.
-If there is a fill prefix, delete it from the beginning of this line.
-With argument, join this line to following line."
-  (interactive "*P")
+If there is a fill prefix, delete it from the beginning of this
+line.  With argument, join this line to following line. With a
+region active, join lines in the region. If both argument and
+region are set, the region is ignored."
+  (interactive "*P\nr")
+  (if arg (forward-line 1)
+    (if (use-region-p)
+	(goto-char end)))
   (beginning-of-line)
-  (if arg (forward-line 1))
-  (if (eq (preceding-char) ?\n)
-      (progn
-	(delete-region (point) (1- (point)))
-	;; If the second line started with the fill prefix,
-	;; delete the prefix.
-	(if (and fill-prefix
-		 (<= (+ (point) (length fill-prefix)) (point-max))
-		 (string= fill-prefix
-			  (buffer-substring (point)
-					    (+ (point) (length fill-prefix)))))
-	    (delete-region (point) (+ (point) (length fill-prefix))))
-	(fixup-whitespace))))
+  (while (eq (preceding-char) ?\n)
+    (progn
+      (delete-region (point) (1- (point)))
+      ;; If the second line started with the fill prefix,
+      ;; delete the prefix.
+      (if (and fill-prefix
+	       (<= (+ (point) (length fill-prefix)) (point-max))
+	       (string= fill-prefix
+			(buffer-substring (point)
+					  (+ (point) (length fill-prefix)))))
+	  (delete-region (point) (+ (point) (length fill-prefix))))
+      (fixup-whitespace)
+      (if (and beg
+               (not arg)
+	       (< beg (point-at-bol)))
+	  (beginning-of-line)))))
 
 (defalias 'join-line #'delete-indentation) ; easier to find
 
-- 
2.20.1






^ permalink raw reply related	[flat|nested] 5+ messages in thread

* bug#34796: [PATCH] * lisp/simple.el (delete-indentation): Join lines in a region
       [not found] ` <handler.34796.B.155215436111455.ack@debbugs.gnu.org>
@ 2019-03-10  7:14   ` Łukasz Stelmach
  0 siblings, 0 replies; 5+ messages in thread
From: Łukasz Stelmach @ 2019-03-10  7:14 UTC (permalink / raw)
  To: 34796

Control: tags -1 + patch





^ permalink raw reply	[flat|nested] 5+ messages in thread

* bug#34796: [PATCH] * lisp/simple.el (delete-indentation): Join lines in a region
  2019-03-09 17:56 bug#34796: [PATCH] * lisp/simple.el (delete-indentation): Join lines in a region Łukasz Stelmach
       [not found] ` <handler.34796.B.155215436111455.ack@debbugs.gnu.org>
@ 2019-03-15  8:13 ` Eli Zaretskii
  2019-03-15 21:06   ` bug#34796: [PATCH] If the region is active, join all the lines it spans Łukasz Stelmach
  1 sibling, 1 reply; 5+ messages in thread
From: Eli Zaretskii @ 2019-03-15  8:13 UTC (permalink / raw)
  To: Łukasz Stelmach; +Cc: 34796

> From: Łukasz Stelmach <stlman@poczta.fm>
> Date: Sat,  9 Mar 2019 18:56:34 +0100
> Cc: Łukasz Stelmach <stlman@poczta.fm>
> 
> If a region is active, join all the lines it spans.

Thanks.

Please provide a ChangeLog-style commit log message for your proposed
changes, and also accompany them with suitable changes to NEWS and the
user manual.

> -(defun delete-indentation (&optional arg)
> +(defun delete-indentation (&optional arg beg end)
>    "Join this line to previous and fix up whitespace at join.
> -If there is a fill prefix, delete it from the beginning of this line.
> -With argument, join this line to following line."
> -  (interactive "*P")
> +If there is a fill prefix, delete it from the beginning of this
> +line.  With argument, join this line to following line. With a
> +region active, join lines in the region. If both argument and
> +region are set, the region is ignored."

Please leave 2 spaces between sentences in the doc string.

With those issues taken care of, I think this feature can be
installed.





^ permalink raw reply	[flat|nested] 5+ messages in thread

* bug#34796: [PATCH] If the region is active, join all the lines it spans
  2019-03-15  8:13 ` Eli Zaretskii
@ 2019-03-15 21:06   ` Łukasz Stelmach
  2019-03-22  9:08     ` Eli Zaretskii
  0 siblings, 1 reply; 5+ messages in thread
From: Łukasz Stelmach @ 2019-03-15 21:06 UTC (permalink / raw)
  To: 34796; +Cc: Łukasz Stelmach

* lisp/simple.el (delete-indentation): Join lines in the active region.
* doc/misc/org.texi: Describe the arguments of delete-indentation.
* etc/NEWS: Mention region support in delete-indentation.
---
 doc/emacs/indent.texi |  4 ++++
 etc/NEWS              |  4 ++++
 lisp/simple.el        | 42 +++++++++++++++++++++++++-----------------
 3 files changed, 33 insertions(+), 17 deletions(-)

diff --git a/doc/emacs/indent.texi b/doc/emacs/indent.texi
index a6aa75bbb4..61cf7332b5 100644
--- a/doc/emacs/indent.texi
+++ b/doc/emacs/indent.texi
@@ -110,6 +110,10 @@ parentheses, or if the junction follows another newline.
 If there is a fill prefix, @kbd{M-^} deletes the fill prefix if it
 appears after the newline that is deleted.  @xref{Fill Prefix}.
 
+With the universal prefix argument, join the current line line to the
+following line.  With the region active, join lines in the region.  If
+both the argument is set and the region is active, the region is ignored.
+
 @item C-M-\
 @kindex C-M-\
 @findex indent-region
diff --git a/etc/NEWS b/etc/NEWS
index 000d211c1a..129d882735 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -370,6 +370,10 @@ region using a given replacement-function in a non-destructive manner
 arguments mitigating performance issues when operating on huge
 buffers.
 
+** The command `delete-indentation` now can operate on the active
+region
+
++++
 \f
 * Changes in Specialized Modes and Packages in Emacs 27.1
 
diff --git a/lisp/simple.el b/lisp/simple.el
index d4ae5ebb1f..7878272ec9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -593,25 +593,33 @@ When called from Lisp code, ARG may be a prefix string to copy."
     (indent-to col 0)
     (goto-char pos)))
 
-(defun delete-indentation (&optional arg)
+(defun delete-indentation (&optional arg beg end)
   "Join this line to previous and fix up whitespace at join.
-If there is a fill prefix, delete it from the beginning of this line.
-With argument, join this line to following line."
-  (interactive "*P")
+If there is a fill prefix, delete it from the beginning of this
+line.  With prefix ARG, join the current line to the following line.
+With the region active, join lines in the region. If both the
+argument is set and the region is active, the region is ignored."
+  (interactive "*P\nr")
+  (if arg (forward-line 1)
+    (if (use-region-p)
+	(goto-char end)))
   (beginning-of-line)
-  (if arg (forward-line 1))
-  (if (eq (preceding-char) ?\n)
-      (progn
-	(delete-region (point) (1- (point)))
-	;; If the second line started with the fill prefix,
-	;; delete the prefix.
-	(if (and fill-prefix
-		 (<= (+ (point) (length fill-prefix)) (point-max))
-		 (string= fill-prefix
-			  (buffer-substring (point)
-					    (+ (point) (length fill-prefix)))))
-	    (delete-region (point) (+ (point) (length fill-prefix))))
-	(fixup-whitespace))))
+  (while (eq (preceding-char) ?\n)
+    (progn
+      (delete-region (point) (1- (point)))
+      ;; If the second line started with the fill prefix,
+      ;; delete the prefix.
+      (if (and fill-prefix
+	       (<= (+ (point) (length fill-prefix)) (point-max))
+	       (string= fill-prefix
+			(buffer-substring (point)
+					  (+ (point) (length fill-prefix)))))
+	  (delete-region (point) (+ (point) (length fill-prefix))))
+      (fixup-whitespace)
+      (if (and beg
+               (not arg)
+	       (< beg (point-at-bol)))
+	  (beginning-of-line)))))
 
 (defalias 'join-line #'delete-indentation) ; easier to find
 
-- 
2.20.1






^ permalink raw reply related	[flat|nested] 5+ messages in thread

* bug#34796: [PATCH] If the region is active, join all the lines it spans
  2019-03-15 21:06   ` bug#34796: [PATCH] If the region is active, join all the lines it spans Łukasz Stelmach
@ 2019-03-22  9:08     ` Eli Zaretskii
  0 siblings, 0 replies; 5+ messages in thread
From: Eli Zaretskii @ 2019-03-22  9:08 UTC (permalink / raw)
  To: Łukasz Stelmach; +Cc: 34796-done

> From: Łukasz Stelmach <stlman@poczta.fm>
> Date: Fri, 15 Mar 2019 22:06:16 +0100
> Cc: Łukasz Stelmach <stlman@poczta.fm>
> 
> * lisp/simple.el (delete-indentation): Join lines in the active region.
> * doc/misc/org.texi: Describe the arguments of delete-indentation.
> * etc/NEWS: Mention region support in delete-indentation.

Thanks, I pushed this to the master branch (with some changes).

P.S. Your patch was formatted almost, but exactly, like the command
"git format-patch", so it needed some manual work.  In the future,
using "got format-patch" will be most appreciated.





^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2019-03-22  9:08 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-03-09 17:56 bug#34796: [PATCH] * lisp/simple.el (delete-indentation): Join lines in a region Łukasz Stelmach
     [not found] ` <handler.34796.B.155215436111455.ack@debbugs.gnu.org>
2019-03-10  7:14   ` Łukasz Stelmach
2019-03-15  8:13 ` Eli Zaretskii
2019-03-15 21:06   ` bug#34796: [PATCH] If the region is active, join all the lines it spans Łukasz Stelmach
2019-03-22  9:08     ` Eli Zaretskii

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.