diff --git a/.emacs.el b/.emacs.el index bdd4404..3d39e09 100644 --- a/.emacs.el +++ b/.emacs.el @@ -778,7 +778,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (defun my-frame-buffer-add () "" (setq my-frame-buffer-plist - (plist-put 'my-frame-buffer-plist + (plist-put my-frame-buffer-plist (selected-frame) (let ((lst (my-frame-buffer-get))) (if lst @@ -789,14 +789,14 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (defun my-frame-buffer-remove () "" (setq my-frame-buffer-plist - (plist-put 'my-frame-buffer-plist + (plist-put my-frame-buffer-plist (selected-frame) (delq (current-buffer) (my-frame-buffer-get))))) (defun my-frame-buffer-get (&optional frame) "" - (plist-get 'my-frame-buffer-plist + (plist-get my-frame-buffer-plist (or frame (selected-frame)))) @@ -1730,12 +1730,12 @@ when SEC is nil, stop auto save if enabled." (defun my-execute-or-find-term () "" (interactive) - (let* ((buf (plist-get 'my-frame-term-plist (selected-frame)))) + (let* ((buf (plist-get my-frame-term-plist (selected-frame)))) (if (and buf (buffer-name buf)) (switch-to-buffer buf) - (setq my-frame-ter-plist - (plist-put 'my-frame-term-plist + (setq my-frame-term-plist + (plist-put my-frame-term-plist (selected-frame) (my-term))))))