]> code.delx.au - gnu-emacs/blobdiff - lisp/textmodes/reftex-cite.el
Better full-screen frame support on MS-Windows.
[gnu-emacs] / lisp / textmodes / reftex-cite.el
index 079101b56ee9b1eb2bfa16962eb4d2edc161d0c4..ca29709de2e2ab01f024cb94c54dd27f240dd0bc 100644 (file)
           ;; remove extra whitespace
           (while (string-match "[\n\t\r]\\|[ \t][ \t]+" field)
             (setq field (replace-match " " nil t field)))
-          ;; remove leading garbage
-          (if (string-match (if raw "^[ \t]+" "^[ \t{]+") field)
-              (setq field (replace-match "" nil t field)))
-          ;; remove trailing garbage
-          (if (string-match (if raw "[ \t]+$" "[ \t}]+$") field)
-              (setq field (replace-match "" nil t field)))
           (push (cons key field) alist))))
     alist))