(global-set-key [f1]    'save-buffer)
(global-set-key [f2]    'goto-line)
(global-set-key [f4]    'ispell-word) 
(global-set-key "\C-w"  'clipboard-kill-region)
(global-set-key "\M-w"  'clipboard-kill-ring-save)
(global-set-key "\C-ct" 'tex-latex-table)
(global-set-key "\C-cf" 'tex-latex-figure)

(defalias 'is 'isearch-forward)

(defun f90() (interactive) (f90-mode))


(defun Fortran2C()
  (interactive)
  (beginning-of-buffer)(query-replace ".f90"     ".cpp"    )
  (beginning-of-buffer)(query-replace "gfortran" "g++     "))


(defun mst2ph ()
  (interactive)
  (beginning-of-buffer)(query-replace "mst"         "ph"      )
  (beginning-of-buffer)(query-replace "temp"        "ph"      )
  (beginning-of-buffer)(query-replace "Nikos   "    "Nikolaos"))

