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
6bffddf4
Commit
6bffddf4
authored
Feb 12, 2009
by
Stefan Monnier
Browse files
(end-of-defun): Don't skip to next line after
calling end-of-defun-function if it already moved to BOL.
parent
51584624
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
8 deletions
+14
-8
lisp/ChangeLog
lisp/ChangeLog
+6
-2
lisp/emacs-lisp/lisp.el
lisp/emacs-lisp/lisp.el
+8
-6
No files found.
lisp/ChangeLog
View file @
6bffddf4
2009-02-12 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (end-of-defun): Don't skip to next line after
calling end-of-defun-function if it already moved to BOL.
2009-02-12 Richard M Stallman <rms@gnu.org>
* mail/rmail.el (rmail-show-message-verbose-min): New option.
...
...
@@ -106,8 +111,7 @@
2009-02-09 Ulf Jasper <ulf.jasper@web.de>
* net/newst-treeview.el (newsticker-treeview-save)
(newsticker--treeview-load): Kill groups buffer after
saving/loading.
(newsticker--treeview-load): Kill groups buffer after saving/loading.
2009-02-09 Tassilo Horn <tassilo@member.fsf.org>
...
...
lisp/emacs-lisp/lisp.el
View file @
6bffddf4
...
...
@@ -348,9 +348,10 @@ is called as a function to find the defun's end."
(
beginning-of-defun-raw
1
)
(
while
(
unless
(
eobp
)
(
funcall
end-of-defun-function
)
(
skip-chars-forward
" \t"
)
(
if
(
looking-at
"\\s<\\|\n"
)
(
forward-line
1
))
(
unless
(
bolp
)
(
skip-chars-forward
" \t"
)
(
if
(
looking-at
"\\s<\\|\n"
)
(
forward-line
1
)))
;; If we started after the end of the previous
;; function, try again with the next one.
(
unless
(
or
(
>
(
point
)
pos
)
...
...
@@ -370,9 +371,10 @@ is called as a function to find the defun's end."
(
let
((
beg
(
point
))
retry-point
)
(
funcall
end-of-defun-function
)
(
skip-chars-forward
" \t"
)
(
if
(
looking-at
"\\s<\\|\n"
)
(
forward-line
1
))
(
unless
(
bolp
)
(
skip-chars-forward
" \t"
)
(
if
(
looking-at
"\\s<\\|\n"
)
(
forward-line
1
)))
;; If we started from within the function just found,
;; try again with the previous one.
(
unless
(
or
(
<
(
point
)
pos
)
...
...
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