mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Remove vc-header-alist, obsolete since 21.1.

Browse Source 
* lisp/vc/vc-hooks.el (vc-header-alist): Remove obsolete variable.
* lisp/vc/vc.el (vc-static-header-alist): Doc fix.
* lisp/vc/vc-cvs.el (vc-cvs-header):
* lisp/vc/vc-rcs.el (vc-rcs-header):
* lisp/vc/vc-sccs.el (vc-sccs-header):
* lisp/vc/vc-svn.el (vc-svn-header): Do not consult vc-header-alist.
* lisp/obsolete/vc-mcvs.el (vc-mcvs-header):
* lisp/progmodes/cperl-mode.el (cperl-mode): Only set vc-header-alist
on XEmacs.

* etc/NEWS: Mention above change.
This commit is contained in:
Glenn Morris 2010-10-03 14:05:47 -07:00
parent d99a45914d
commit 67141a37c1
10 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/NEWS
View File

@ -559,7 +559,7 @@ make-local-hook
** The following variables and aliases, obsolete since at least Emacs 21.1,
have been removed:
checkdoc-minor-keymap
checkdoc-minor-keymap, vc-header-alist
* Lisp changes in Emacs 24.1

12
lisp/ChangeLog
View File

@ -1,3 +1,15 @@
2010-10-03 Glenn Morris <rgm@gnu.org>
* vc/vc-hooks.el (vc-header-alist): Remove obsolete variable.
* vc/vc.el (vc-static-header-alist): Doc fix.
* vc/vc-cvs.el (vc-cvs-header):
* vc/vc-rcs.el (vc-rcs-header):
* vc/vc-sccs.el (vc-sccs-header):
* vc/vc-svn.el (vc-svn-header): Do not consult vc-header-alist.
* obsolete/vc-mcvs.el (vc-mcvs-header):
* progmodes/cperl-mode.el (cperl-mode): Only set vc-header-alist
on XEmacs.
2010-10-03 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/bytecomp.el (byte-compile-from-buffer): Remove

5
lisp/obsolete/vc-mcvs.el
View File

@ -102,10 +102,9 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
:version "22.1"
:group 'vc)
(defcustom vc-mcvs-header (or (cdr (assoc 'MCVS vc-header-alist))
vc-cvs-header)
(defcustom vc-mcvs-header vc-cvs-header
"Header keywords to be inserted by `vc-insert-headers'."
:version "22.1"
:version "24.1" ; no longer consult the obsolete vc-header-alist
:type '(repeat string)
:group 'vc)

17
lisp/progmodes/cperl-mode.el
View File

@ -1,8 +1,8 @@
;;; cperl-mode.el --- Perl code editing commands for Emacs
;; Copyright (C) 1985, 1986, 1987, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
;; 2010 Free Software Foundation, Inc.
;; Author: Ilya Zakharevich
;; Bob Olson
@ -1802,13 +1802,12 @@ or as help on variables `cperl-tips', `cperl-problems',
(set 'vc-rcs-header cperl-vc-rcs-header)
(make-local-variable 'vc-sccs-header)
(set 'vc-sccs-header cperl-vc-sccs-header)
;; This one is obsolete...
(make-local-variable 'vc-header-alist)
(with-no-warnings
(set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
`((SCCS ,(car cperl-vc-sccs-header))
(RCS ,(car cperl-vc-rcs-header)))))
)
(when (featurep 'xemacs)
;; This one is obsolete...
(make-local-variable 'vc-header-alist)
(set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
`((SCCS ,(car cperl-vc-sccs-header))
(RCS ,(car cperl-vc-rcs-header))))))
(cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
(make-local-variable 'compilation-error-regexp-alist-alist)
(set 'compilation-error-regexp-alist-alist

4
lisp/vc/vc-cvs.el
View File

@ -92,9 +92,9 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
:version "21.1"
:group 'vc)
(defcustom vc-cvs-header (or (cdr (assoc 'CVS vc-header-alist)) '("\$Id\$"))
(defcustom vc-cvs-header '("\$Id\$")
"Header keywords to be inserted by `vc-insert-headers'."
:version "21.1"
:version "24.1" ; no longer consult the obsolete vc-header-alist
:type '(repeat string)
:group 'vc)

3
lisp/vc/vc-hooks.el
View File

@ -49,9 +49,6 @@ vc-BACKEND-master-templates. To enable or disable VC for a given
BACKEND, use `vc-handled-backends'."
"21.1")
(defvar vc-header-alist ())
(make-obsolete-variable 'vc-header-alist 'vc-BACKEND-header "21.1")
(defcustom vc-ignore-dir-regexp
;; Stop SMB, automounter, AFS, and DFS host lookups.
locate-dominating-stop-dir-regexp

4
lisp/vc/vc-rcs.el
View File

@ -77,10 +77,10 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
:version "21.1"
:group 'vc)
(defcustom vc-rcs-header (or (cdr (assoc 'RCS vc-header-alist)) '("\$Id\$"))
(defcustom vc-rcs-header '("\$Id\$")
"Header keywords to be inserted by `vc-insert-headers'."
:type '(repeat string)
:version "21.1"
:version "24.1" ; no longer consult the obsolete vc-header-alist
:group 'vc)
(defcustom vc-rcsdiff-knows-brief nil

3
lisp/vc/vc-sccs.el
View File

@ -71,9 +71,10 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
:version "21.1"
:group 'vc)
(defcustom vc-sccs-header (or (cdr (assoc 'SCCS vc-header-alist)) '("%W%"))
(defcustom vc-sccs-header '("%W%")
"Header keywords to be inserted by `vc-insert-headers'."
:type '(repeat string)
:version "24.1" ; no longer consult the obsolete vc-header-alist
:group 'vc)
;;;###autoload

4
lisp/vc/vc-svn.el
View File

@ -84,9 +84,9 @@ want to force an empty list of arguments, use t."
:version "22.1"
:group 'vc)
(defcustom vc-svn-header (or (cdr (assoc 'SVN vc-header-alist)) '("\$Id\$"))
(defcustom vc-svn-header '("\$Id\$")
"Header keywords to be inserted by `vc-insert-headers'."
:version "22.1"
:version "24.1" ; no longer consult the obsolete vc-header-alist
:type '(repeat string)
:group 'vc)

2
lisp/vc/vc.el
View File

@ -770,7 +770,7 @@ See `run-hooks'."
"\n#ifndef lint\nstatic char vcid[] = \"\%s\";\n#endif /* lint */\n"))
"Associate static header string templates with file types.
A \%s in the template is replaced with the first string associated with
the file's version control type in `vc-header-alist'."
the file's version control type in `vc-BACKEND-header'."
:type '(repeat (cons :format "%v"
(regexp :tag "File Type")
(string :tag "Header String")))