help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Some commands don't work remotely. Why not?


From: Chris Seberino
Subject: Some commands don't work remotely. Why not?
Date: Fri, 10 Aug 2001 11:22:55 -0700

I can use ALL my rebound commands locally but only
SOME remotely! Why would using emacs remotely
be different?  For example I defined C-s to run
'save-buffer and this does not work remotely.

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 |
=======================================================
 
reply via email to

[Prev in Thread] Current Thread [Next in Thread]