MatthewSmith

Info

Projects

Code

Here is some of the code I use

Decompile JAVA from an archive

(add-hook
 'archive-extract-hooks
 (lambda () 
   (cond ((string-match "\312\376\272\276" (buffer-substring-no-properties 1 5)) ;;CAFEBABE
		   (jdc-buffer)))))

Dedosify

Just a simple command to get rid of ^M at the end of lines

(defun dedosify () 
  (interactive)
  (save-excursion
	(goto-char (point-min))
	(while (search-forward "\15" nil t)
	  (replace-match "" nil t))))

CategoryHomepage