Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9fbcde29
Commit
9fbcde29
authored
May 13, 2006
by
Lars Hansen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(desktop-save): Use with-temp-buffer.
parent
642c61f3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
38 additions
and
38 deletions
+38
-38
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/desktop.el
lisp/desktop.el
+35
-38
No files found.
lisp/ChangeLog
View file @
9fbcde29
2006-05-13 Lars Hansen <larsh@soem.dk>
* desktop.el (desktop-save): Use with-temp-buffer.
2006-05-12 Glenn Morris <rgm@gnu.org>
* calendar/appt.el (appt-check, appt-make-list): Refer to
...
...
lisp/desktop.el
View file @
9fbcde29
...
...
@@ -763,45 +763,42 @@ See also `desktop-base-file-name'."
(
setq
locals
(
cdr
locals
)))
ll
)))
(
buffer-list
)))
(
eager
desktop-restore-eager
)
(
buf
(
get-buffer-create
"*desktop*"
)))
(
set-buffer
buf
)
(
erase-buffer
)
(
insert
";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n"
desktop-header
";; Created "
(
current-time-string
)
"\n"
";; Desktop file format version "
desktop-file-version
"\n"
";; Emacs version "
emacs-version
"\n\n"
";; Global section:\n"
)
(
mapc
(
function
desktop-outvar
)
desktop-globals-to-save
)
(
if
(
memq
'kill-ring
desktop-globals-to-save
)
(
eager
desktop-restore-eager
))
(
with-temp-buffer
(
insert
"(setq kill-ring-yank-pointer (nthcdr "
(
int-to-string
(
-
(
length
kill-ring
)
(
length
kill-ring-yank-pointer
)))
" kill-ring))\n"
))
(
insert
"\n;; Buffer section -- buffers listed in same order as in buffer list:\n"
)
(
mapc
#'
(
lambda
(
l
)
(
when
(
apply
'desktop-save-buffer-p
l
)
(
insert
"("
(
if
(
or
(
not
(
integerp
eager
))
(
unless
(
zerop
eager
)
(
setq
eager
(
1-
eager
))
t
))
"desktop-create-buffer"
"desktop-append-buffer-args"
)
" "
desktop-file-version
)
(
mapc
#'
(
lambda
(
e
)
(
insert
"\n "
(
desktop-value-to-string
e
)))
l
)
(
insert
")\n\n"
)))
info
)
(
setq
default-directory
dirname
)
(
let
((
coding-system-for-write
'emacs-mule
))
(
write-region
(
point-min
)
(
point-max
)
filename
nil
'nomessage
))))
";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n"
desktop-header
";; Created "
(
current-time-string
)
"\n"
";; Desktop file format version "
desktop-file-version
"\n"
";; Emacs version "
emacs-version
"\n\n"
";; Global section:\n"
)
(
mapc
(
function
desktop-outvar
)
desktop-globals-to-save
)
(
if
(
memq
'kill-ring
desktop-globals-to-save
)
(
insert
"(setq kill-ring-yank-pointer (nthcdr "
(
int-to-string
(
-
(
length
kill-ring
)
(
length
kill-ring-yank-pointer
)))
" kill-ring))\n"
))
(
insert
"\n;; Buffer section -- buffers listed in same order as in buffer list:\n"
)
(
mapc
#'
(
lambda
(
l
)
(
when
(
apply
'desktop-save-buffer-p
l
)
(
insert
"("
(
if
(
or
(
not
(
integerp
eager
))
(
unless
(
zerop
eager
)
(
setq
eager
(
1-
eager
))
t
))
"desktop-create-buffer"
"desktop-append-buffer-args"
)
" "
desktop-file-version
)
(
mapc
#'
(
lambda
(
e
)
(
insert
"\n "
(
desktop-value-to-string
e
)))
l
)
(
insert
")\n\n"
)))
info
)
(
setq
default-directory
dirname
)
(
let
((
coding-system-for-write
'emacs-mule
))
(
write-region
(
point-min
)
(
point-max
)
filename
nil
'nomessage
)))))
(
setq
desktop-dirname
dirname
))
;; ----------------------------------------------------------------------------
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment