Mercurial > emacs
diff lisp/textmodes/xml-lite.el @ 44284:f259c3857fea
Remove redundant remains of xml-lite-mode.
author | Mike Williams <mdub@bigfoot.com> |
---|---|
date | Mon, 01 Apr 2002 11:00:33 +0000 |
parents | c3ee131a3ab1 |
children | 52b704431b5d |
line wrap: on
line diff
--- a/lisp/textmodes/xml-lite.el Mon Apr 01 10:23:37 2002 +0000 +++ b/lisp/textmodes/xml-lite.el Mon Apr 01 11:00:33 2002 +0000 @@ -43,49 +43,6 @@ (require 'sgml-mode) -;; Variables - -(defgroup xml-lite nil - "Customizable variables for XML-Lite mode." - :group 'languages - ) - -(defcustom xml-lite-basic-offset 2 - "*Specifies the basic indentation level for `xml-lite-indent-line'." - :type 'integer - :group 'xml-lite - ) - -(defcustom xml-lite-electric-slash 'close - "*If non-nil, inserting a '/' after a '<' behaves electrically. -If set to `indent', typing '</' just triggers reindentation. -If set to `close', typing '</' inserts an end-tag for the -enclosing XML element." - :type '(choice (const :tag "Indent" indent) - - (const :tag "Close" close) - (const :tag "No" nil)) - - :group 'xml-lite - ) - -(defcustom xml-lite-mode-line-string " XML" - "*String to display in the modeline when `xml-lite-mode' is active. -Set this to nil if you don't want a modeline indicator for xml-lite-mode." - :type 'string - :group 'xml-lite) - -(defcustom xml-lite-mode-hook nil - "*Hook called by `xml-lite-mode'." - :type 'hook - :group 'xml-lite) - -;;;###autoload -(defvar xml-lite-mode nil - "Non-nil if `xml-lite-mode' is enabled.") -(make-variable-buffer-local 'xml-lite-mode) - - ;; Syntax analysis (defsubst xml-lite-at-indentation-p () @@ -94,15 +51,6 @@ (skip-chars-backward " \t") (bolp))) -(defun xml-lite-in-string-p (&optional limit) - "Determine whether point is inside a string. If it is, return the -position of the character starting the string, else return nil. - -Parse begins from LIMIT, which defaults to the preceding occurence of a tag -at the beginning of a line." - (let ((context (sgml-lexical-context limit))) - (if (eq (car context) 'string) (cdr context)))) - ;; Parsing (defstruct (xml-lite-tag @@ -222,7 +170,8 @@ ;; enclosing start-tags we'll have to ignore. (skip-chars-backward " \t\n") ; Make sure we're not at indentation. (while - (and (or ignore (not (if full (eq full 'empty) context)) + (and (or ignore + (not (if full (eq full 'empty) context)) (not (xml-lite-at-indentation-p)) (and (not sgml-xml-mode) context (/= (point) (xml-lite-tag-start (car context))) @@ -233,9 +182,9 @@ ;; This tag may enclose things we thought were tags. If so, ;; discard them. (while (and context - (> (xml-lite-tag-end tag-info) - (xml-lite-tag-end (car context)))) - (setq context (cdr context))) + (> (xml-lite-tag-end tag-info) + (xml-lite-tag-end (car context)))) + (setq context (cdr context))) (cond @@ -289,9 +238,6 @@ (pp (save-excursion (xml-lite-get-context full))))) -;; Indenting - - ;; Editing shortcuts (defun xml-lite-insert-end-tag () @@ -340,43 +286,6 @@ (t (insert-char ?/ arg)))) - -;; Keymap - -(defvar xml-lite-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\C-c/" 'xml-lite-insert-end-tag) - (define-key map "\C-c\C-s" 'xml-lite-show-context) - (define-key map "/" 'xml-lite-slash) - map) - "Key bindings for `xml-lite-mode'.") - - -;; Minor mode - -;;;###autoload -(define-minor-mode xml-lite-mode - "Toggle `xml-lite-mode'. -With ARG, enable xml-lite-mode if and only if ARG is positive. - -xml-lite-mode provides indentation for XML tags. The value of -`xml-lite-basic-offset' determines the amount of indentation. - -Key bindings: -\\{xml-lite-mode-map}" - nil ; initial value - " XML" ; mode indicator - 'xml-lite-mode-map ; keymap - (if xml-lite-mode - (progn - (if (eq major-mode 'fundamental-mode) (sgml-mode)) - (set (make-local-variable 'sgml-xml-mode) t) - (set (make-local-variable 'xml-lite-orig-indent-line-function) - indent-line-function) - (set (make-local-variable 'indent-line-function) 'sgml-indent-line)) - (kill-local-variable 'sgml-xml-mode) - (setq indent-line-function xml-lite-orig-indent-line-function))) - (provide 'xml-lite) ;;; xml-lite.el ends here