Changeset 4200 for trunk/lisp/desktop.el
- Timestamp:
- 2007年04月07日 15時49分28秒 (2 years ago)
- Files:
-
- trunk/lisp/desktop.el (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/desktop.el
r4196 r4200 783 783 ";; Emacs version " emacs-version "\n\n" 784 784 ";; Global section:\n") 785 (mapc (function desktop-outvar) desktop-globals-to-save)785 (mapcar (function desktop-outvar) desktop-globals-to-save) 786 786 (if (memq 'kill-ring desktop-globals-to-save) 787 787 (insert … … 791 791 792 792 (insert "\n;; Buffer section -- buffers listed in same order as in buffer list:\n") 793 (mapc #'(lambda (l)793 (mapcar #'(lambda (l) 794 794 (when (apply 'desktop-save-buffer-p l) 795 795 (insert "(" … … 802 802 " " 803 803 desktop-file-version) 804 (mapc #'(lambda (e)804 (mapcar #'(lambda (e) 805 805 (insert "\n " (desktop-value-to-string e))) 806 806 l) … … 1046 1046 (auto-fill-mode 0)) 1047 1047 (t 1048 (mapc #'(lambda (minor-mode)1048 (mapcar #'(lambda (minor-mode) 1049 1049 ;; Give minor mode module a chance to add a handler. 1050 1050 (desktop-load-file minor-mode)
