Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
49bbf1b9
Commit
49bbf1b9
authored
Jul 22, 2007
by
Reiner Steib
Browse files
(reftex-access-parse-file): Do not risk destroying an existing buffer.
parent
af849acd
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
6 deletions
+7
-6
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/textmodes/reftex.el
lisp/textmodes/reftex.el
+2
-6
No files found.
lisp/ChangeLog
View file @
49bbf1b9
2007-07-22 Ralf Angeli <angeli@caeruleus.net>
* textmodes/reftex.el (reftex-access-parse-file): Do not risk
destroying an existing buffer.
2007-07-22 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* startup.el (command-line-x-option-alist): Use x-handle-no-bitmap-icon.
lisp/textmodes/reftex.el
View file @
49bbf1b9
...
...
@@ -1331,10 +1331,8 @@ Valid actions are: readable, restore, read, kill, write."
(
put
docstruct-symbol
'modified
nil
)
(
save-excursion
(
if
(
file-writable-p
file
)
(
progn
(
with-temp-file
file
(
message
"Writing parse file %s"
(
abbreviate-file-name
file
))
(
set-buffer
(
get-buffer-create
file
))
(
erase-buffer
)
(
insert
(
format
";; RefTeX parse info file\n"
))
(
insert
(
format
";; File: %s\n"
master
))
(
insert
(
format
";; User: %s (%s)\n\n"
...
...
@@ -1357,9 +1355,7 @@ Valid actions are: readable, restore, read, kill, write."
)
(
t
(
print
x
))))
list
))
(
insert
"))\n\n"
)
(
write-region
(
point-min
)
(
point-max
)
file
nil
'silent
)
(
kill-buffer
(
current-buffer
)))
(
insert
"))\n\n"
))
(
error
"Cannot write to file %s"
file
)))
t
))))
...
...
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