/[emacs]/emacs/lisp/textmodes/reftex-cite.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/reftex-cite.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by miles, Sun Jan 16 02:37:50 2005 UTC revision 1.25 by cdominik, Mon Feb 14 12:12:04 2005 UTC
# Line 679  While entering the regexp, completion on Line 679  While entering the regexp, completion on
679                (setq start (1+ start)))))                (setq start (1+ start)))))
680          ;; Should we cleanup empty optional arguments?          ;; Should we cleanup empty optional arguments?
681          ;; if the first is empty, it can be removed.  If the second is empty,          ;; if the first is empty, it can be removed.  If the second is empty,
682          ;; it has to go.          ;; it has to go.  If there is only a single arg and empty, it can go
683            ;; as well.
684          (when reftex-cite-cleanup-optional-args          (when reftex-cite-cleanup-optional-args
685            (cond            (cond
686               ((string-match "\\([a-zA-Z0-9]\\)\\[\\]{" string)
687                (setq string (replace-match "\\1{" nil nil string)))
688             ((string-match "\\[\\]\\(\\[[a-zA-Z0-9., ]+\\]\\)" string)             ((string-match "\\[\\]\\(\\[[a-zA-Z0-9., ]+\\]\\)" string)
689              (setq string (replace-match "\\1" nil nil string)))              (setq string (replace-match "\\1" nil nil string)))
690             ((string-match "\\[\\]\\[\\]" string)             ((string-match "\\[\\]\\[\\]" string)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26