Permalink
Browse files

xyzzy.src : fix saving session file.

  • Loading branch information...
1 parent a63fbd6 commit 9c4c452db1927ca02684f6d920690b23fd5118a7 @southly southly committed with mumurik Dec 20, 2011
Showing with 16 additions and 4 deletions.
  1. +12 −0 ChangeLog.txt
  2. +4 −4 lisp/session.l
View
@@ -1,5 +1,17 @@
2011-12-21 NANRI Masaoki <southly@gmail.com>
+ * lisp : fix saving session file.
+ ヒストリファイルと同様にセッションファイルも書き込み時に *print-length*
+ などの影響を受けないよう修正。
+
+ (progn
+ (ed::write-session-file "0ssn.l")
+ (let ((*print-circle* t)
+ (*print-pretty* nil)
+ (*print-length* 1)
+ (*print-level* 1))
+ (ed::write-session-file "1ssn.l")))
+
* lisp : fix saving history-file.
ヒストリファイル書き込み時に *print-length* などの影響を受けるのを修正。
View
@@ -120,9 +120,9 @@
(binfo (list-buffer-info)))
(princ ";;; xyzzy session file.
;;; This file is generated automatically. do not edit.\n" s)
- (write `(in-package ,(package-name *package*)) :stream s :escape t)
+ (write `(in-package ,(package-name *package*)) :stream s :escape t :pretty t :readably t)
(terpri s)
- (write `(restore-session ',binfo ',finfo) :stream s :escape t)
+ (write `(restore-session ',binfo ',finfo) :stream s :escape t :pretty t :readably t)
(terpri s)))
(defun write-session-file (filename)
@@ -273,10 +273,10 @@
(let ((conf (winconf-to-readable-winconf
(current-window-configuration)))
(info (list-buffer-info)))
- (write `(in-package ,(package-name *package*)) :stream s :escape t)
+ (write `(in-package ,(package-name *package*)) :stream s :escape t :pretty t :readably t)
(terpri s)
(write `(ignore-errors (restore-resume-info ',info ',conf))
- :stream s :escape t)
+ :stream s :escape t :pretty t :readably t)
(terpri s))))
(define-key ctl-x-6-map #\f 'load-session)

0 comments on commit 9c4c452

Please sign in to comment.