-; Editing customisations -- general text munging when typing.
+;;;; Editing customisations -- general text munging when typing.
 
-; redraw *before* handling input events to improve syntax highlighting responsiveness
-; discussed at http://www.masteringemacs.org/articles/2011/10/02/improving-performance-emacs-display-engine/
+;; redraw *before* handling input events to improve syntax highlighting responsiveness
+;; discussed at http://www.masteringemacs.org/articles/2011/10/02/improving-performance-emacs-display-engine/
 (setq redisplay-dont-pause t)
 
 ; Automatically indent the new line when we hit enter
 (define-key global-map (kbd "RET") 'newline-and-indent)
 
-
-; zap-to-char but don't delete the character itself
+;; zap-to-char but don't delete the character itself
 (defun zap-up-to-char (arg char)
   "Kill up to, but not including ARGth occurrence of CHAR.
 Case is ignored if `case-fold-search' is non-nil in the current buffer.


(global-set-key (kbd "C-<backspace>") 'backward-kill-symbol)

; to be consistent with C-M-f as forward-sexp, bind C-M-backspace to backward-kill-sexp
; and C-M-d to forward-kill-sexp
(global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp)
(global-set-key (kbd "C-M-d") 'kill-sexp)


  "Toggles the case of the next character after point.
The point is also moved one character forward."
  (interactive)
  ;; note next-char is a string
  (let ((next-char (buffer-substring (point) (1+ (point))))
        (case-fold-search nil)) ; case sensitive
    (if (string-match "[a-z]" next-char)
