Browse Source

use plist as value of variable

pull/1/head
10sr 13 years ago
parent
commit
9f2ce43e1a
1 changed files with 29 additions and 21 deletions
  1. +29
    -21
      .emacs.el

+ 29
- 21
.emacs.el View File

@@ -717,7 +717,8 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(add-hook (kill-local-variable 'before-save-hook)
'js2-before-save)))

(and (require 'zone nil t)
(and nil
(require 'zone nil t)
(not (eq system-type 'windows-nt))
;; (zone-when-idle 180)
(run-with-idle-timer 180 t (lambda ()
@@ -769,31 +770,37 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
;; (lambda (frame)
;; (recentf-open-files)))

;; (defvar aaa nil)
;; (plist-get aaa 'abc)
;; (setq aaa (plist-put aaa 'abc 'efg))

(defvar my-frame-buffer-plist nil)
(setplist my-frame-buffer-plist nil)
;; (setplist my-frame-buffer-plist nil)

(defun my-frame-buffer-add ()
""
(put 'my-frame-buffer-plist
(selected-frame)
(let ((lst (my-frame-buffer-get)))
(if lst
(add-to-list 'lst
(current-buffer))
(list (current-buffer))))))
(setq my-frame-buffer-plist
(plist-put 'my-frame-buffer-plist
(selected-frame)
(let ((lst (my-frame-buffer-get)))
(if lst
(add-to-list 'lst
(current-buffer))
(list (current-buffer)))))))

(defun my-frame-buffer-remove ()
""
(put 'my-frame-buffer-plist
(selected-frame)
(delq (current-buffer)
(my-frame-buffer-get))))
(setq 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)
""
(get 'my-frame-buffer-plist
(or frame
(selected-frame))))
(plist-get 'my-frame-buffer-plist
(or frame
(selected-frame))))

(defun my-frame-buffer-get2 (&optional frame)
""
@@ -1718,17 +1725,18 @@ when SEC is nil, stop auto save if enabled."
(ansi-term "/bin/bash"))))

(defvar my-frame-term-plist nil)
(setplist my-frame-term-plist nil)
;; (setplist my-frame-term-plist nil)
(defun my-execute-or-find-term ()
""
(interactive)
(let* ((buf (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)
(put 'my-frame-term-plist
(selected-frame)
(my-term)))))
(setq my-frame-ter-plist
(plist-put 'my-frame-term-plist
(selected-frame)
(my-term))))))

(defun my-format-time-string (&optional time)
""


Loading…
Cancel
Save