R 콘솔의 Control + L과 마찬가지로 ESS의 버퍼 맨 위에서 R의 현재 프롬프트를 만드는 방법

Question

my .emacs 파일에 다음을 넣으려고했습니다.

(defun clear-shell() 
    (interactive) 
    (let ((old-max comint-buffer-maximum-size)) 
    (setq comint-buffer-maximum-size 0) 
    (comint-truncate-buffer) 
    (setq comint-buffer-maximum-size old-max))) 
(global-set-key (kbd "\C-x c") 'clear-shell) 

효과가 있지만 이전에 입력 한 명령도 모두 제거됩니다. 그래서 내가 원하는 것이 아닙니다. 나는 단지 현재 프롬프트를 버퍼의 맨 위에두고 전에 입력 한 명령을 삭제하지 않기를 원합니다.

아는 사람 있습니까?

Answer 1

나를 위해 Esc-0 Ctr-l가 작동하는 것처럼 보입니다.

`Ctrl 키-H K '출력은 다음과 같습니다

는 이맥스 설명서에서 this page에 따르면

C-l runs the command recenter-top-bottom, 
which is an interactive compiled Lisp function in window.el'. 

이 보인다

Scroll the selected window so the current line is the 
center-most text line; on subsequent consecutive invocations, 
make the current line the top line, the bottom line, and so on in 
cyclic order. Possibly redisplay the screen too (recenter-top-bottom). 

Answer 2

는이 작업 수행에 (실제로 정말 확실하지 않다하지만 이것이 당신이 무엇인지 알고 있다면) :

(defun clean-shell() 
(interactive) 

; if you call this from your .r script, it will switch to the next window 
(when (eq major-mode 'ess-mode) (other-window 1)) 

(mark-whole-buffer) 
(exchange-point-and-mark) 
(move-beginning-of-line 1) 
(delete-region (region-beginning) (region-end)) 
(end-of-line) 
) 

EDIT : 아니면 이거?

(defun clean-shell() 
(interactive) 
(when (eq major-mode 'ess-mode) (other-window 1)) 
(mark-whole-buffer) 
(exchange-point-and-mark) 
(move-beginning-of-line 0) 
(delete-region (region-beginning) (region-end)) 
(end-of-line) 
) 

Answer 3

는 C-1의 C-1 어떤 문제가 있습니까? 모든 버퍼에서 작동합니다.