[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/style/psfig.el,v
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/style/psfig.el,v |
Date: |
Sun, 25 May 2008 06:50:40 +0000 |
CVSROOT: /cvsroot/auctex
Module name: auctex
Changes by: Ralf Angeli <angeli> 08/05/25 06:50:33
Index: style/psfig.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/psfig.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- style/psfig.el 3 Jun 1994 04:49:35 -0000 1.3
+++ style/psfig.el 25 May 2008 06:50:33 -0000 1.4
@@ -25,8 +25,8 @@
(defun TeX-arg-psfig (optional)
"Ask for file, width and length. Insert psfig macro"
(let ((psfile (read-file-name "PS-file: " "" "" nil))
- (figwidth (read-input "Figure width: "))
- (figheight (read-input "Figure height: "))
+ (figwidth (read-string "Figure width: "))
+ (figheight (read-string "Figure height: "))
)
(insert TeX-grop "figure=" psfile)
@@ -41,13 +41,13 @@
(defun LaTeX-env-psfigure (environment)
"Create with \\label and \\caption and \\psfig commands."
- (let ((float (read-input "Float to: " LaTeX-float))
- (caption (read-input "Caption: "))
- (label (read-input "Label: " LaTeX-figure-label))
+ (let ((float (read-string "Float to: " LaTeX-float))
+ (caption (read-string "Caption: "))
+ (label (read-string "Label: " LaTeX-figure-label))
; gf: ask if this should be centered
(psfile (read-file-name "PS-file: " "" "" nil))
- (figwidth (read-input "Figure width: "))
- (figheight (read-input "Figure height: "))
+ (figwidth (read-string "Figure width: "))
+ (figheight (read-string "Figure height: "))
)
(setq LaTeX-float (if (zerop (length float))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to auctex/style/psfig.el,v,
Ralf Angeli <=