Сделать командную строку не изменяемой в Aquamacs

278
rte

Я использую Aquamacs на OSX.

Допустим, я открываю оболочку:

M-x-shell 

Я нахожу это раздражающим, что я могу нажать клавишу Backspace, и это удалит приглашение командной строки

> 

а также что я могу удалить разделы ранее введенных команд в командной строке.

Есть ли способ сделать командную строку недоступной для редактирования?

1
В предыдущем ответе, который был удален, я указал, что установка переменной `comint-prompt-read-only` в` t`, вероятно, приведет к желаемому эффекту. Вы ответили, заявив, что у вас не установлена ​​полная версия Emacs, и вам необходимо загрузить `comint.el`. Я не могу помочь вам правильно настроить частичную установку Emacs. Если после установки полной версии Emacs вы не можете достичь желаемого эффекта с помощью `(setq comint-prompt-только для чтения t`), то, пожалуйста, пересмотрите ваш вопрос и предоставьте дополнительную информацию. lawlist 9 лет назад 0
Как уже говорилось, я использую Aquamacs, и он полностью установлен. Я поместил строку в файл Preferences.el, и это, похоже, частично решило проблему. Теперь я не могу удалить последнюю строку, но все равно могу щелкнуть где-то выше и удалить эти записи. Есть ли дополнительная команда, чтобы отключить это? Спасибо за вашу помощь rte 9 лет назад 0
Я использую следующие настройки, чтобы установить вывод процесса только для чтения - он слишком длинный, чтобы уместиться в один комментарий, поэтому я разбил его на два комментария [** часть первая из двух **]: `(setq comint-use-prompt-regexp t) (defvar my-local-shells '("* tex-shell *" "* shell0 *" "* shell1 *" "* shell2 *" "* shell3 *" "* music *" )) (defvar my-remote-shells '("* snarfed *" "* heaven0 *" "* heaven1 *" "* heaven2 *" "* heaven3 *")) (defvar my-shells (добавить my-local-shells мой-дистанционная скорлупа)) ` lawlist 9 лет назад 0
Это вторая часть - вы * можете * испытать замедление с ** объемными ** выходами [** часть вторая из двух **]: `(defun make-my-shell-output-only-read (text ) (when (member (buffer-name) my-shells) (let * ((ингибировать-только для чтения t) (например, comint-last-output-start) (end (process-mark (get-buffer-process (current) -buffer))))) (или (= (point-min) beg) (get-text-property (1-beg) 'только для чтения) (put-text-property (1-beg) beg' только для чтения 'fence)) (add-text-properties beg end' (только для чтения t front-sticky (только для чтения)))))) (add-hook 'comint-output-filter-functions' make-my-shell- выход-только для чтения) ` lawlist 9 лет назад 0

0 ответов на вопрос

Похожие вопросы