From b47e5116920612b48448c1bd5c110a11f507b6b5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 7 Mar 2001 00:20:30 +0000 Subject: [PATCH] (cvs-ignore-marks-modif): Use `rassoc' rather than `member*'. (cvs-mode-add-change-log-entry-other-window): Don't presume change-log-default-name is defined. --- lisp/pcvs.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 5d8ee400f34..19d87737c81 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -13,7 +13,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.24 2001/01/26 20:46:42 fx Exp $ +;; Revision: $Id: pcvs.el,v 1.25 2001/01/29 20:22:28 monnier Exp $ ;; This file is part of GNU Emacs. @@ -1175,7 +1175,7 @@ they should always be unmarked." (mapcar 'cdr cvs-ignore-marks-alternatives) (cvs-qtypedesc-create (lambda (str) (cdr (assoc str cvs-ignore-marks-alternatives))) - (lambda (obj) (caar (member* obj cvs-ignore-marks-alternatives :key 'cdr))) + (lambda (obj) (car (rassoc obj cvs-ignore-marks-alternatives))) (lambda () cvs-ignore-marks-alternatives) nil t)) @@ -1922,8 +1922,8 @@ With prefix argument, prompt for cvs flags." (interactive) (let* ((fi (cvs-mode-marked nil nil :one t)) (default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi))) - (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))) - (change-log-default-name change-log-default-name)) + (buffer-file-name (expand-file-name (cvs-fileinfo->file fi)))) + (kill-local-variable 'change-log-default-name) (add-change-log-entry-other-window))) ;; interactive commands to set optional flags -- 2.39.5