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
2231c2bc
Commit
2231c2bc
authored
Apr 26, 2005
by
Stefan Monnier
Browse files
Rename "full-path" -> "full-name".
parent
03de06da
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
44 additions
and
33 deletions
+44
-33
lisp/ChangeLog
lisp/ChangeLog
+24
-13
lisp/pcvs.el
lisp/pcvs.el
+20
-20
No files found.
lisp/ChangeLog
View file @
2231c2bc
2005-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs-info.el (cvs-fileinfo->full-path, cvs-display-full-path):
New fun and var, to preserve compatibility.
* pcvs.el, pcvs-info.el: Rename "full-path" -> "full-name".
2005-04-26 Dominique de Waleffe <ddw@missioncriticalit.com> (tiny change)
* pcvs-info.el (cvs-fileinfo->backup-file): Don't pass the full file
name to file-newer-than-file-p.
2005-04-26 Richard M. Stallman <rms@gnu.org>
* simple.el (line-move-1): Avoid using vertical-motion in easy cases.
...
...
@@ -9,7 +21,7 @@
* emacs-lisp/eldoc.el (eldoc-mode): Doc fix.
(eldoc-documentation-function):
Rename
d
from eldoc-print-current-symbol-info-function. Calls changed.
Rename from eldoc-print-current-symbol-info-function. Calls changed.
2005-04-26 Nick Roberts <nickrob@snap.net.nz>
...
...
@@ -18,13 +30,13 @@
2005-04-25 Dan Nicolaescu <dann@ics.uci.edu>
* term/xterm.el (function-key-map): Fix strings for
{C,S,A,C-S}-f[1-4]. Use substitute-key-definition to bind
{C,S,A,C-S}-f[1-4].
Use substitute-key-definition to bind
{C,S,A,C-S}-{f1-f12}.
2005-04-26 Kenichi Handa <handa@m17n.org>
* international/mule-cmds.el (select-safe-coding-system):
Fix
previous change.
* international/mule-cmds.el (select-safe-coding-system):
Fix
previous change.
2005-04-26 Lute Kamstra <lute@gnu.org>
...
...
@@ -43,8 +55,7 @@
2005-04-25 Dan Nicolaescu <dann@ics.uci.edu>
* term.el (ansi-term-color-vector): Use the xterm colors.
(term-raw-map): Don't add mappings for \eO and \e[. Map
deletechar.
(term-raw-map): Don't add mappings for \eO and \e[. Map deletechar.
2005-04-25 Lute Kamstra <lute@gnu.org>
...
...
@@ -54,8 +65,8 @@
2005-04-25 Kenichi Handa <handa@m17n.org>
* international/mule-cmds.el (select-safe-coding-system):
Don't
check consistency with coding: spec, etc if raw-text or
* international/mule-cmds.el (select-safe-coding-system):
Don't
check consistency with coding: spec, etc if raw-text or
no-conversion was found to be safe.
2005-04-24 Richard M. Stallman <rms@gnu.org>
...
...
@@ -204,13 +215,13 @@
not quadratic. Suggested by David Kastrup <dak@gnu.org>.
(rassq-delete-all): New function.
* menu-bar.el (menu-bar-options-save, menu-bar-showhide-menu):
Add
size-indication-mode.
* menu-bar.el (menu-bar-options-save, menu-bar-showhide-menu):
Add
size-indication-mode.
2005-04-21 Kenichi Handa <handa@m17n.org>
* international/mule-cmds.el: Add autoload for widget-value in
eval-when-compile
eval-when-compile
.
2005-04-21 Nick Roberts <nickrob@snap.net.nz>
...
...
@@ -581,8 +592,8 @@
2005-04-11 Rajesh Vaidheeswarran <rv@gnu.org>
* whitespace.el (whitespace-buffer-leading)
(whitespace-buffer-trailing): Revert the incorrect test
inversion.
However, fix the highlight area for the leading and
(whitespace-buffer-trailing): Revert the incorrect test
inversion.
However, fix the highlight area for the leading and
trailing whitespaces to show space.
2005-04-11 Rajesh Vaidheeswarran <rv@gnu.org>
...
...
lisp/pcvs.el
View file @
2231c2bc
...
...
@@ -233,7 +233,7 @@
nil
;don't update display while running
"status"
"-v"
(
cvs-fileinfo->full-
path
(
car
marked
)))
(
cvs-fileinfo->full-
name
(
car
marked
)))
(
goto-char
(
point-min
))
(
let
((
tags
(
cvs-status-get-tags
)))
(
when
(
listp
tags
)
tags
)))))))
...
...
@@ -512,7 +512,7 @@ If non-nil, NEW means to create a new buffer no matter what."
(
let*
((
dir+files+rest
(
if
(
or
(
null
fis
)
(
not
single-dir
))
;; not single-dir mode: just process the whole thing
(
list
""
(
mapcar
'cvs-fileinfo->full-
path
fis
)
nil
)
(
list
""
(
mapcar
'cvs-fileinfo->full-
name
fis
)
nil
)
;; single-dir mode: extract the same-dir-elements
(
let
((
dir
(
cvs-fileinfo->dir
(
car
fis
))))
;; output the concerned dir so the parser can translate paths
...
...
@@ -611,7 +611,7 @@ If non-nil, NEW means to create a new buffer no matter what."
(
append
(
cvs-flags-query
'cvs-cvs-flags
nil
'noquery
)
(
if
cvs-cvsroot
(
list
"-d"
cvs-cvsroot
))
args
(
mapcar
'cvs-fileinfo->full-
path
fis
))))))
(
mapcar
'cvs-fileinfo->full-
name
fis
))))))
(
defun
cvs-update-header
(
cmd
add
)
(
let*
((
hf
(
ewoc-get-hf
cvs-cookies
))
...
...
@@ -831,7 +831,7 @@ the problem."
(
and
(
or
(
eq
(
cvs-fileinfo->type
fi
)
'REMOVED
)
(
and
(
eq
(
cvs-fileinfo->type
fi
)
'CONFLICT
)
(
eq
(
cvs-fileinfo->subtype
fi
)
'REMOVED
)))
(
file-exists-p
(
cvs-fileinfo->full-
path
fi
))))
(
file-exists-p
(
cvs-fileinfo->full-
name
fi
))))
;; called at the following times:
;; - postparse ((eq cvs-auto-remove-handled t) cvs-auto-remove-directories nil)
...
...
@@ -1406,7 +1406,7 @@ If FILE is non-nil, directory entries won't be selected."
(defun cvs-mode-files (&rest -cvs-mode-files-args)
(cvs-mode!
(lambda ()
(mapcar 'cvs-fileinfo->full-
path
(mapcar 'cvs-fileinfo->full-
name
(apply 'cvs-mode-marked -cvs-mode-files-args)))))
;;
...
...
@@ -1564,7 +1564,7 @@ With prefix argument, prompt for cvs flags."
;; find directories and look for fis needing a description
(dolist (fi fis)
(cond
((file-directory-p (cvs-fileinfo->full-
path
fi)) (push fi dirs))
((file-directory-p (cvs-fileinfo->full-
name
fi)) (push fi dirs))
((eq (cvs-fileinfo->type fi) 'UNKNOWN) (setq needdesc t))))
;; prompt for description if necessary
(let* ((msg (if (and needdesc
...
...
@@ -1642,8 +1642,8 @@ or \"Conflict\" in the *cvs* buffer."
Signal
an
error
if
there
is
no
backup
file.
"
(let ((backup-file (cvs-fileinfo->backup-file fileinfo)))
(unless backup-file
(error "
%s
has
no
backup
file
" (cvs-fileinfo->full-
path
fileinfo)))
(list backup-file (cvs-fileinfo->full-
path
fileinfo))))
(error "
%s
has
no
backup
file
" (cvs-fileinfo->full-
name
fileinfo)))
(list backup-file (cvs-fileinfo->full-
name
fileinfo))))
;;
;; Emerge support
...
...
@@ -1697,7 +1697,7 @@ Signal an error if there is no backup file."
(defun cvs-retrieve-revision (fileinfo rev)
"
Retrieve
the
given
REVision
of
the
file
in
FILEINFO
into
a
new
buffer.
"
(let* ((file (cvs-fileinfo->full-
path
fileinfo))
(let* ((file (cvs-fileinfo->full-
name
fileinfo))
(buffile (concat file "
.
" rev)))
(or (find-buffer-visiting buffile)
(with-current-buffer (create-file-buffer buffile)
...
...
@@ -1729,7 +1729,7 @@ Signal an error if there is no backup file."
(interactive)
(let ((fi (cvs-mode-marked 'merge nil :one t :file t)))
(let ((merge (cvs-fileinfo->merge fi))
(file (cvs-fileinfo->full-
path
fi))
(file (cvs-fileinfo->full-
name
fi))
(backup-file (cvs-fileinfo->backup-file fi)))
(if (not (and merge backup-file))
(let ((buf (find-file-noselect file)))
...
...
@@ -1760,7 +1760,7 @@ Signal an error if there is no backup file."
(list (or rev1 (cvs-flags-query 'cvs-idiff-version))
rev2)))
(let ((fi (cvs-mode-marked 'diff "
idiff
" :one t :file t)))
(let* ((file (cvs-fileinfo->full-
path
fi))
(let* ((file (cvs-fileinfo->full-
name
fi))
(rev1-buf (cvs-retrieve-revision fi (or rev1 "
BASE
")))
(rev2-buf (if rev2 (cvs-retrieve-revision fi rev2)))
;; this binding is used by cvs-ediff-startup-hook
...
...
@@ -1778,13 +1778,13 @@ Signal an error if there is no backup file."
(error "
idiff-other
cannot
be
applied
to
more
than
2
files
at
a
time
"))
(let* ((fi1 (car fis))
(rev1-buf (if rev1 (cvs-retrieve-revision fi1 rev1)
(find-file-noselect (cvs-fileinfo->full-
path
fi1))))
(find-file-noselect (cvs-fileinfo->full-
name
fi1))))
rev2-buf)
(if (cdr fis)
(let ((fi2 (nth 1 fis)))
(setq rev2-buf
(if rev2 (cvs-retrieve-revision fi2 rev2)
(find-file-noselect (cvs-fileinfo->full-
path
fi2)))))
(find-file-noselect (cvs-fileinfo->full-
name
fi2)))))
(error "
idiff-other
doesn
't
know
what
other
file/buffer
to
use
"))
(let* (;; this binding is used by cvs-ediff-startup-hook
(cvs-transient-buffers (list rev1-buf rev2-buf)))
...
...
@@ -1799,7 +1799,7 @@ Signal an error if there is no backup file."
(let (ret)
(dolist (fi (or fis (list (cvs-create-fileinfo 'DIRCHANGE "" "
.
" ""))))
(when (cvs-string-prefix-p
(expand-file-name (cvs-fileinfo->full-
path
fi) dir)
(expand-file-name (cvs-fileinfo->full-
name
fi) dir)
buffer-file-name)
(setq ret t)))
ret)))
...
...
@@ -2002,7 +2002,7 @@ With a prefix, opens the buffer in an OTHER window."
(set-buffer cvs-buf)
(setq default-directory odir))
(let ((buf (if rev (cvs-retrieve-revision fi rev)
(find-file-noselect (cvs-fileinfo->full-
path
fi)))))
(find-file-noselect (cvs-fileinfo->full-
name
fi)))))
(funcall (cond ((eq other 'dont-select) 'display-buffer)
(other
(if view 'view-buffer-other-window
...
...
@@ -2093,14 +2093,14 @@ Returns a list of FIS that should be `cvs remove'd."
(silent (or (not cvs-confirm-removals)
(cvs-every (lambda (fi)
(or (not (file-exists-p
(cvs-fileinfo->full-
path
fi)))
(cvs-fileinfo->full-
name
fi)))
(cvs-applicable-p fi 'safe-rm)))
files)))
(tmpbuf (cvs-temp-buffer)))
(when (and (not silent) (equal cvs-confirm-removals 'list))
(with-current-buffer tmpbuf
(let ((inhibit-read-only t))
(cvs-insert-strings (mapcar 'cvs-fileinfo->full-
path
fis))
(cvs-insert-strings (mapcar 'cvs-fileinfo->full-
name
fis))
(cvs-pop-to-buffer-same-frame (current-buffer))
(shrink-window-if-larger-than-buffer))))
(if (not (or silent
...
...
@@ -2119,7 +2119,7 @@ Returns a list of FIS that should be `cvs remove'd."
(progn (message "
Aborting
") nil)
(dolist (fi files)
(let* ((type (cvs-fileinfo->type fi))
(file (cvs-fileinfo->full-
path
fi)))
(file (cvs-fileinfo->full-
name
fi)))
(when (or all (eq type 'UNKNOWN))
(when (file-exists-p file) (delete-file file))
(unless all (setf (cvs-fileinfo->type fi) 'DEAD) t))))
...
...
@@ -2166,7 +2166,7 @@ With prefix argument, prompt for cvs flags."
(interactive)
(let ((marked (cvs-get-marked (cvs-ignore-marks-p "
byte-compile
"))))
(dolist (fi marked)
(let ((filename (cvs-fileinfo->full-
path
fi)))
(let ((filename (cvs-fileinfo->full-
name
fi)))
(when (string-match "
\\.el\\
'
" filename)
(byte-compile-file filename))))))
...
...
@@ -2237,7 +2237,7 @@ this file, or a list of arguments to send to the program."
(defun cvs-revert-if-needed (fis)
(dolist (fileinfo fis)
(let* ((file (cvs-fileinfo->full-
path
fileinfo))
(let* ((file (cvs-fileinfo->full-
name
fileinfo))
(buffer (find-buffer-visiting file)))
;; For a revert to happen the user must be editing the file...
(unless (or (null buffer)
...
...
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