fix a bug in switching edit buffer to org mode.

master
zbelial 6 years ago
parent 6b25182fd6
commit a15aef0e67
  1. 20
      eaf.el

@ -2037,12 +2037,16 @@ Make sure that your smartphone is connected to the same WiFi network as this com
(defun eaf-edit-buffer-switch-to-org-mode ()
"Switch to org-mode to edit table handly."
(interactive)
(org-mode)
(outline-show-all)
(beginning-of-buffer)
(local-set-key (kbd "C-c C-c") 'eaf-edit-buffer-confirm)
(local-set-key (kbd "C-c C-k") 'eaf-edit-buffer-cancel)
(eaf--edit-set-header-line))
(let ((buffer-app-name eaf--buffer-app-name)
(buffer-id eaf--buffer-id))
(org-mode)
(set (make-local-variable 'eaf--buffer-app-name) buffer-app-name)
(set (make-local-variable 'eaf--buffer-id) buffer-id)
(outline-show-all)
(beginning-of-buffer)
(local-set-key (kbd "C-c C-c") 'eaf-edit-buffer-confirm)
(local-set-key (kbd "C-c C-k") 'eaf-edit-buffer-cancel)
(eaf--edit-set-header-line)))
(defun eaf-create-mindmap ()
"Create a new Mindmap file."
@ -2088,9 +2092,11 @@ Make sure that your smartphone is connected to the same WiFi network as this com
"EAF Browser: edit FOCUS-TEXT with Emacs's BUFFER-ID."
(split-window-below -10)
(other-window 1)
(let ((edit-text-buffer (generate-new-buffer (format "eaf-%s-edit-focus-text" eaf--buffer-app-name))))
(let ((edit-text-buffer (generate-new-buffer (format "eaf-%s-edit-focus-text" eaf--buffer-app-name)))
(buffer-app-name eaf--buffer-app-name))
(with-current-buffer edit-text-buffer
(eaf-edit-mode)
(set (make-local-variable 'eaf--buffer-app-name) buffer-app-name)
(set (make-local-variable 'eaf--buffer-id) buffer-id))
(switch-to-buffer edit-text-buffer)
(setq-local eaf-mindmap--current-add-mode "")

Loading…
Cancel
Save