Index: psgml-debug.el =================================================================== RCS file: /home/kuriyama/.mycvs/psgml/psgml-debug.el,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -r1.1.1.1 -r1.2 --- psgml-debug.el 15 Oct 2004 03:05:57 -0000 1.1.1.1 +++ psgml-debug.el 15 Oct 2004 03:11:31 -0000 1.2 @@ -14,9 +14,9 @@ ;;;; Debugging -(define-key sgml-mode-map "\C-c," 'sgml-goto-cache) -(define-key sgml-mode-map "\C-c\C-x" 'sgml-dump-tree) -(define-key sgml-mode-map "\C-c." 'sgml-shortref-identify) +(define-key psgml-mode-map "\C-c," 'sgml-goto-cache) +(define-key psgml-mode-map "\C-c\C-x" 'sgml-dump-tree) +(define-key psgml-mode-map "\C-c." 'sgml-shortref-identify) (defun sgml-this-element () (interactive) @@ -459,7 +459,7 @@ (autoload 'sgml-princ-names "psgml-info") (autoload 'sgml-eltype-refrenced-elements "psgml-info") -(define-key sgml-mode-map "\C-c\C-t" 'sgml-show-current-element-type) +(define-key psgml-mode-map "\C-c\C-t" 'sgml-show-current-element-type) (defun sgml-show-current-element-type () (interactive) @@ -599,7 +599,7 @@ (let ((sgml-psgml-pi-enable-outside-dtd t)) (sgml-parse-to-here))) -(define-key sgml-mode-map "\e\C-x" 'sgml-eval-psgml-pi) +(define-key psgml-mode-map "\e\C-x" 'sgml-eval-psgml-pi) (defun sgml--pi-element-handler () (sgml-skip-ps) @@ -704,7 +704,7 @@ ;;;; New Right Button Menu -(define-key sgml-mode-map [S-mouse-3] 'sgml-right-menu) +(define-key psgml-mode-map [S-mouse-3] 'sgml-right-menu) (defun sgml-right-menu (event) "Pop up a menu with valid tags and insert the choosen tag. Index: psgml-edit.el =================================================================== RCS file: /home/kuriyama/.mycvs/psgml/psgml-edit.el,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -r1.1.1.1 -r1.2 --- psgml-edit.el 15 Oct 2004 03:05:57 -0000 1.1.1.1 +++ psgml-edit.el 15 Oct 2004 03:11:31 -0000 1.2 @@ -1829,7 +1829,7 @@ (sgml-entity-type entity) (sgml-entity-name entity))) (goto-char (point-min)) - (sgml-mode) + (psgml-mode) (setq sgml-parent-document (cons parent ppos)) ;; update the live element indicator of the new window (sgml-parse-to-here))) @@ -2027,7 +2027,7 @@ (message "%s" (mapconcat #'sgml-general-insert-case gis "\\")))) -(define-key sgml-mode-map "\C-c\C-y" 'sgml-position) +(define-key psgml-mode-map "\C-c\C-y" 'sgml-position) (defun sgml--add-before-p (tok state child) Index: psgml-lucid.el =================================================================== RCS file: /home/kuriyama/.mycvs/psgml/psgml-lucid.el,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -r1.1.1.1 -r1.2 --- psgml-lucid.el 15 Oct 2004 03:05:57 -0000 1.1.1.1 +++ psgml-lucid.el 15 Oct 2004 03:11:31 -0000 1.2 @@ -157,7 +157,7 @@ ;;;; Key definitions -(define-key sgml-mode-map [button3] 'sgml-tags-menu) +(define-key psgml-mode-map [button3] 'sgml-tags-menu) ;;;; Insert with properties Index: psgml-other.el =================================================================== RCS file: /home/kuriyama/.mycvs/psgml/psgml-other.el,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -r1.1.1.1 -r1.2 --- psgml-other.el 15 Oct 2004 03:05:57 -0000 1.1.1.1 +++ psgml-other.el 15 Oct 2004 03:11:31 -0000 1.2 @@ -40,9 +40,9 @@ ;;;; Key Commands ;; Doesn't this work in Lucid? *** -(define-key sgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) +(define-key psgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) -(define-key sgml-mode-map [S-mouse-3] 'sgml-tags-menu) +(define-key psgml-mode-map [S-mouse-3] 'sgml-tags-menu) ;;;; Pop Up Menus @@ -125,8 +125,8 @@ (buffer-undo-list t) (deactivate-mark nil)) (put-text-property start end 'face face) - (when (< start end) - (put-text-property (1- end) end 'rear-nonsticky '(face))))) + (when (and (not modified) (buffer-modified-p)) + (set-buffer-modified-p nil)))) (t (let ((current (overlays-at start)) (pos start) Index: psgml-parse.el =================================================================== RCS file: /home/kuriyama/.mycvs/psgml/psgml-parse.el,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -r1.1.1.1 -r1.2 --- psgml-parse.el 15 Oct 2004 03:05:57 -0000 1.1.1.1 +++ psgml-parse.el 15 Oct 2004 03:11:31 -0000 1.2 @@ -37,7 +37,6 @@ (autoload 'sgml-do-usemap-element "psgml-dtd") (autoload 'sgml-write-dtd "psgml-dtd") (autoload 'sgml-check-dtd-subset "psgml-dtd") ) - (eval-when-compile (require 'cl)) @@ -1548,7 +1547,7 @@ (and (not (eobp)) (sgml-startnm-char (following-char)))) -(defun sgml-name-char (c) +(defun psgml-name-char (c) (and c (or (sgml-startnm-char c) (eq ?_ (char-syntax c))))) @@ -1673,7 +1672,7 @@ (defun sgml-parse-nametoken (&optional entity-name) "Parses a name token and returns a string or nil if no nametoken." - (if (sgml-name-char (following-char)) + (if (psgml-name-char (following-char)) (let ((name (buffer-substring-no-properties (point) (progn (skip-syntax-forward "w_") Index: psgml.el =================================================================== RCS file: /home/kuriyama/.mycvs/psgml/psgml.el,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -r1.1.1.1 -r1.2 --- psgml.el 15 Oct 2004 03:05:57 -0000 1.1.1.1 +++ psgml.el 15 Oct 2004 03:11:31 -0000 1.2 @@ -165,7 +165,7 @@ (put 'sgml-auto-activate-dtd 'sgml-desc "Auto Activate DTD") (defvar sgml-offer-save t - "*If non-nil, ask about saving modified buffers before \\[sgml-validate] is run.") + "*If non-nil, ask about saving modified buffers before \\[psgml-validate] is run.") (defvar sgml-parent-document nil "* Used when the current file is part of a bigger document. @@ -391,7 +391,7 @@ (defvar sgml-default-dtd-file nil "*This is the default file name for saved DTD. -This is set by sgml-mode from the buffer file name. +This is set by psgml-mode from the buffer file name. Can be changed in the Local variables section of the file.") (put 'sgml-default-dtd-file 'sgml-type 'string) (put 'sgml-default-dtd-file 'sgml-desc "Default (saved) DTD File") @@ -457,7 +457,7 @@ ;;; Its error messages can be parsed by next-error. ;;; The -s option suppresses output. -(defvar sgml-validate-command "nsgmls -s %s %s" +(defvar psgml-validate-command "nsgmls -s %s %s" "*The shell command to validate an SGML document. This is a `format' control string that by default should contain two @@ -469,7 +469,7 @@ If `sgml-validate-files' is non-nil, the format string should contain one `%s' conversion specification for each element of its result. -If sgml-validate-command is a list, then every element should be a +If psgml-validate-command is a list, then every element should be a string. The strings will be tried in order and %-sequences in the string will be replaced according to the list below, if the string contains %-sequences with no replacement value the next string will be tried. @@ -478,14 +478,14 @@ %s means the SGML declaration specified in the sgml-declaration variable %d means the file containing the DOCTYPE declaration, if not in the buffer ") -(make-variable-buffer-local 'sgml-validate-command) +(make-variable-buffer-local 'psgml-validate-command) (defvar sgml-xml-validate-command "nsgmls -wxml -s %s %s" "*The default for `sgml-validate-command' in XML mode.") (defvar sgml-validate-files nil "If non-nil, a function of no arguments that returns a list of file names. -These file names will serve as the arguments to the `sgml-validate-command' +These file names will serve as the arguments to the `psgml-validate-command' format control string instead of the defaults.") (defvar sgml-validate-error-regexps @@ -493,7 +493,7 @@ ("\\(error\\|warning\\) at \\([^,]+\\), line \\([0-9]+\\)" 2 3) ("\n[a-zA-Z]?:?[^0-9 \n\t:]+:[ \t]*\\([^ \n\t:]+\\):\ \\([0-9]+\\):\\(\\([0-9]+\\)[: \t]\\)?" 1 2 4)) - "Alist of regexps to recognize error messages from `sgml-validate'. + "Alist of regexps to recognize error messages from `psgml-validate'. See `compilation-error-regexp-alist'.") (defvar sgml-declaration nil @@ -504,8 +504,8 @@ "*If non-nil, this is the name of the SGML declaration for XML files.") (put 'sgml-xml-declaration 'sgml-type 'file-or-nil) -(defvar sgml-mode-hook nil - "A hook or list of hooks to be run when entering sgml-mode") +(defvar psgml-mode-hook nil + "A hook or list of hooks to be run when entering psgml-mode") (defconst sgml-file-options '( @@ -547,7 +547,7 @@ sgml-recompile-out-of-date-cdtd sgml-default-doctype-name sgml-declaration - sgml-validate-command + psgml-validate-command sgml-markup-faces sgml-system-identifiers-are-preferred sgml-trace-entity-lookup @@ -562,9 +562,9 @@ ;;; Internal variables (defvar sgml-validate-command-history nil - "The minibuffer history list for `sgml-validate''s COMMAND argument.") + "The minibuffer history list for `psgml-validate''s COMMAND argument.") -(defvar sgml-mode-map nil "Keymap for SGML mode") +(defvar psgml-mode-map nil "Keymap for SGML mode") (defvar sgml-active-dtd-indicator nil "Displayed in the mode line") @@ -640,7 +640,7 @@ t)))) (defun sgml-save-options () - "Save user options for sgml-mode that have buffer local values." + "Save user options for psgml-mode that have buffer local values." (interactive) (loop for var in sgml-file-options do (when (sgml-valid-option var) @@ -772,7 +772,7 @@ ;;;; SGML mode: syntax table -(defvar sgml-mode-syntax-table +(defvar psgml-mode-syntax-table (let ((s (copy-syntax-table text-mode-syntax-table))) (modify-syntax-entry ?< "." s) (modify-syntax-entry ?> "." s) @@ -781,73 +781,73 @@ ;;;; SGML mode: keys and menus -(if sgml-mode-map +(if psgml-mode-map () - (setq sgml-mode-map (make-sparse-keymap))) + (setq psgml-mode-map (make-sparse-keymap))) -(defvar sgml-prefix-f-map (make-sparse-keymap)) -(defvar sgml-prefix-u-map (make-sparse-keymap)) +(defvar psgml-prefix-f-map (make-sparse-keymap)) +(defvar psgml-prefix-u-map (make-sparse-keymap)) -(define-key sgml-mode-map "\C-c\C-f" sgml-prefix-f-map) -(define-key sgml-mode-map "\C-c\C-u" sgml-prefix-u-map) +(define-key psgml-mode-map "\C-c\C-f" psgml-prefix-f-map) +(define-key psgml-mode-map "\C-c\C-u" psgml-prefix-u-map) ;;; Key commands -(define-key sgml-mode-map "\t" 'sgml-indent-or-tab) -;(define-key sgml-mode-map "<" 'sgml-insert-tag) -(define-key sgml-mode-map ">" 'sgml-close-angle) -(define-key sgml-mode-map "/" 'sgml-slash) -(define-key sgml-mode-map "\C-c#" 'sgml-make-character-reference) -(define-key sgml-mode-map "\C-c-" 'sgml-untag-element) -(define-key sgml-mode-map "\C-c+" 'sgml-insert-attribute) -(define-key sgml-mode-map "\C-c/" 'sgml-insert-end-tag) -(define-key sgml-mode-map "\C-c<" 'sgml-insert-tag) -(define-key sgml-mode-map "\C-c=" 'sgml-change-element-name) -(define-key sgml-mode-map "\C-c\C-a" 'sgml-edit-attributes) -(define-key sgml-mode-map "\C-c\C-c" 'sgml-show-context) -(define-key sgml-mode-map "\C-c\C-d" 'sgml-next-data-field) -(define-key sgml-mode-map "\C-c\C-e" 'sgml-insert-element) -(define-key sgml-mode-map "\C-c\C-f\C-e" 'sgml-fold-element) -(define-key sgml-mode-map "\C-c\C-f\C-r" 'sgml-fold-region) -(define-key sgml-mode-map "\C-c\C-f\C-s" 'sgml-fold-subelement) -(define-key sgml-mode-map "\C-c\C-f\C-x" 'sgml-expand-element) -(define-key sgml-mode-map "\C-c\C-i" 'sgml-add-element-to-element) -(define-key sgml-mode-map "\C-c\C-k" 'sgml-kill-markup) -(define-key sgml-mode-map "\C-c\C-l" 'sgml-show-or-clear-log) -(define-key sgml-mode-map "\C-c\r" 'sgml-split-element) -(define-key sgml-mode-map "\C-c\C-n" 'sgml-up-element) -(define-key sgml-mode-map "\C-c\C-o" 'sgml-next-trouble-spot) -(define-key sgml-mode-map "\C-c\C-p" 'sgml-parse-prolog) -(define-key sgml-mode-map "\C-c\C-q" 'sgml-fill-element) -(define-key sgml-mode-map "\C-c\C-r" 'sgml-tag-region) -(define-key sgml-mode-map "\C-c\C-s" 'sgml-unfold-line) -(define-key sgml-mode-map "\C-c\C-t" 'sgml-list-valid-tags) -(define-key sgml-mode-map "\C-c\C-u\C-a" 'sgml-unfold-all) -(define-key sgml-mode-map "\C-c\C-u\C-d" 'sgml-custom-dtd) -(define-key sgml-mode-map "\C-c\C-u\C-e" 'sgml-unfold-element) -(define-key sgml-mode-map "\C-c\C-u\C-l" 'sgml-unfold-line) -(define-key sgml-mode-map "\C-c\C-u\C-m" 'sgml-custom-markup) -(define-key sgml-mode-map "\C-c\C-v" 'sgml-validate) -(define-key sgml-mode-map "\C-c\C-w" 'sgml-what-element) -(define-key sgml-mode-map "\C-c\C-z" 'sgml-trim-and-leave-element) - -(define-key sgml-mode-map "\e\C-a" 'sgml-beginning-of-element) -(define-key sgml-mode-map "\e\C-e" 'sgml-end-of-element) -(define-key sgml-mode-map "\e\C-f" 'sgml-forward-element) -(define-key sgml-mode-map "\e\C-b" 'sgml-backward-element) -(define-key sgml-mode-map "\e\C-d" 'sgml-down-element) -(define-key sgml-mode-map "\e\C-u" 'sgml-backward-up-element) -(define-key sgml-mode-map "\e\C-k" 'sgml-kill-element) -(define-key sgml-mode-map "\e\C-@" 'sgml-mark-element) -;;(define-key sgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) -(define-key sgml-mode-map [(meta control h)] 'sgml-mark-current-element) -(define-key sgml-mode-map "\e\C-t" 'sgml-transpose-element) -(define-key sgml-mode-map "\M-\t" 'sgml-complete) +(define-key psgml-mode-map "\t" 'sgml-indent-or-tab) +;(define-key psgml-mode-map "<" 'sgml-insert-tag) +(define-key psgml-mode-map ">" 'sgml-close-angle) +(define-key psgml-mode-map "/" 'psgml-slash) +(define-key psgml-mode-map "\C-c#" 'sgml-make-character-reference) +(define-key psgml-mode-map "\C-c-" 'sgml-untag-element) +(define-key psgml-mode-map "\C-c+" 'sgml-insert-attribute) +(define-key psgml-mode-map "\C-c/" 'sgml-insert-end-tag) +(define-key psgml-mode-map "\C-c<" 'sgml-insert-tag) +(define-key psgml-mode-map "\C-c=" 'sgml-change-element-name) +(define-key psgml-mode-map "\C-c\C-a" 'sgml-edit-attributes) +(define-key psgml-mode-map "\C-c\C-c" 'sgml-show-context) +(define-key psgml-mode-map "\C-c\C-d" 'sgml-next-data-field) +(define-key psgml-mode-map "\C-c\C-e" 'sgml-insert-element) +(define-key psgml-mode-map "\C-c\C-f\C-e" 'sgml-fold-element) +(define-key psgml-mode-map "\C-c\C-f\C-r" 'sgml-fold-region) +(define-key psgml-mode-map "\C-c\C-f\C-s" 'sgml-fold-subelement) +(define-key psgml-mode-map "\C-c\C-f\C-x" 'sgml-expand-element) +(define-key psgml-mode-map "\C-c\C-i" 'sgml-add-element-to-element) +(define-key psgml-mode-map "\C-c\C-k" 'sgml-kill-markup) +(define-key psgml-mode-map "\C-c\C-l" 'sgml-show-or-clear-log) +(define-key psgml-mode-map "\C-c\r" 'sgml-split-element) +(define-key psgml-mode-map "\C-c\C-n" 'sgml-up-element) +(define-key psgml-mode-map "\C-c\C-o" 'sgml-next-trouble-spot) +(define-key psgml-mode-map "\C-c\C-p" 'sgml-parse-prolog) +(define-key psgml-mode-map "\C-c\C-q" 'sgml-fill-element) +(define-key psgml-mode-map "\C-c\C-r" 'sgml-tag-region) +(define-key psgml-mode-map "\C-c\C-s" 'sgml-unfold-line) +(define-key psgml-mode-map "\C-c\C-t" 'sgml-list-valid-tags) +(define-key psgml-mode-map "\C-c\C-u\C-a" 'sgml-unfold-all) +(define-key psgml-mode-map "\C-c\C-u\C-d" 'sgml-custom-dtd) +(define-key psgml-mode-map "\C-c\C-u\C-e" 'sgml-unfold-element) +(define-key psgml-mode-map "\C-c\C-u\C-l" 'sgml-unfold-line) +(define-key psgml-mode-map "\C-c\C-u\C-m" 'sgml-custom-markup) +(define-key psgml-mode-map "\C-c\C-v" 'psgml-validate) +(define-key psgml-mode-map "\C-c\C-w" 'sgml-what-element) +(define-key psgml-mode-map "\C-c\C-z" 'sgml-trim-and-leave-element) + +(define-key psgml-mode-map "\e\C-a" 'sgml-beginning-of-element) +(define-key psgml-mode-map "\e\C-e" 'sgml-end-of-element) +(define-key psgml-mode-map "\e\C-f" 'sgml-forward-element) +(define-key psgml-mode-map "\e\C-b" 'sgml-backward-element) +(define-key psgml-mode-map "\e\C-d" 'sgml-down-element) +(define-key psgml-mode-map "\e\C-u" 'sgml-backward-up-element) +(define-key psgml-mode-map "\e\C-k" 'sgml-kill-element) +(define-key psgml-mode-map "\e\C-@" 'sgml-mark-element) +;;(define-key psgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) +(define-key psgml-mode-map [(meta control h)] 'sgml-mark-current-element) +(define-key psgml-mode-map "\e\C-t" 'sgml-transpose-element) +(define-key psgml-mode-map "\M-\t" 'sgml-complete) ;;;; Menu bar (easy-menu-define - sgml-dtd-menu sgml-mode-map "DTD menu" + sgml-dtd-menu psgml-mode-map "DTD menu" '("DTD" ["Parse DTD" sgml-parse-prolog t] ("Insert DTD") @@ -867,7 +867,7 @@ )) (easy-menu-define - sgml-view-menu sgml-mode-map "View menu" + sgml-view-menu psgml-mode-map "View menu" '("View" ["Fold Element" sgml-fold-element t] ["Fold Subelement" sgml-fold-subelement t] @@ -883,7 +883,7 @@ (easy-menu-define - sgml-markup-menu sgml-mode-map "Markup menu" + sgml-markup-menu psgml-mode-map "Markup menu" '("Markup" ["Insert Element" sgml-element-menu t] ["Insert Start-Tag" sgml-start-tag-menu t] @@ -897,7 +897,7 @@ )) (easy-menu-define - sgml-move-menu sgml-mode-map "Menu of move commands" + sgml-move-menu psgml-mode-map "Menu of move commands" '("Move" ["Next trouble spot" sgml-next-trouble-spot t] ["Next data field" sgml-next-data-field t] @@ -911,7 +911,7 @@ )) (easy-menu-define - sgml-modify-menu sgml-mode-map "Menu of modification commands" + sgml-modify-menu psgml-mode-map "Menu of modification commands" '("Modify" ["Normalize" sgml-normalize t] ["Expand All Short References" sgml-expand-all-shortrefs t] @@ -932,14 +932,14 @@ ) (easy-menu-define - sgml-main-menu sgml-mode-map "Main menu" + sgml-main-menu psgml-mode-map "Main menu" '("SGML" ["Reset Buffer" normal-mode t] ["Show Context" sgml-show-context t] ["What Element" sgml-what-element t] ["List Valid Tags" sgml-list-valid-tags t] ["Show/Hide Warning Log" sgml-show-or-clear-log t] - ["Validate" sgml-validate t] + ["Validate" psgml-validate t] ("File Options" "---") ("User Options" "---") ["Submit Bug Report" sgml-submit-bug-report t] @@ -1063,7 +1063,7 @@ (defun sgml-command-post () - (when (or (memq major-mode '(sgml-mode xml-mode)) + (when (or (memq major-mode '(psgml-mode pxml-mode)) (fboundp 'make-local-hook)) ;; Explanation if make-local-hook is defined then this is called ;; from a local hook and need not check major-mode. @@ -1082,13 +1082,13 @@ ;;;; SGML mode: major mode definition -;;; This section is mostly from sgml-mode by James Clark. +;;; This section is mostly from psgml-mode by James Clark. ;;;###autoload -(defun sgml-mode () - "Major mode for editing SGML.\\ +(defun psgml-mode () + "Major mode for editing SGML.\\ Makes > display the matching <. Makes / display matching /. -Use \\[sgml-validate] to validate your document with an SGML parser. +Use \\[psgml-validate] to validate your document with an SGML parser. You can find information with: \\[sgml-show-context] Show the nesting of elements at cursor position. @@ -1149,18 +1149,18 @@ sgml-markup-faces The faces used when the above variable is non-nil. sgml-public-map Mapping from public identifiers to file names. sgml-offer-save If non-nil, ask about saving modified buffers before - \\[sgml-validate] is run. + \\[psgml-validate] is run. All bindings: -\\{sgml-mode-map} +\\{psgml-mode-map} " (interactive) (kill-all-local-variables) (setq sgml-xml-p nil) (setq local-abbrev-table sgml-mode-abbrev-table) - (use-local-map sgml-mode-map) + (use-local-map psgml-mode-map) (setq mode-name "SGML") - (setq major-mode 'sgml-mode) + (setq major-mode 'psgml-mode) ;; A start or end tag by itself on a line separates a paragraph. ;; This is desirable because SGML discards a newline that appears @@ -1173,13 +1173,13 @@ (set (make-local-variable 'paragraph-start) paragraph-separate) - (set-syntax-table sgml-mode-syntax-table) + (set-syntax-table psgml-mode-syntax-table) (make-local-variable 'comment-start) (setq comment-start "") (make-local-variable 'comment-indent-function) - (setq comment-indent-function 'sgml-comment-indent) + (setq comment-indent-function 'psgml-comment-indent) (make-local-variable 'comment-start-skip) ;; This will allow existing comments within declarations to be ;; recognized. [Does not work well with auto-fill, Lst/940205] @@ -1212,7 +1212,7 @@ (add-hook 'post-command-hook 'sgml-command-post 'append) (add-hook 'menu-bar-update-hook 'sgml-update-all-options-menus) )) - (run-hooks 'text-mode-hook 'sgml-mode-hook) + (run-hooks 'text-mode-hook 'psgml-mode-hook) (easy-menu-add sgml-main-menu) (easy-menu-add sgml-modify-menu) (easy-menu-add sgml-move-menu) @@ -1224,7 +1224,7 @@ ;;;###autoload -(define-derived-mode xml-mode sgml-mode "XML" +(define-derived-mode pxml-mode psgml-mode "XML" (setq sgml-xml-p t) ;; XML-friendly settings (setq sgml-omittag nil) @@ -1232,7 +1232,7 @@ (setq sgml-namecase-general nil) (setq sgml-minimize-attributes nil) (setq sgml-always-quote-attributes t) - (setq sgml-validate-command sgml-xml-validate-command) + (setq psgml-validate-command sgml-xml-validate-command) (make-local-variable 'sgml-declaration) (setq sgml-declaration sgml-xml-declaration)) @@ -1247,7 +1247,7 @@ base)) ".ced")))) -(defun sgml-comment-indent () +(defun psgml-comment-indent () (if (and (looking-at "--") (not (and (eq (char-after (1- (point))) ?!) (eq (char-after (- (point) 2)) ?<)))) @@ -1256,7 +1256,7 @@ (max comment-column (1+ (current-column)))) 0)) -(defconst sgml-start-tag-regex +(defconst psgml-start-tag-regex "<[_A-Za-z]\\([-:.A-Za-z0-9= \n\t]\\|\"[^\"]*\"\\|'[^']*'\\)*" "Regular expression that matches a non-empty start tag. Any terminating > or / is not matched.") @@ -1323,7 +1323,7 @@ "<\\(\\?\\|/?[A-Za-z>]\\|!\\([[A-Za-z]\\|--\\)\\)")) ;; Check that it's not a net-enabling start tag ;; nor an unclosed start-tag. - (looking-at (concat sgml-start-tag-regex "[/<]")) + (looking-at (concat psgml-start-tag-regex "[/<]")) ;; Nor an unclosed end-tag. (looking-at "