keybindings.el

gistfile1.el

;; make: F12
(global-set-key
 (kbd "<f12>")
 (lambda ()
   (interactive)
   ;; (call-process-shell-command
   ;;  (if (and (boundp 'local-make) local-make) local-make "make")
   ;;  nil "*Shell Command Output*" nil
   ;;  )
   (start-process-shell-command
    "*Shell*"
    "*Shell Command Output*"
    (if (and (boundp 'local-make) local-make) local-make "make")
    )
   )
)

(defcustom local-make nil
  "Local make command (invoked on <f12>)"
  :type 'string
  :safe 'stringp
  )

;; kill-ring-search: C-M-y
(global-set-key "\M-\C-y" 'kill-ring-search)