Misc improvements
This commit is contained in:
parent
bb7441aede
commit
7e184615b8
@ -171,6 +171,14 @@
|
||||
;; Commands.
|
||||
;; --------------------------------------------------------------------------
|
||||
|
||||
(defun unfill-paragraph (&optional region)
|
||||
"Takes a multi-line paragraph and makes it into a single line of text."
|
||||
(interactive (progn (barf-if-buffer-read-only) '(t)))
|
||||
(let ((fill-column (point-max))
|
||||
;; This would override `fill-column' if it's an integer.
|
||||
(emacs-lisp-docstring-fill-column t))
|
||||
(fill-paragraph nil region)))
|
||||
|
||||
(defun toggle-indent-tabs-mode ()
|
||||
"Toggle a indent-tabs-mode between a defined and undefined state."
|
||||
(interactive)
|
||||
@ -230,6 +238,9 @@
|
||||
;; Override the indent-region key-binding
|
||||
(global-set-key (kbd "C-M-\\") 'indent-region-or-buffer)
|
||||
|
||||
;; unfill-paragraph, closely related to fill-paragraph.
|
||||
(global-set-key (kbd "M-Q") 'unfill-paragraph)
|
||||
|
||||
;; --------------------------------------------------------------------------
|
||||
;; Additional key-bindings.
|
||||
;; --------------------------------------------------------------------------
|
||||
|
@ -214,4 +214,9 @@
|
||||
(setq-default max-specpdl-size 20000) ;; ~15x original value
|
||||
(setq-default max-lisp-eval-depth 24000) ;; 30x orignal value
|
||||
|
||||
;; --------------------------------------------------------------------------
|
||||
;; This slows down cursor scrolling.
|
||||
;; --------------------------------------------------------------------------
|
||||
(setq-default auto-window-vscroll nil)
|
||||
|
||||
)
|
||||
|
Reference in New Issue
Block a user