🚀 go-pugleaf

Hello, all

Here is the patch I finaly add into my .emacs in order to
skip the polluting ^M
As it is usefull for me, it may be for others ;)

<---- cut here
;;
;; For C and C++, skip these damned ^M from emacs buffer
;;

;; First : define the right function to do the substitution, and
;; make it accessible for the user (in the case of any other mode
;; entered with such a writable perturbated file) :

(defun skip-cr-from-crlf-in-buffer ()
  (interactive)
  (replace-string "\C-m\C-j" "\C-j"))

;; Second : execute it each time C or C++ mode is entered, even
;; on a write-protected file (useful when in gdb trace mode, or
;; when using version control as RCS), leaving the buffer
;; apparently unmodified (till a *real* modification).
;; Note that, if buffer is finaly saved, the ^M are effectively
;; skipped from the file :

(add-hook 'c++-mode-hook
	  '(lambda ()
	     (let (memo-wpstate))
	     (setq memo-wpstate buffer-read-only)
	     (setq buffer-read-only nil)
	     (skip-cr-from-crlf-in-buffer)
	     (setq buffer-read-only memo-wpstate)
	     (not-modified)))

(add-hook 'c-mode-hook
	  '(lambda ()
	     (let (memo-wpstate))
	     (setq memo-wpstate buffer-read-only)
	     (setq buffer-read-only nil)
	     (skip-cr-from-crlf-in-buffer)
	     (setq buffer-read-only memo-wpstate)
	     (not-modified)))
<---- cut here

Comments are welcome.

Hope this helps,
Philippe.
-- 
-=-=-=-=-=-=-  Philippe Maurisset  -=-   phil@rd.lectra.fr  -=-=-=-=-=-=-
Lectra Systemes - Chemin de Marticot, BP 34 - 33611 CESTAS Cedex - FRANCE
            Voice +33 05 57 97 80 00 / Fax +33 05 57 97 82 32