Added wide-fill.

wdperson · Sep 1, 2010 · 178d7d9 · 178d7d9
1 parent 733a1e2
commit 178d7d9
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/ini/cust.el b/ini/cust.el
@@ -100,6 +100,14 @@
       (beginning-of-line)
       (forward-line))))
 
+(defun jw-wide-fill-paragraph (arg)
+  "Fill paragraph with a wide fill column."
+  (interactive (progn
+		 (barf-if-buffer-read-only)
+		 (list (if current-prefix-arg 'full))))
+  (let ((fill-column 10000000))
+    (fill-paragraph-or-region arg)))
+
 ;;; Notes
 
 (defun notes ()

diff --git a/ini/keybindings.el b/ini/keybindings.el
@@ -3,6 +3,8 @@
 (global-set-key (kbd "C-<tab>") 'jw-indent-line)
 (global-set-key (kbd "C-z") 'scroll-down) ; I *hate* suspend bound on this key
 
+(global-set-key (kbd "C-M-q") 'jw-wide-fill-paragraph)
+
 (if (is-aquamacs)                       ; Why do I have to do this for aquamacs?
     (define-key osx-key-mode-map (kbd "C-z") 'scroll-down))
 (global-set-key (kbd "M-g") 'goto-line)	; goto a line position