Sorgen Sie dafür, dass die Befehlszeile in Aquamacs nicht geändert werden kann

346
rte

Ich verwende Aquamacs unter OSX.

Angenommen, ich öffne eine Shell:

M-x-shell 

Ich finde es ärgerlich, dass ich die Rücktaste drücken kann, und die Eingabeaufforderung wird gelöscht

> 

und auch, dass ich Abschnitte der zuvor eingegebenen Befehle in der Befehlszeile löschen kann.

Gibt es eine Möglichkeit, die Befehlszeile nicht bearbeitbar zu machen?

1
In einer früheren Antwort, die entfernt wurde, gab ich an, dass das Setzen der Variablen "comint-prompt-read-only" auf "t" wahrscheinlich den gewünschten Effekt erzielen würde. Sie haben geantwortet, dass Sie keine Vollversion von Emacs installiert haben und `comint.el` herunterladen müssen. Ich kann Sie nicht dabei unterstützen, eine teilweise Installation von Emacs zu erhalten, um korrekt zu funktionieren. Wenn Sie nach der Installation einer Vollversion von Emacs nicht mit `(setq comint-prompt-read-only t`) den gewünschten Effekt erzielen können, überarbeiten Sie Ihre Frage und geben Sie weitere Details an. lawlist vor 9 Jahren 0
Wie gesagt, ich verwende Aquamacs und es ist vollständig installiert. Ich habe die Zeile in die Preferences.el-Datei eingefügt und scheint das Problem teilweise zu lösen. Ich kann die letzte Zeile jetzt nicht löschen, aber ich kann immer noch oben klicken und diese Einträge löschen. Gibt es einen zusätzlichen Befehl, um das zu deaktivieren? danke für Ihre Hilfe rte vor 9 Jahren 0
Ich verwende die folgenden Einstellungen, um die Prozessausgabe als schreibgeschützt festzulegen - es ist zu lang, um in einen Kommentar zu passen, also verbreite ich es über zwei Kommentare [** Teil eins von zwei **]: `(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 (meine lokalen Muscheln anhängen) my-remote-shells)) ` lawlist vor 9 Jahren 0
Dies ist der zweite Teil - Sie * erleben * möglicherweise eine Verlangsamung mit ** voluminösen ** Ausgängen [** Teil zwei von zwei **]: `(defun make-my-shell-output-read-only (text.) (wenn (Member (Buffer-Name) my-Shells) (let * ((inhibit-read-only t) (Beginte-letzte-Ausgabe-Start)) (Ende (Prozessmarke (Get-Buffer-Prozess (aktuell -buffer))))) (oder (= (point-min) beg) (get-text-property (1- beg) 'schreibgeschützt') (put-text-property (1- beg) beg 'schreibgeschützt 'fence)) (add-text-properties begin end' (schreibgeschützt))))))) (add-hook 'comint-output-filter-functions') make-my-shell- Nur-Lese-Ausgabe) ` lawlist vor 9 Jahren 0

0 Antworten auf die Frage