emacs-diffs
[Top][All Lists]
Advanced

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

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


From: Glenn Morris
Subject: [Emacs-diffs] emacs/lisp ChangeLog textmodes/sgml-mode.el
Date: Sat, 24 Oct 2009 03:45:54 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/24 03:45:54

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : sgml-mode.el 

Log message:
        (sgml-looking-back-at): Move definition before use.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16493&r2=1.16494
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/sgml-mode.el?cvsroot=emacs&r1=1.143&r2=1.144

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16493
retrieving revision 1.16494
diff -u -b -r1.16493 -r1.16494
--- ChangeLog   24 Oct 2009 03:44:42 -0000      1.16493
+++ ChangeLog   24 Oct 2009 03:45:50 -0000      1.16494
@@ -1,5 +1,8 @@
 2009-10-24  Glenn Morris  <address@hidden>
 
+       * textmodes/sgml-mode.el (sgml-looking-back-at): Move definition before
+       use.
+
        * emacs-lisp/checkdoc.el (generate-autoload-cookie): Define for
        compiler.
 

Index: textmodes/sgml-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/sgml-mode.el,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -b -r1.143 -r1.144
--- textmodes/sgml-mode.el      18 Oct 2009 22:25:40 -0000      1.143
+++ textmodes/sgml-mode.el      24 Oct 2009 03:45:53 -0000      1.144
@@ -873,6 +873,12 @@
        (setq arg (1- arg)))
       return)))
 
+(defsubst sgml-looking-back-at (str)
+  "Return t if the test before point matches STR."
+  (let ((start (- (point) (length str))))
+    (and (>= start (point-min))
+         (equal str (buffer-substring-no-properties start (point))))))
+
 (defun sgml-delete-tag (arg)
   ;; FIXME: Should be called sgml-kill-tag or should not touch the kill-ring.
   "Delete tag on or after cursor, and matching closing or opening tag.
@@ -1159,12 +1165,6 @@
   (buffer-substring-no-properties
    (point) (progn (skip-syntax-forward "w_") (point))))
 
-(defsubst sgml-looking-back-at (str)
-  "Return t if the test before point matches STR."
-  (let ((start (- (point) (length str))))
-    (and (>= start (point-min))
-         (equal str (buffer-substring-no-properties start (point))))))
-
 (defun sgml-tag-text-p (start end)
   "Return non-nil if text between START and END is a tag.
 Checks among other things that the tag does not contain spurious




reply via email to

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