mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs: Add argument for case-folding in sort-lines-unique

master
Pierre Neidhardt 2015-09-12 12:02:53 +02:00
parent d59842c55c
commit ee40c77a32
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
.emacs.d/lisp/functions.el
View File

@ -460,16 +460,18 @@ Hook function for skeletons."
(pos (goto-char pos))
(t (goto-char (car skeleton-markers)))))))
(defun sort-lines-unique ()
"Remove trailing white space, then duplicate lines, then sort the result."
(interactive)
(defun sort-lines-unique (arg)
"Remove trailing white space, then duplicate lines, then sort the result.
Do not folder case with universal argument or non-nil ARG."
(interactive "P")
(unless mark-active
(mark-whole-buffer))
(when (> (point) (mark))
(exchange-point-and-mark))
(delete-trailing-whitespace (point) (mark))
(delete-duplicate-lines (point) (mark))
(sort-lines nil (point) (mark)))
(let ((sort-fold-case (if arg nil t)))
(sort-lines nil (point) (mark))))
(defun swap-windows ()
"If you have 2 windows, it swaps them."