@tennoseremel or this one :blobcatthink: (defun zap-up-to-last-char...

@tennoseremel or this one :blobcatthink:

(defun zap-up-to-last-char (char)
"Zap up to the last occurrence of CHAR in the line"
(interactive "cZap up to char: ")
(let ((start (point)))
(let ((end (save-excursion
(move-end-of-line 1)
(search-backward (char-to-string char) start t))))
(if end
(delete-region start end)
(error "Character not found")))))

Like 4 March at 12:23 | Wall-to-wall | Open on lor.sh

5 comments

Ténno Seremélʹ

@rayslava Thanks! I'll try it later, when I have enough mental power to read what it does :blobcatgiggle:

4 March at 12:25 | Open on lor.sh

rayslava

@tennoseremel yep.
Also, a one-line-shorter version that saves the zapped part into kill-ring:

(defun zap-up-to-last-char (char)
"Zap up to the last occurrence of `char' in the line"
(interactive "cZap up to char: ")
(let* ((start (point))
(end (save-excursion
(move-end-of-line 1)
(search-backward (char-to-string char) start t))))
(if end
(kill-region start end)
(error "Character not found"))))

4 March at 12:26 | Open on lor.sh

Ténno Seremélʹ

@rayslava Yay :)

(defun zap-up-to-last-char (char)
"Zap up to the last occurrence of CHAR in the line."
(interactive "cZap up to the last occurence of char: ")
(let* ((case-fold-search (if (char-uppercase-p char) nil case-fold-search))
(start (point))
(end (save-excursion
(move-end-of-line 1)
(search-backward (char-to-string char) start t))))
(if end
(kill-region start end)
(error "Character not found"))))

10 March at 7:37 | Open on lor.sh

rayslava

@tennoseremel now you just need to promote it to upstream :blobcathappy:

10 March at 8:32 | Open on lor.sh

Ténno Seremélʹ

@rayslava Looking at the source of zap-up-to-char it needs to be a bit longer, so it could be used non-interactively… :)

10 March at 8:34 | Open on lor.sh

Go Up