新的框架與草稿（文字模式） - 關閉，但沒有雪茄。 。

Question

以下代碼僅在基本模式下生成新緩衝區，並且我還無法弄清楚如何讓新的暫存緩衝區以文本模式自動生成。 。 。任何幫助將不勝感激。

(setq initial-major-mode 'text-mode) 

(defun new-frame-with-scratch() 
    "Open a new frame with scratch buffer selected" 
    (interactive) 
    (let ((frame (make-frame))) 
    (select-frame-set-input-focus frame) 
    (if (get-buffer-create "*lawlist*") 
     (switch-to-buffer "*lawlist*" 'norecord)))) 

Answer 1

initial-major-mode創建初始*scratch*緩衝區時才使用，所以我認爲它不會幫助你。你必須在你的新創建*lawlist*緩衝明確地改變模式：

(defun new-frame-with-scratch() 
    "Open a new frame with scratch buffer selected" 
    (interactive) 
    (let ((frame (make-frame)) 
     (scratch-name "*lawlist*")) 
    (select-frame-set-input-focus frame) 
    (unless (get-buffer scratch-name) 
     (with-current-buffer (get-buffer-create scratch-name) 
     (text-mode))) 
    (switch-to-buffer scratch-name 'norecord))) 

的邏輯可以變得更簡單，如果你想你的*lawlist*緩衝每次new-frame-with-scratch被稱爲unconditionnally設置爲text-mode。

Answer 2

你可以簡單地刪除您(if (get-buffer-create "*lawlist*")因爲switch-to-buffer將創建緩衝區，如果不存在它，如果它創建它，然後調用set-buffer-major-mode。但請注意initial-major-mode只適用於名爲*scratch*的緩衝區，您應該改爲(setq-default major-mode 'text-mode)。比較容易的是明確地調用你想要的主要模式，就像Francesco提出的解決方案一樣。