Mercurial > emacs
changeset 36615:c3af189df631
(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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 07 Mar 2001 00:20:30 +0000 |
| parents | dfaaee4447ff |
| children | 61f696f7e5f9 |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Wed Mar 07 00:19:08 2001 +0000 +++ b/lisp/pcvs.el Wed Mar 07 00:20:30 2001 +0000 @@ -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 @@ (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 @@ (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