tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I have no idea why this happened

Browse source
This commit is contained in:
trémeur 2022-02-27 19:55:45 +00:00
parent e1984707ef
commit a470a4a297
2 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
custom/dwpost.el
View file

@ -14,6 +14,10 @@
(with-current-buffer newname
(goto-line 1)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 2)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 3)
(delete-region (line-beginning-position) (line-end-position))
(write-file newname))
(kill-buffer newname)
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
@ -42,6 +46,10 @@
(with-current-buffer newname
(goto-line 1)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 2)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 3)
(delete-region (line-beginning-position) (line-end-position))
(write-file newname))
(kill-buffer newname)
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
@ -71,6 +79,10 @@
(with-current-buffer newname
(goto-line 1)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 2)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 3)
(delete-region (line-beginning-position) (line-end-position))
(write-file newname))
(kill-buffer newname)
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
@ -100,6 +112,10 @@
(with-current-buffer newname
(goto-line 1)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 2)
(delete-region (line-beginning-position) (line-end-position))
(goto-line 3)
(delete-region (line-beginning-position) (line-end-position))
(write-file newname))
(kill-buffer newname)
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)