|
@@ -507,12 +507,9 @@ frame. If a frame was created it returns `FRAME'."
|
|
|
"Use `edit-server-url-major-mode-alist' to choose a major mode
|
|
|
initialization function based on `edit-server-url', or fall back
|
|
|
to `edit-server-default-major-mode'"
|
|
|
- (let ((mode
|
|
|
- (assoc-default
|
|
|
- edit-server-url
|
|
|
- edit-server-url-major-mode-alist 'string-match)))
|
|
|
- (when mode
|
|
|
- (funcall mode))))
|
|
|
+ (funcall (or (assoc-default edit-server-url
|
|
|
+ edit-server-url-major-mode-alist 'string-match)
|
|
|
+ edit-server-default-major-mode)))
|
|
|
|
|
|
(defun edit-server-find-or-create-edit-buffer (proc &optional existing)
|
|
|
"Find and existing or create an new edit buffer, place content in it
|