|
@@ -1840,8 +1840,8 @@ When it is nil, all comments will be removed."
|
|
(while (re-search-forward "^[ \t]*|" nil t)
|
|
(while (re-search-forward "^[ \t]*|" nil t)
|
|
(beginning-of-line 1)
|
|
(beginning-of-line 1)
|
|
(if (or (looking-at "[ \t]*| *[!_^] *|")
|
|
(if (or (looking-at "[ \t]*| *[!_^] *|")
|
|
- (and (looking-at ".*?| *<[0-9]+> *|")
|
|
|
|
- (not (looking-at ".*?| *[^ <|]"))))
|
|
|
|
|
|
+ (and (looking-at "[ \t]*|\\( *\\(<[0-9]+>\\|<[rl]>\\|<[rl][0-9]+>\\)? *|\\)+[ \t]*$")
|
|
|
|
+ (not (looking-at ".*?| *[^ <|\n]"))))
|
|
(delete-region (max (point-min) (1- (point-at-bol)))
|
|
(delete-region (max (point-min) (1- (point-at-bol)))
|
|
(point-at-eol))
|
|
(point-at-eol))
|
|
(end-of-line 1))))
|
|
(end-of-line 1))))
|