; Stolfi's global key bindings.

;; Function key bindings for SGI Elan keyboards

(define-key global-map [f2] 'set-fill-column)

(define-key global-map [prior] 'scroll-down)  ;;  PgUp
(define-key global-map [next]  'scroll-up)    ;;  PgDn

(define-key global-map [home]  'stolfi-scroll-to-top)     ;; Home
(define-key global-map [begin] 'recenter)                 ;; N-5
(define-key global-map [end]   'stolfi-scroll-to-bottom)  ;; End

(define-key global-map [f12] 'call-last-kbd-macro)   ;; Again

(defun revert-buffer-and-goto-end ()
  "re-reads buffer from file and goes to end-of-buffer"
  (interactive)
  (revert-buffer nil t t)
  (end-of-buffer)
)

(defun revert-buffer-and-goto-beginning ()
  "re-reads buffer from file and goes to beginning-of-buffer"
  (interactive)
  (revert-buffer nil t t)
  (beginning-of-buffer)
)

(define-key global-map [print] 'revert-buffer-and-goto-beginning)   ;; Print Screen

;; (define-key global-map [f1] 'fix-modula-3-errors)

;; Other key bindings

(define-key global-map "\C-xg" 'goto-line)
(define-key global-map "\C-xf" nil) 

(define-key global-map "\M-p" 'portug)

(define-key global-map "\015" 'stolfi-newline-and-indent)
(define-key global-map "\C-o" 'stolfi-open-line)
(define-key global-map "\012" 'newline)
(define-key global-map "\C-a" 'stolfi-beginning-of-line)
(define-key global-map "\M-," 'stolfi-exdent-region)
(define-key global-map "\M-." 'stolfi-indent-region)
(define-key global-map "\C-d"      'stolfi-delete-next-char)
(define-key global-map [delete]    'stolfi-delete-next-char)
(define-key global-map [backspace] 'stolfi-delete-prev-char)

(define-key global-map "\M-r" 'query-replace-regexp)

; Make i-search [backspace] apply to pattern, not text:

(define-key isearch-mode-map [delete] 'isearch-other-control-char)
(define-key isearch-mode-map [backspace] 'isearch-delete-char)