mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs: Make cc-fmt work on region

master
Pierre Neidhardt 2015-10-17 09:27:58 +02:00
parent abb847ed6e
commit e62ac12618
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.emacs.d/lisp/mode-cc.el
View File

@ -55,13 +55,17 @@ restored."
(defun cc-fmt ()
"Run uncrustify(1) on current buffer."
(interactive)
(unless mark-active
(mark-whole-buffer))
(when (> (point) (mark))
(exchange-point-and-mark))
(let ((status)
(formatbuf (get-buffer-create "*C format buffer*")))
(setq status
(call-process-region (point-min) (point-max) "uncrustify" nil formatbuf nil "-lc" "-q"))
(call-process-region (point) (mark) "uncrustify" nil formatbuf nil "-lc" "-q"))
(if (/= status 0)
(error "Bad formatted C file")
(delete-region (point-min) (point-max))
(delete-region (point) (mark))
(insert-buffer formatbuf)
(kill-buffer formatbuf))))