 		       (search-forward (char-to-string char) nil nil arg)
 		     (backward-char direction))
 		   (point)))))
-; bind it to the usual zap-to-char shortcut
+;; bind it to the usual zap-to-char shortcut
 (global-set-key (kbd "M-z") 'zap-up-to-char)
 
 
-; kill-word is less useful than kill-symbol
+;; kill-word is less useful than kill-symbol
 (autoload 'forward-symbol "thingatpt")
 (defun kill-symbol (arg)
   "Kill characters forward until encountering the end of a symbol.

  "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)

  (interactive "*p")
  (transpose-subr 'forward-symbol arg))

;; bind it to the usual transpose-word key combination
(global-set-key (kbd "M-t") 'transpose-symbols)

(defun increment-number-decimal (&optional arg)
