+2004-11-11 Juri Linkov <juri@jurta.org>
+
+ * info.el (Info-search): Save match data for isearch.
+ Skip Tag Table node.
+
+ * descr-text.el (describe-char): Replace syntax-after with code
+ from its previous version.
+
+ * files.el (magic-mode-alist): Use optimization for SGML mode too.
+ (set-auto-mode): Doc fix. Remove unused variable `xml'.
+
+ * international/mule.el (sgml-html-meta-auto-coding-function):
+ Remove > after <html to allow HTML attributes.
+
2004-11-11 Jay Belanger <belanger@truman.edu>
* calc/calc-comb.el (math-prime-factors-finished): Declared it as
(1- (point)))
(point-max)))
(while (and (not give-up)
- (or (null found)
- (if backward
- (isearch-range-invisible found beg-found)
- (isearch-range-invisible beg-found found))
- ;; Skip node header line
- (save-excursion (forward-line -1)
- (looking-at "\^_"))))
+ (save-match-data
+ (or (null found)
+ (if backward
+ (isearch-range-invisible found beg-found)
+ (isearch-range-invisible beg-found found))
+ ;; Skip node header line
+ (save-excursion (forward-line -1)
+ (looking-at "\^_"))
+ ;; Skip Tag Table node
+ (save-excursion
+ (and (search-backward "\^_" nil t)
+ (looking-at "\^_\nTag Table"))))))
(if (if backward
(re-search-backward regexp bound t)
(re-search-forward regexp bound t))
(setq list (cdr list))
(setq give-up nil found nil)
(while (and (not give-up)
- (or (null found)
- (if backward
- (isearch-range-invisible found beg-found)
- (isearch-range-invisible beg-found found))
- ;; Skip node header line
- (save-excursion (forward-line -1)
- (looking-at "\^_"))))
+ (save-match-data
+ (or (null found)
+ (if backward
+ (isearch-range-invisible found beg-found)
+ (isearch-range-invisible beg-found found))
+ ;; Skip node header line
+ (save-excursion (forward-line -1)
+ (looking-at "\^_"))
+ ;; Skip Tag Table node
+ (save-excursion
+ (and (search-backward "\^_" nil t)
+ (looking-at "\^_\nTag Table"))))))
(if (if backward
(re-search-backward regexp nil t)
(re-search-forward regexp nil t))
projects / emacs.git / commitdiff