+ (goto-char (point-min))
+ (while (re-search-forward "@ref{\\([^}]*\\)}" nil t)
+ (let ((str (buffer-substring (match-beginning 1)(match-end 1))))
+ (replace-match
+ (if (string= str "")
+ ""
+ (concat "@ref{"
+ (mapconcat (function (lambda (chr)
+ (if (eq chr ?\n)
+ " "
+ (char-to-string chr)
+ )))
+ str "")
+ "}")) 'fixed-case)
+ ))
+ (goto-char (point-min))
+ (while (re-search-forward "@strong{\\([^}]*\\)}" nil t)
+ (let ((str (buffer-substring (match-beginning 1)(match-end 1))))
+ (replace-match
+ (if (string= str "")
+ ""
+ (concat "@strong{"
+ (mapconcat (function (lambda (chr)
+ (if (eq chr ?\n)
+ " "
+ (char-to-string chr)
+ )))
+ str "")
+ "}")
+ ))))