[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el |
Date: |
Fri, 04 Apr 2003 01:22:45 -0500 |
Index: emacs/lisp/pcvs-util.el
diff -c emacs/lisp/pcvs-util.el:1.17 emacs/lisp/pcvs-util.el:1.18
*** emacs/lisp/pcvs-util.el:1.17 Thu Dec 20 13:43:07 2001
--- emacs/lisp/pcvs-util.el Tue Feb 4 06:57:16 2003
***************
*** 5,11 ****
;; Author: Stefan Monnier <address@hidden>
;; Keywords: pcl-cvs
! ;; Revision: $Id: pcvs-util.el,v 1.17 2001/12/20 18:43:07 pj Exp $
;; This file is part of GNU Emacs.
--- 5,11 ----
;; Author: Stefan Monnier <address@hidden>
;; Keywords: pcl-cvs
! ;; Revision: $Id: pcvs-util.el,v 1.18 2003/02/04 11:57:16 lektu Exp $
;; This file is part of GNU Emacs.
***************
*** 50,56 ****
(let ((zs ys))
(dolist (x xs zs)
(unless (member x ys) (push x zs)))))
!
(defun cvs-map (-cvs-map-f &rest -cvs-map-ls)
(unless (cvs-every 'null -cvs-map-ls)
--- 50,56 ----
(let ((zs ys))
(dolist (x xs zs)
(unless (member x ys) (push x zs)))))
!
(defun cvs-map (-cvs-map-f &rest -cvs-map-ls)
(unless (cvs-every 'null -cvs-map-ls)
***************
*** 135,141 ****
(let ((mainwin (or (get-buffer-window mainbuf)
(get-buffer-window mainbuf 'visible))))
(when mainwin (select-window mainwin))))))
!
(defun cvs-get-buffer-create (name &optional noreuse)
"Create a buffer NAME unless such a buffer already exists.
If the NAME looks like an absolute file name, the buffer will be created
--- 135,141 ----
(let ((mainwin (or (get-buffer-window mainbuf)
(get-buffer-window mainbuf 'visible))))
(when mainwin (select-window mainwin))))))
!
(defun cvs-get-buffer-create (name &optional noreuse)
"Create a buffer NAME unless such a buffer already exists.
If the NAME looks like an absolute file name, the buffer will be created
***************
*** 231,239 ****
(cvs-string->strings (substring string (cdr rfs))
sep)))))))
! ;;;;
;;;; file names
! ;;;;
(defsubst cvs-expand-dir-name (d)
(file-name-as-directory (expand-file-name d)))
--- 231,239 ----
(cvs-string->strings (substring string (cdr rfs))
sep)))))))
! ;;;;
;;;; file names
! ;;;;
(defsubst cvs-expand-dir-name (d)
(file-name-as-directory (expand-file-name d)))
***************
*** 273,281 ****
initval hist-sym))
(t initval)))))
! ;;;;
;;;; Flags handling
! ;;;;
(defstruct (cvs-flags
(:constructor nil)
--- 273,281 ----
initval hist-sym))
(t initval)))))
! ;;;;
;;;; Flags handling
! ;;;;
(defstruct (cvs-flags
(:constructor nil)
***************
*** 335,343 ****
"Set SYM's INDEX'th setting to VALUE."
(setf (nth index (cvs-flags-defaults (symbol-value sym))) value))
! ;;;;
;;;; Prefix keys
! ;;;;
(defconst cvs-prefix-number 10)
--- 335,343 ----
"Set SYM's INDEX'th setting to VALUE."
(setf (nth index (cvs-flags-defaults (symbol-value sym))) value))
! ;;;;
;;;; Prefix keys
! ;;;;
(defconst cvs-prefix-number 10)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/pcvs-util.el,
Miles Bader <=