Function to replace escape sequences

This commit is contained in:
Ivan Malison 2016-06-25 16:38:08 -07:00
parent b55289f5d4
commit e14da00dea

View File

@ -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