diff options
| author | Mike Williams <mdub@bigfoot.com> | 2002-04-11 21:59:45 +0000 |
|---|---|---|
| committer | Mike Williams <mdub@bigfoot.com> | 2002-04-11 21:59:45 +0000 |
| commit | 2871b07a8940301a85d266008daee5b8bf28198a (patch) | |
| tree | 8baf18af088eaa7aca6d12c56cddde7564b3b1d1 /lisp | |
| parent | 851476d4ab677cf88859ea959a49e626a2e86192 (diff) | |
| download | emacs-2871b07a8940301a85d266008daee5b8bf28198a.tar.gz emacs-2871b07a8940301a85d266008daee5b8bf28198a.tar.bz2 emacs-2871b07a8940301a85d266008daee5b8bf28198a.zip | |
(sgml-guess-indent): New function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 21 |
2 files changed, 22 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ff6ad3b4795..82eff1a7346 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-04-12 Mike Williams <mdub@bigfoot.com> + + * textmodes/sgml-mode.el (sgml-guess-indent): New function. + 2002-04-11 Pavel Jan,Bm(Bk <Pavel@Janik.cz> * menu-bar.el (menu-bar-adv-search-menu): Add incremental search. diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 9df19cc1180..2a410554de6 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -889,7 +889,7 @@ If nil, start from a preceding tag at indentation." (unless (search-forward "]]>" pos 'move) (list 0 nil nil 'cdata nil nil nil nil cdata-start)))) (t - ;; We've reached a tag. Parse it. + ;; We've reached a tag. Parse it. ;; FIXME: Handle net-enabling start-tags (parse-partial-sexp (point) pos 0)))))) (cond @@ -1031,7 +1031,7 @@ immediately enclosing the current position." ;; enclosing start-tags we'll have to ignore. (skip-chars-backward " \t\n") ; Make sure we're not at indentation. (while - (and (or ignore + (and (or ignore (not (if full (eq full 'empty) context)) (not (sgml-at-indentation-p)) (and context @@ -1104,7 +1104,7 @@ If FULL is non-nil, parse back to the beginning of the buffer." (text (let ((context (save-excursion (sgml-get-context)))) (if context - (progn + (progn (insert "</" (sgml-tag-name (car (last context))) ">") (indent-according-to-mode))))) (otherwise @@ -1227,6 +1227,21 @@ If FULL is non-nil, parse back to the beginning of the buffer." (save-excursion (indent-line-to indent-col)) (indent-line-to indent-col)))) +(defun sgml-guess-indent () + "Guess an appropriate value for `sgml-basic-offset'. +Base the guessed identation level on the first indented tag in the buffer. +Add this to `sgml-mode-hook' for convenience." + (interactive) + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^\\([ \t]+\\)<" 100 'noerror) + (progn + (set (make-local-variable 'sgml-basic-offset) + (length (match-string 1))) + (message "Guessed sgml-basic-offset = %d" + sgml-basic-offset) + )))) + (defun sgml-parse-dtd () "Simplistic parse of the current buffer as a DTD. Currently just returns (EMPTY-TAGS UNCLOSED-TAGS)." |