Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9847dc91
Commit
9847dc91
authored
Oct 24, 2009
by
Glenn Morris
Browse files
(sgml-looking-back-at): Move definition before use.
parent
e8f2a5d5
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
6 deletions
+9
-6
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/textmodes/sgml-mode.el
lisp/textmodes/sgml-mode.el
+6
-6
No files found.
lisp/ChangeLog
View file @
9847dc91
2009-10-24 Glenn Morris <rgm@gnu.org>
* textmodes/sgml-mode.el (sgml-looking-back-at): Move definition before
use.
* emacs-lisp/checkdoc.el (generate-autoload-cookie): Define for
compiler.
...
...
lisp/textmodes/sgml-mode.el
View file @
9847dc91
...
...
@@ -873,6 +873,12 @@ Return t if after a closing tag."
(
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 @@ You might want to turn on `auto-fill-mode' to get better results."
(
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment