|
@@ -1101,9 +1101,9 @@ links, keywords, lists, tables, fixed-width"
|
|
'(("\\(\\s-\\)\"" "«~")
|
|
'(("\\(\\s-\\)\"" "«~")
|
|
("\\(\\S-\\)\"" "~»")
|
|
("\\(\\S-\\)\"" "~»")
|
|
("\\(\\s-\\)'" "`"))
|
|
("\\(\\s-\\)'" "`"))
|
|
- '(("\\(\\s-\\)\"" "``")
|
|
|
|
|
|
+ '(("\\(\\s-\\|(\\)\"" "``")
|
|
("\\(\\S-\\)\"" "''")
|
|
("\\(\\S-\\)\"" "''")
|
|
- ("\\(\\s-\\)'" "`")))))
|
|
|
|
|
|
+ ("\\(\\s-\\|(\\)'" "`")))))
|
|
(mapc (lambda(l) (goto-char (point-min))
|
|
(mapc (lambda(l) (goto-char (point-min))
|
|
(while (re-search-forward (car l) nil t)
|
|
(while (re-search-forward (car l) nil t)
|
|
(let ((rpl (concat (match-string 1) (cadr l))))
|
|
(let ((rpl (concat (match-string 1) (cadr l))))
|