 
 ;; kill-word is less useful than kill-symbol
 (autoload 'forward-symbol "thingatpt")
-(defun kill-symbol (arg)
+(defun wh/kill-symbol (arg)
   "Kill characters forward until encountering the end of a symbol.
 With argument ARG, do this that many times."
   (interactive "p")
   (kill-region (point) (progn (forward-symbol arg) (point))))
 
-(global-set-key (kbd "M-d") 'kill-symbol)
-
-
-(defun backward-kill-symbol (arg)
+(global-set-key (kbd "M-d") #'wh/kill-symbol)
+
+
+(defun wh/backward-kill-symbol (arg)
   "Kill characters backward until encountering the beginning of a symbol.
 With argument ARG, do this that many times."
   (interactive "p")
   (kill-symbol (- arg)))
 
-(global-set-key (kbd "C-<backspace>") 'backward-kill-symbol)
+(global-set-key (kbd "C-<backspace>") #'wh/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)
 
-(defun toggle-case-next-char ()
+(defun wh/toggle-case-next-char ()
   "Toggles the case of the next character after point.
 The point is also moved one character forward."
   (interactive)

  (transpose-subr 'forward-symbol arg))

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

;; based on my-increment-number-decimal from http://www.emacswiki.org/emacs/IncrementNumber
;; unlike that version, we only change the number if point is on a number
(defun increment-number-decimal (&optional arg)
  "Increment the number forward from point by ARG."
  (interactive "p*")
  (save-excursion

(global-set-key (kbd "C-M-c") 'cycle-symbol-case)


(defun wh/transpose-symbols (arg)
  "Interchange sybmols around point, leaving point at end of them.
With prefix arg ARG, effect is to take symbol before or around point
and drag it forward past ARG other symbol (backward if ARG negative).
