|
From: | Chris Seberino |
Subject: | Some commands don't work remotely. Why not? |
Date: | Fri, 10 Aug 2001 11:22:55 -0700 |
Any help would be greatly appreciated.
Here is my entire .emacs....
; **************************************************
; ***********deleting*******************************
; **************************************************
; Define delete key to delete a character.
(global-set-key [delete] 'delete-char)
; Define Ctrl-d to delete a line.
(global-set-key "\C-d" 'new-kill-line)
(defun new-kill-line()
(interactive)
(setq current-pos (point))
(end-of-line)
(setq end-pos (point))
(beginning-of-line)
(setq beginning-pos (point))
(kill-line)
(kill-line)
(end-of-line)
(setq new-end-pos (point))
(beginning-of-line)
(forward-char (min (- new-end-pos beginning-pos)
(- current-pos beginning-pos)
)
)
)
; **************************************************
; **************************************************
; ***********saving and exiting*********************
; **************************************************
; Define Ctrl-s to save a file.
(global-set-key "\C-s" 'save-buffer)
; Define Ctrl-q to exit Emacs.
(global-set-key "\C-q" 'new-kill-emacs)
(fset 'new-kill-emacs [
escape ?x ?k ?i ?l ?l ?- ?b ?u ?f ?f ?e ?r return
return ?y ?e ?s return
escape ?x ?k ?i ?l ?l ?- ?e ?m ?a ?c ?s return
])
; Define Ctrl-z to save a file and exit Emacs.
(global-set-key "\C-z" 'new-save-buffers-kill-emacs)
(fset 'new-save-buffers-kill-emacs [
escape ?x ?s ?a ?v ?e ?- ?b ?u ?f ?f ?e ?r ?s ?-
?k ?i ?l ?l ?- ?e ?m ?a ?c ?s return
?y
])
; **************************************************
; **************************************************
; ***********block operations***********************
; **************************************************
; Define Ctrl-c to copy a block.
(global-set-key "\C-c" 'kill-ring-save)
; Define Ctrl-x to cut a block.
(global-set-key "\C-x" 'kill-region)
; Define Ctrl-v to paste a block.
(global-set-key "\C-v" 'yank)
;(global-set-key "\C-o" 'new-copy-and-cut)
;(defun new-copy-and-cut(command-string)
;(interactive "snumber of lines")
;(message command-string)
;)
; **************************************************
; **************************************************
; ***********searching and replacing****************
; **************************************************
(setq old-search-string " ")
; Define Ctrl-f to search for a string.
(global-set-key "\C-f" 'new-search-forward)
(defun new-search-forward(search-string)
(interactive "sSearch string: ")
(setq old-search-string search-string)
(search-forward search-string)
)
; Define Ctrl-b to search backwards for a string.
(global-set-key "\C-b" 'search-backward)
; Define Ctrl-r to search and replace a string.
(global-set-key "\C-r" 'replace-string)
; Define Ctrl-n to repeat the last search.
(global-set-key "\C-n" 'search-repeat-forward)
(defun search-repeat-forward()
(interactive)
(search-forward old-search-string)
)
; **************************************************
; **************************************************
; ***********line jumping***************************
; **************************************************
; Define Ctrl-g to go to a line.
(global-set-key "\C-g" 'goto-line)
; **************************************************
; **************************************************
; ***********undoing and stopping*******************
; **************************************************
; Define Ctrl-u to undo a command.
(global-set-key "\C-u" 'undo)
; Define Ctrl-k to stop a command.
(global-set-key "\C-k" 'keyboard-quit)
; **************************************************
-- ======================================================= | Dr. Christian Seberino || (619) 553-7811 (office1) | | SPAWARSYSCEN D73C || (619) 553-2564 (office2) | | 53560 HULL ST || (619) 553-6307 (fax) | | SAN DIEGO CA 92152-5001 || seberino@spawar.navy.mil | =======================================================
[Prev in Thread] | Current Thread | [Next in Thread] |