forked from colonelpanic/dotfiles
Function to replace escape sequences
This commit is contained in:
parent
b55289f5d4
commit
e14da00dea
@ -834,7 +834,19 @@ For composing functions with an apply so that they can be used with the ~:around
|
|||||||
(compilation-start command nil (lambda (&rest args)
|
(compilation-start command nil (lambda (&rest args)
|
||||||
(format "*compilation %s*" command))))
|
(format "*compilation %s*" command))))
|
||||||
|
|
||||||
|
#+END_SRC
|
||||||
|
** Replace Escape Sequences
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(defun imalison:replace-escape-sequences ()
|
||||||
|
(interactive)
|
||||||
|
(shut-up
|
||||||
|
(let* ((delimited (and transient-mark-mode mark-active))
|
||||||
|
(beg (when delimited (region-beginning)))
|
||||||
|
(end (when delimited (region-end))))
|
||||||
|
(save-excursion
|
||||||
|
(perform-replace "\\t" " " nil nil delimited nil nil beg end nil))
|
||||||
|
(save-excursion
|
||||||
|
(perform-replace "\\n" "\n" nil nil delimited nil nil beg end nil)))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Other
|
** Other
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
Loading…
Reference in New Issue
Block a user