This is an automated notification sent by Gna!.
It relates to:
bugs #1830, project xtla.el
==============================================================================
LATEST MODIFICATIONS of bugs #1830:
==============================================================================
Posted by: Matthieu MOY <moy>
Posted on: Sat 11/06/2004 at 02:41 (Europe/Paris)
What | Removed | Added
---------------------------------------------------------------------------
Resolution | None | Fixed
Assigned to | None | moy
Status | Open | Closed
Merge available | No | Already merged
merge request | | [EMAIL PROTECTED]
Fixed Release | | [EMAIL PROTECTED]
------------------ Additional Follow-up Comments ----------------------------
The problem occured when both the old and the new files existed.
==============================================================================
OVERVIEW of bugs #1830:
==============================================================================
URL:
<http://gna.org/bugs/?func=detailitem&item_id=1830>
Project: xtla.el
Submitted by: Masatake YAMATO
Submitted on: Fri 11/05/2004 at 15:18
Category: any
Priority: 5 - Normal
Resolution: Fixed
Assigned to: moy
Originator Email:
Status: Closed
Planned Release: 0.9
Type of request: small bug
Merge available: Already merged
merge request: [EMAIL PROTECTED]
Fixed Release: [EMAIL PROTECTED]
Test case in xtla-tests.el:
Summary: Error moving bookmark
_______________________________________________________
Original Submission:
Debugger entered--Lisp error: (file-already-exists "File already exists"
"/home/jet/.xtla/bookmarks.el")
rename-file("/home/jet/.xtla/.xtla-bookmarks.el"
"/home/jet/.xtla/bookmarks.el")
(if (yes-or-no-p (format "Migrate %s to %s? " o n)) (rename-file o n) (if
(yes-or-no-p ...) (delete-file o)))
(if (file-exists-p o) (if (yes-or-no-p ...) (rename-file o n) (if ... ...)))
(while olds (setq o (expand-file-name ...) olds (cdr olds)) (if
(file-exists-p o) (if ... ... ...)))
(while old-ones (setq olds (car old-ones) old-ones (cdr old-ones)) (if olds
(setq n ... olds ...)) (while olds (setq o ... olds ...) (if ... ...)))
(let ((old-ones ...) o olds n) (while old-ones (setq olds ... old-ones ...)
(if olds ...) (while olds ... ...)))
(let ((full-name ...)) (unless (file-exists-p tla-config-directory) (when
create-config-dir ... ... ...)) (let (... o olds n) (while old-ones ... ...
...)) full-name)
tla--config-file-full-path("bookmarks.el" t)
(let ((file ...)) (save-excursion (unless ... ...) (unless ... ...)
(with-temp-buffer ... ...)))
(progn (let (...) (save-excursion ... ... ...)))
(if (or force (not tla-bookmarks-loaded)) (progn (let ... ...)))
(when (or force (not tla-bookmarks-loaded)) (let (...) (save-excursion ...
... ...)))
tla-bookmarks-load-from-file-OBSOLETE(nil)
(progn (tla-bookmarks-load-from-file-OBSOLETE force))
(condition-case nil (when (or force ...) (tla-load-state ...) (setq
tla-bookmarks-loaded t)) (error (progn ...)))
tla-bookmarks-load-from-file()
tla-bookmarks-get-field(("[EMAIL PROTECTED]" "xtla" "main" "0.1" "patch-573")
nickname "[EMAIL PROTECTED]")
tla-archive-maintainer-name(("[EMAIL PROTECTED]" "xtla" "main" "0.1"
"patch-573"))
(or (tla-archive-maintainer-name version) (tla-archive-maintainer-id
(tla--name-archive version) t))
tla-archive-default-maintainer-name(("[EMAIL PROTECTED]" "xtla" "main" "0.1"
"patch-573"))
funcall(tla-archive-default-maintainer-name ("[EMAIL PROTECTED]" "xtla"
"main" "0.1" "patch-573"))
(setq maintainer (funcall (or version-to-name-function ...) rev-list))
(while (re-search-forward "^ \* \([EMAIL PROTECTED]/.+--.+\)$" nil t) (setq
rev-list (tla--name-split ...)) (setq maintainer (funcall ... rev-list)) (setq
rev (cadr ...)) (add-to-list (quote patch-list) (list maintainer rev)))
(let ((rev-list) (maintainer) (rev) (patch-list)) (goto-char (point-min))
(while (re-search-forward "^ \* \([EMAIL PROTECTED]/.+--.+\)$" nil t) (setq
rev-list ...) (setq maintainer ...) (setq rev ...) (add-to-list ... ...)) (let
(...) (while patch-list ... ...) (funcall ... ...)))
(save-excursion (let (... ... ... ...) (goto-char ...) (while ... ... ... ...
...) (let ... ... ...)))
tla-merge-summary-line-for-log()
(save-current-buffer (set-buffer output) (tla-merge-summary-line-for-log))
(with-current-buffer output (tla-merge-summary-line-for-log))
(insert (with-current-buffer output (tla-merge-summary-line-for-log)))
(progn (tla-log-goto-summary) (delete-region (point) (line-end-position))
(insert (with-current-buffer output ...)) (tla-log-goto-keywords)
(delete-region (point) (line-end-position)) (insert "merge")
(tla-log-goto-summary))
(if arg (progn (tla-log-goto-summary) (delete-region ... ...) (insert ...)
(tla-log-goto-keywords) (delete-region ... ...) (insert "merge")
(tla-log-goto-summary)))
(when arg (tla-log-goto-summary) (delete-region (point) (line-end-position))
(insert (with-current-buffer output ...)) (tla-log-goto-keywords)
(delete-region (point) (line-end-position)) (insert "merge")
(tla-log-goto-summary))
(let ((content ...)) (if (= 0 ...) (error "There was no merge!"))
(with-current-buffer #<buffer [EMAIL PROTECTED]> (let ... ... ...)) (when arg
(tla-log-goto-summary) (delete-region ... ...) (insert ...)
(tla-log-goto-keywords) (delete-region ... ...) (insert "merge")
(tla-log-goto-summary)))
(lambda (output error status arguments) (let (...) (if ... ...)
(with-current-buffer #<buffer [EMAIL PROTECTED]> ...) (when arg ... ... ... ...
... ... ...)))(#<buffer *tla-process*<6>> #<buffer *tla-errors*<6>> 0
("log-for-merge"))
funcall((lambda (output error status arguments) (let (...) (if ... ...)
(with-current-buffer #<buffer [EMAIL PROTECTED]> ...) (when arg ... ... ... ...
... ... ...))) #<buffer *tla-process*<6>> #<buffer *tla-errors*<6>> 0
("log-for-merge"))
(if (zerop status) (funcall (or finished ...) output-buf error-buf status
arguments) (funcall (or error ...) output-buf error-buf status arguments))
(cond ((stringp status) (when ... ...)) ((numberp status) (if ... ... ...))
(t (message "Unknown status - %s" status)))
(unwind-protect (cond (... ...) (... ...) (t ...)) (unless output-buffer
(tla--kill-process-buffer output-buf)) (unless error-buffer
(tla--kill-process-buffer error-buf)))
(let ((status ...)) (when (file-exists-p error-file) (with-current-buffer
error-buf ...) (delete-file error-file)) (unwind-protect (cond ... ... ...)
(unless output-buffer ...) (unless error-buffer ...)))
(save-current-buffer (set-buffer (or related-buffer ...)) (tla--log-event
output-buf error-buf command default-directory "started") (let (...) (when ...
... ...) (unwind-protect ... ... ...)))
(with-current-buffer (or related-buffer (current-buffer)) (tla--log-event
output-buf error-buf command default-directory "started") (let (...) (when ...
... ...) (unwind-protect ... ... ...)))
(let ((output-buf ...) (error-buf ...) (command ...) (error-file ...)
(default-directory ...)) (with-current-buffer (or related-buffer ...)
(tla--log-event output-buf error-buf command default-directory "started") (let
... ... ...)))
(let (finished killed error output-buffer error-buffer related-buffer)
(dolist (keyword-entry ...) (let ... ...)) (let (... ... ... ... ...)
(with-current-buffer ... ... ...)))
(tla--with-keywords (:finished :killed :error :output-buffer :error-buffer
:related-buffer) keys (let (... ... ... ... ...) (with-current-buffer ... ...
...)))
tla--run-tla-sync(("log-for-merge") :finished (lambda (output error status
arguments) (let (...) (if ... ...) (with-current-buffer #<buffer [EMAIL
PROTECTED]> ...) (when arg ... ... ... ... ... ... ...))))
tla-log-edit-insert-log-for-merge((4))
call-interactively(tla-log-edit-insert-log-for-merge)
_______________________________________________________
Follow-up Comments:
-------------------------------------------------------
Date: Sat 11/06/2004 at 02:41 By: Matthieu MOY <moy>
The problem occured when both the old and the new files existed.
==============================================================================
This item URL is:
<http://gna.org/bugs/?func=detailitem&item_id=1830>
_______________________________________________
Message sent via/by Gna!
http://gna.org/
