ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix warning in oni-html

Browse source
This commit is contained in:
Tom Willemse 2015-12-17 00:59:32 +01:00
parent 168bcf9c58
commit b3a0345c7c
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/.emacs.d/init.el
View file

@ -389,13 +389,6 @@ use. If MODE is not nil, open a new buffer with the name
(interactive) (interactive)
(revert-buffer nil t nil)) (revert-buffer nil t nil))
(defun oni:replace-occurrences (from to)
"Replace all occurrences of FROM with TO in the current buffer."
(save-excursion
(goto-char (point-min))
(while (search-forward from nil t)
(replace-match to))))
(defun oni:request-pull () (defun oni:request-pull ()
"Start a mail to request pulling from a git repository." "Start a mail to request pulling from a git repository."
(interactive) (interactive)

7
emacs/.emacs.d/site-lisp/oni-html.el
View file

@ -31,6 +31,13 @@
(oni:replace-occurrences "‘" "‘") (oni:replace-occurrences "‘" "‘")
(oni:replace-occurrences "ë" "ë")) (oni:replace-occurrences "ë" "ë"))
(defun oni:replace-occurrences (from to)
"Replace all occurrences of FROM with TO in the current buffer."
(save-excursion
(goto-char (point-min))
(while (search-forward from nil t)
(replace-match to))))
;;;###autoload ;;;###autoload
(defun oni:replace-html-special-chars-in-html-mode () (defun oni:replace-html-special-chars-in-html-mode ()
"Replace special characters with HTML escaped entities in HTML mode." "Replace special characters with HTML escaped entities in HTML mode."