emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/textmodes/sgml-mode.el


From: Mike Williams
Subject: [Emacs-diffs] Changes to emacs/lisp/textmodes/sgml-mode.el
Date: Tue, 16 Apr 2002 06:36:27 -0400

Index: emacs/lisp/textmodes/sgml-mode.el
diff -c emacs/lisp/textmodes/sgml-mode.el:1.83 
emacs/lisp/textmodes/sgml-mode.el:1.84
*** emacs/lisp/textmodes/sgml-mode.el:1.83      Sun Apr 14 08:49:39 2002
--- emacs/lisp/textmodes/sgml-mode.el   Tue Apr 16 06:36:27 2002
***************
*** 858,863 ****
--- 858,869 ----
    (save-some-buffers (not compilation-ask-about-save) nil)
    (compile-internal command "No more errors"))
  
+ (defsubst sgml-at-indentation-p ()
+   "Return true if point is at the first non-whitespace character on the line."
+   (save-excursion
+     (skip-chars-backward " \t")
+     (bolp)))
+ 
  (defun sgml-lexical-context (&optional limit)
    "Return the lexical context at point as (TYPE . START).
  START is the location of the start of the lexical element.
***************
*** 946,957 ****
        (replace-match (cdr (assq (char-before) '((?& . "&")
                                                (?< . "&lt;")
                                                (?> . "&gt;"))))))))
- 
- (defsubst sgml-at-indentation-p ()
-   "Return true if point is at the first non-whitespace character on the line."
-   (save-excursion
-     (skip-chars-backward " \t")
-     (bolp)))
  
  
  ;; Parsing
--- 952,957 ----



reply via email to

[Prev in Thread] Current Thread [Next in Thread]