Index: auctex/latex.el
diff -u auctex/latex.el:5.365 auctex/latex.el:5.366
--- auctex/latex.el:5.365 Sat Apr 30 22:43:59 2005
+++ auctex/latex.el Wed May 11 14:41:26 2005
@@ -1208,19 +1208,16 @@
;; FIXME: Parse key=value options like "pdftitle={A Perfect
;; Day},colorlinks=false" correctly. When this works, the
;; check for "=" can be removed again.
- (setq options (unless (string-match "=" options)
- (TeX-split-string
- "\\([ \t\r\n]\\|%[^\n\r]*[\n\r]\\|,\\)+"
- options)))
-
- ;; Strip empty options.
- (if (string-equal (car options) "")
- (setq options (cdr options)))
- (let ((index options))
- (while (cdr-safe index)
- (if (string-equal (car (cdr index)) "")
- (setcdr index (cdr (cdr index)))
- (setq index (cdr index)))))
+ (setq options
+ (let (opts)
+ (dolist (elt (TeX-split-string "\\(,\\|%[^\n\r]*[\n\r]\\)+"
+ options))
+ (unless (string-match "=" elt)
+ ;; Strip whitespace.
+ (dolist (item (TeX-split-string "[ \t\r\n]+" elt))
+ (unless (string= item "")
+ (add-to-list 'opts item)))))
+ opts))
;; Add them, to the style list.
(dolist (elt options)
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
