summaryrefslogtreecommitdiff
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2007-07-24 01:23:55 +0000
committerMiles Bader <miles@gnu.org>2007-07-24 01:23:55 +0000
commit40f9398cdba874aa72fd1828534110caa34702be (patch)
treeba7af35a2e0a913ccb78095d130ec695e6bfeb97 /lisp/textmodes
parent22110b82771c73e38e4c637b90c5d01da3671c24 (diff)
parentccb0797a191047816dae47b2e0e7e751027bd0e8 (diff)
downloademacs-unicode-xft-base.tar.gz
Merge from emacs--devo--0unicode-xft-base
Patches applied: * emacs--devo--0 (patch 816-823) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 59-69) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 237-238) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-235
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/reftex.el8
-rw-r--r--lisp/textmodes/tex-mode.el6
2 files changed, 5 insertions, 9 deletions
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 343a7c5a947..200d271d631 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -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))
- (find-file 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")
- (save-buffer 0)
- (kill-buffer (current-buffer)))
+ (insert "))\n\n"))
(error "Cannot write to file %s" file)))
t))))
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index eb1429b41e5..748680ab8f7 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -249,7 +249,7 @@ Normally set to either `plain-tex-mode' or `latex-mode'."
:group 'tex)
(put 'tex-fontify-script 'safe-local-variable 'booleanp)
-(defcustom tex-font-script-display '(-0.3 . 0.3)
+(defcustom tex-font-script-display '(-0.2 . 0.2)
"Display specification for subscript and superscript content.
The car is used for subscript, the cdr is used for superscripts."
:group 'tex
@@ -675,11 +675,11 @@ An alternative value is \" . \", if you use a font with a narrow period."
(setq beg next))))
(defface superscript
- '((t :height 0.8)) ;; :raise 0.3
+ '((t :height 0.8)) ;; :raise 0.2
"Face used for superscripts."
:group 'tex)
(defface subscript
- '((t :height 0.8)) ;; :raise -0.3
+ '((t :height 0.8)) ;; :raise -0.2
"Face used for subscripts."
:group 'tex)