diff options
author | Karoly Lorentey <[email protected]> | 2005-03-23 10:40:00 +0000 |
---|---|---|
committer | Karoly Lorentey <[email protected]> | 2005-03-23 10:40:00 +0000 |
commit | 76acbdc50490034f233bc78d14a7cd5717d9432e (patch) | |
tree | 9b46877d371dad83ff6cdad30cd69df2a050de7d /lisp/add-log.el | |
parent | 335fcf6c2f6ae8990d8c62589cfb3558c3f38bc0 (diff) | |
parent | 8725c7925ef1ce95efb1f50d48d17f437e9c46a4 (diff) |
Merged from [email protected] (patch 192-203)
Patches applied:
* [email protected]/emacs--cvs-trunk--0--patch-192
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-193
Use gdb-ui breakpoint faces on ttys too
* [email protected]/emacs--cvs-trunk--0--patch-194
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-195
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-196
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-197
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-198
Tweak gdb-ui breakpoint faces
* [email protected]/emacs--cvs-trunk--0--patch-199
Tweak gdb-ui breakpoint faces
* [email protected]/emacs--cvs-trunk--0--patch-200
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-201
Tweak info/.arch-inventory to identify info/.cvsignore as source
* [email protected]/emacs--cvs-trunk--0--patch-202
Update from CVS
* [email protected]/emacs--cvs-trunk--0--patch-203
Update from CVS
git-archimport-id: [email protected]/emacs--multi-tty--0--patch-316
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index ce98760222..7706a69775 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -812,7 +812,7 @@ Has a preference of looking backwards." (looking-at "[ \t\n]")) (forward-line -1)) ;; See if this is using the DEFUN macro used in Emacs, - ;; or the DEFUN macro used by the C library. + ;; or the DEFUN macro used by the C library: (if (condition-case nil (and (save-excursion (end-of-line) @@ -824,16 +824,20 @@ Has a preference of looking backwards." (looking-at "DEFUN\\b")) (>= location tem)) (error nil)) + ;; DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, ...) ==> Ffile_name_directory + ;; DEFUN(POSIX::STREAM-LOCK, stream lockp &key BLOCK SHARED START LENGTH) ==> POSIX::STREAM-LOCK (progn (goto-char tem) (down-list 1) - (if (= (char-after (point)) ?\") - (progn - (forward-sexp 1) - (skip-chars-forward " ,"))) + (when (= (char-after (point)) ?\") + (forward-sexp 1) + (search-forward ",")) + (skip-syntax-forward " ") (buffer-substring-no-properties (point) - (progn (forward-sexp 1) + (progn (search-forward ",") + (forward-char -1) + (skip-syntax-backward " ") (point)))) (if (looking-at "^[+-]") (change-log-get-method-definition) |