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
ffe7dc64
Commit
ffe7dc64
authored
May 21, 2000
by
Stefan Monnier
Browse files
(log-edit-done): Cleanup trailing empty lines.
(log-edit-insert-changelog): Drop `:' as well.
parent
e57a1038
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
1 deletion
+17
-1
lisp/ChangeLog
lisp/ChangeLog
+9
-0
lisp/log-edit.el
lisp/log-edit.el
+8
-1
No files found.
lisp/ChangeLog
View file @
ffe7dc64
2000-05-20 Stefan Monnier <monnier@cs.yale.edu>
* log-edit.el (log-edit-done): Cleanup trailing empty lines.
(log-edit-insert-changelog): Drop `:' as well.
* log-view.el: Fix file description.
(log-view-mode-map): Unsatisfying fix for when cvs-mode-map is not
available.
(log-view-font-lock-keywords): Only use cvs-filename-face if present.
(log-view-current-file): Only use cvs-pcl-cvs-dirchange-re if present.
* emacs-lisp/easy-mmode.el: Update copyright and commentary.
(easy-mmode-define-toggle): Deprecate the use of *-(on|off)-hook.
Print a status message if the toggle is called interactively.
...
...
lisp/log-edit.el
View file @
ffe7dc64
...
...
@@ -5,7 +5,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs cvs commit log
;; Version: $Name: $
;; Revision: $Id: log-edit.el,v 1.
3
2000/0
3/26 23:05:12
monnier Exp $
;; Revision: $Id: log-edit.el,v 1.
4
2000/0
5/10 22:20:51
monnier Exp $
;; This file is part of GNU Emacs.
...
...
@@ -189,6 +189,12 @@ commands (under C-x v for VC, for example).
"Finish editing the log message and commit the files.
If you want to abort the commit, simply delete the buffer."
(
interactive
)
;; Get rid of trailing empty lines
(
goto-char
(
point-max
))
(
skip-syntax-backward
" "
)
(
when
(
equal
(
char-after
)
?\n
)
(
forward-char
1
))
(
delete-region
(
point
)
(
point-max
))
;; Check for final newline
(
if
(
and
(
>
(
point-max
)
1
)
(
/=
(
char-after
(
1-
(
point-max
)))
?\n
)
(
or
(
eq
log-edit-require-final-newline
t
)
...
...
@@ -242,6 +248,7 @@ To select default log text, we:
(
when
(
not
(
re-search-forward
"^\\*\\s-+"
nil
t
))
(
goto-char
(
point-min
))
(
skip-chars-forward
"^():"
)
(
skip-chars-forward
": "
)
(
delete-region
(
point-min
)
(
point
)))))
(
defun
log-edit-mode-help
()
...
...
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