From: Stefan Monnier Date: Wed, 20 Apr 2011 17:18:34 +0000 (-0300) Subject: * lisp/obsolete/erc-hecomplete.el: Make obsolete. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~215^2~59 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bed7f14004246c8ade77a48f79f0cc48f2ca74f7;p=emacs.git * lisp/obsolete/erc-hecomplete.el: Make obsolete. * obsolete/: Standardize obsolescence info in the header. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 867d7f9aa23..a7aedca6944 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-04-20 Stefan Monnier + + * obsolete/erc-hecomplete.el: Make obsolete. + * obsolete/: Standardize obsolescence info in the header. + 2011-04-20 Glenn Morris * calendar/solar.el (solar-horizontal-coordinates): diff --git a/lisp/erc/erc-hecomplete.el b/lisp/erc/erc-hecomplete.el deleted file mode 100644 index 530c586d24f..00000000000 --- a/lisp/erc/erc-hecomplete.el +++ /dev/null @@ -1,222 +0,0 @@ -;;; erc-hecomplete.el --- Provides Nick name completion for ERC - -;; Copyright (C) 2001-2002, 2004, 2006-2011 Free Software Foundation, Inc. - -;; Author: Alex Schroeder -;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;; This file is considered obsolete. It is recommended to use -;; completion from erc-pcomplete instead. - -;; This file is based on hippie-expand, while the new file is based on -;; pcomplete. - -;;; Code: - -(require 'erc) -(require 'erc-match); for erc-pals -(require 'hippie-exp); for the hippie expand stuff - -;;;###autoload (autoload 'erc-hecomplete-mode "erc-hecomplete" nil t) -(define-erc-module hecomplete nil - "Complete nick at point." - ((add-hook 'erc-complete-functions 'erc-hecomplete)) - ((remove-hook 'erc-complete-functions 'erc-hecomplete))) - -(defun erc-hecomplete () - "Complete nick at point. -See `erc-try-complete-nick' for more technical info. -This function is obsolete, use `erc-pcomplete' instead." - (interactive) - (let ((hippie-expand-try-functions-list '(erc-try-complete-nick))) - (hippie-expand nil))) - -(defgroup erc-hecomplete nil - "Nick completion. It is recommended to use erc-pcomplete instead." - :group 'erc) - -(defcustom erc-nick-completion 'all - "Determine how the list of nicks is determined during nick completion. -See `erc-complete-nick' for information on how to activate this. - -pals: Use `erc-pals'. -all: All channel members. - -You may also provide your own function that returns a list of completions. -One example is `erc-nick-completion-exclude-myself', -or you may use an arbitrary lisp expression." - :type '(choice (const :tag "List of pals" pals) - (const :tag "All channel members" all) - (const :tag "All channel members except yourself" - erc-nick-completion-exclude-myself) - (repeat :tag "List" (string :tag "Nick")) - function - sexp) - :group 'erc-hecomplete) - -(defcustom erc-nick-completion-ignore-case t - "*Non-nil means don't consider case significant in nick completion. -Case will be automatically corrected when non-nil. -For instance if you type \"dely TAB\" the word completes and changes to -\"delYsid\"." - :group 'erc-hecomplete - :type 'boolean) - -(defun erc-nick-completion-exclude-myself () - "Get a list of all the channel members except you. - -This function returns a list of all the members in the channel, except -your own nick. This way if you're named foo and someone is called foobar, -typing \"f o TAB\" will directly give you foobar. Use this with -`erc-nick-completion'." - (remove - (erc-current-nick) - (erc-get-channel-nickname-list))) - -(defcustom erc-nick-completion-postfix ": " - "*When `erc-complete' is used in the first word after the prompt, -add this string when a unique expansion was found." - :group 'erc-hecomplete - :type 'string) - -(defun erc-command-list () - "Returns a list of strings of the defined user commands." - (let ((case-fold-search nil)) - (mapcar (lambda (x) - (concat "/" (downcase (substring (symbol-name x) 8)))) - (apropos-internal "erc-cmd-[A-Z]+")))) - -(defun erc-try-complete-nick (old) - "Complete nick at point. -This is a function to put on `hippie-expand-try-functions-list'. -Then use \\[hippie-expand] to expand nicks. -The type of completion depends on `erc-nick-completion'." - (cond ((eq erc-nick-completion 'pals) - (try-complete-erc-nick old erc-pals)) - ((eq erc-nick-completion 'all) - (try-complete-erc-nick old (append - (erc-get-channel-nickname-list) - (erc-command-list)))) - ((functionp erc-nick-completion) - (try-complete-erc-nick old (funcall erc-nick-completion))) - (t - (try-complete-erc-nick old erc-nick-completion)))) - -(defvar try-complete-erc-nick-window-configuration nil - "The window configuration for `try-complete-erc-nick'. -When called the first time, a window config is stored here, -and when completion is done, the window config is restored -from here. See `try-complete-erc-nick-restore' and -`try-complete-erc-nick'.") - -(defun try-complete-erc-nick-restore () - "Restore window configuration." - (if (not try-complete-erc-nick-window-configuration) - (when (get-buffer "*Completions*") - (delete-windows-on "*Completions*")) - (set-window-configuration - try-complete-erc-nick-window-configuration) - (setq try-complete-erc-nick-window-configuration nil))) - -(defun try-complete-erc-nick (old completions) - "Try to complete current word depending on `erc-try-complete-nick'. -The argument OLD has to be nil the first call of this function, and t -for subsequent calls (for further possible completions of the same -string). It returns t if a new completion is found, nil otherwise. The -second argument COMPLETIONS is a list of completions to use. Actually, -it is only used when OLD is nil. It will be copied to `he-expand-list' -on the first call. After that, it is no longer used. -Window configurations are stored in -`try-complete-erc-nick-window-configuration'." - (let (expansion - final - (alist (if (consp (car completions)) - completions - (mapcar (lambda (s) - (if (and (erc-complete-at-prompt) - (and (not (= (length s) 0)) - (not (eq (elt s 0) ?/)))) - (list (concat s erc-nick-completion-postfix)) - (list (concat s " ")))) - completions))) ; make alist if required - (completion-ignore-case erc-nick-completion-ignore-case)) - (he-init-string (he-dabbrev-beg) (point)) - ;; If there is a string to complete, complete it using alist. - ;; expansion is the possible expansion, or t. If expansion is t - ;; or if expansion is the "real" thing, we are finished (final is - ;; t). Take care -- expansion can also be nil! - (unless (string= he-search-string "") - (setq expansion (try-completion he-search-string alist) - final (or (eq t expansion) - (and expansion - (eq t (try-completion expansion alist)))))) - (cond ((not expansion) - ;; There is no expansion at all. - (try-complete-erc-nick-restore) - (he-reset-string) - nil) - ((eq t expansion) - ;; The user already has the correct expansion. - (try-complete-erc-nick-restore) - (he-reset-string) - t) - ((and old (string= expansion he-search-string)) - ;; This is the second time around and nothing changed, - ;; ie. the user tried to expand something incomplete - ;; without making a choice -- hitting TAB twice, for - ;; example. - (try-complete-erc-nick-restore) - (he-reset-string) - nil) - (final - ;; The user has found the correct expansion. - (try-complete-erc-nick-restore) - (he-substitute-string expansion) - t) - (t - ;; We found something but we are not finished. Show a - ;; completions buffer. Substitute what we found and return - ;; t. - (setq try-complete-erc-nick-window-configuration - (current-window-configuration)) - (with-output-to-temp-buffer "*Completions*" - (display-completion-list (all-completions he-search-string alist))) - (he-substitute-string expansion) - t)))) - -(defun erc-at-beginning-of-line-p (point &optional bol-func) - (save-excursion - (funcall (or bol-func - 'erc-bol)) - (equal point (point)))) - -(defun erc-complete-at-prompt () - "Returns t if point is directly after `erc-prompt' when doing completion." - (erc-at-beginning-of-line-p (he-dabbrev-beg))) - -(provide 'erc-hecomplete) - -;;; erc-hecomplete.el ends here -;; -;; Local Variables: -;; indent-tabs-mode: t -;; tab-width: 8 -;; End: - diff --git a/lisp/obsolete/awk-mode.el b/lisp/obsolete/awk-mode.el index d09ff1dd892..1a6d08c08ef 100644 --- a/lisp/obsolete/awk-mode.el +++ b/lisp/obsolete/awk-mode.el @@ -4,6 +4,7 @@ ;; Maintainer: FSF ;; Keywords: unix, languages +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -22,8 +23,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Sets up C-mode with support for awk-style #-comments and a lightly ;; hacked syntax table. diff --git a/lisp/obsolete/erc-hecomplete.el b/lisp/obsolete/erc-hecomplete.el new file mode 100644 index 00000000000..67f51d690b2 --- /dev/null +++ b/lisp/obsolete/erc-hecomplete.el @@ -0,0 +1,221 @@ +;;; erc-hecomplete.el --- Provides Nick name completion for ERC + +;; Copyright (C) 2001-2002, 2004, 2006-2011 Free Software Foundation, Inc. + +;; Author: Alex Schroeder +;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcCompletion +;; Obsolete-since: 24.1 + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;; This file is considered obsolete. It is recommended to use +;; completion from erc-pcomplete instead. + +;; This file is based on hippie-expand, while the new file is based on +;; pcomplete. + +;;; Code: + +(require 'erc) +(require 'erc-match); for erc-pals +(require 'hippie-exp); for the hippie expand stuff + +;;;###autoload (autoload 'erc-hecomplete-mode "erc-hecomplete" nil t) +(define-erc-module hecomplete nil + "Complete nick at point." + ((add-hook 'erc-complete-functions 'erc-hecomplete)) + ((remove-hook 'erc-complete-functions 'erc-hecomplete))) + +(defun erc-hecomplete () + "Complete nick at point. +See `erc-try-complete-nick' for more technical info. +This function is obsolete, use `erc-pcomplete' instead." + (interactive) + (let ((hippie-expand-try-functions-list '(erc-try-complete-nick))) + (hippie-expand nil))) + +(defgroup erc-hecomplete nil + "Nick completion. It is recommended to use erc-pcomplete instead." + :group 'erc) + +(defcustom erc-nick-completion 'all + "Determine how the list of nicks is determined during nick completion. +See `erc-complete-nick' for information on how to activate this. + +pals: Use `erc-pals'. +all: All channel members. + +You may also provide your own function that returns a list of completions. +One example is `erc-nick-completion-exclude-myself', +or you may use an arbitrary lisp expression." + :type '(choice (const :tag "List of pals" pals) + (const :tag "All channel members" all) + (const :tag "All channel members except yourself" + erc-nick-completion-exclude-myself) + (repeat :tag "List" (string :tag "Nick")) + function + sexp) + :group 'erc-hecomplete) + +(defcustom erc-nick-completion-ignore-case t + "*Non-nil means don't consider case significant in nick completion. +Case will be automatically corrected when non-nil. +For instance if you type \"dely TAB\" the word completes and changes to +\"delYsid\"." + :group 'erc-hecomplete + :type 'boolean) + +(defun erc-nick-completion-exclude-myself () + "Get a list of all the channel members except you. + +This function returns a list of all the members in the channel, except +your own nick. This way if you're named foo and someone is called foobar, +typing \"f o TAB\" will directly give you foobar. Use this with +`erc-nick-completion'." + (remove + (erc-current-nick) + (erc-get-channel-nickname-list))) + +(defcustom erc-nick-completion-postfix ": " + "*When `erc-complete' is used in the first word after the prompt, +add this string when a unique expansion was found." + :group 'erc-hecomplete + :type 'string) + +(defun erc-command-list () + "Returns a list of strings of the defined user commands." + (let ((case-fold-search nil)) + (mapcar (lambda (x) + (concat "/" (downcase (substring (symbol-name x) 8)))) + (apropos-internal "erc-cmd-[A-Z]+")))) + +(defun erc-try-complete-nick (old) + "Complete nick at point. +This is a function to put on `hippie-expand-try-functions-list'. +Then use \\[hippie-expand] to expand nicks. +The type of completion depends on `erc-nick-completion'." + (try-complete-erc-nick old (cond ((eq erc-nick-completion 'pals) erc-pals) + ((eq erc-nick-completion 'all) + (append + (erc-get-channel-nickname-list) + (erc-command-list))) + ((functionp erc-nick-completion) + (funcall erc-nick-completion)) + (t erc-nick-completion)))) + +(defvar try-complete-erc-nick-window-configuration nil + "The window configuration for `try-complete-erc-nick'. +When called the first time, a window config is stored here, +and when completion is done, the window config is restored +from here. See `try-complete-erc-nick-restore' and +`try-complete-erc-nick'.") + +(defun try-complete-erc-nick-restore () + "Restore window configuration." + (if (not try-complete-erc-nick-window-configuration) + (when (get-buffer "*Completions*") + (delete-windows-on "*Completions*")) + (set-window-configuration + try-complete-erc-nick-window-configuration) + (setq try-complete-erc-nick-window-configuration nil))) + +(defun try-complete-erc-nick (old completions) + "Try to complete current word depending on `erc-try-complete-nick'. +The argument OLD has to be nil the first call of this function, and t +for subsequent calls (for further possible completions of the same +string). It returns t if a new completion is found, nil otherwise. The +second argument COMPLETIONS is a list of completions to use. Actually, +it is only used when OLD is nil. It will be copied to `he-expand-list' +on the first call. After that, it is no longer used. +Window configurations are stored in +`try-complete-erc-nick-window-configuration'." + (let (expansion + final + (alist (if (consp (car completions)) + completions + (mapcar (lambda (s) + (if (and (erc-complete-at-prompt) + (and (not (= (length s) 0)) + (not (eq (elt s 0) ?/)))) + (list (concat s erc-nick-completion-postfix)) + (list (concat s " ")))) + completions))) ; make alist if required + (completion-ignore-case erc-nick-completion-ignore-case)) + (he-init-string (he-dabbrev-beg) (point)) + ;; If there is a string to complete, complete it using alist. + ;; expansion is the possible expansion, or t. If expansion is t + ;; or if expansion is the "real" thing, we are finished (final is + ;; t). Take care -- expansion can also be nil! + (unless (string= he-search-string "") + (setq expansion (try-completion he-search-string alist) + final (or (eq t expansion) + (and expansion + (eq t (try-completion expansion alist)))))) + (cond ((not expansion) + ;; There is no expansion at all. + (try-complete-erc-nick-restore) + (he-reset-string) + nil) + ((eq t expansion) + ;; The user already has the correct expansion. + (try-complete-erc-nick-restore) + (he-reset-string) + t) + ((and old (string= expansion he-search-string)) + ;; This is the second time around and nothing changed, + ;; ie. the user tried to expand something incomplete + ;; without making a choice -- hitting TAB twice, for + ;; example. + (try-complete-erc-nick-restore) + (he-reset-string) + nil) + (final + ;; The user has found the correct expansion. + (try-complete-erc-nick-restore) + (he-substitute-string expansion) + t) + (t + ;; We found something but we are not finished. Show a + ;; completions buffer. Substitute what we found and return + ;; t. + (setq try-complete-erc-nick-window-configuration + (current-window-configuration)) + (with-output-to-temp-buffer "*Completions*" + (display-completion-list (all-completions he-search-string alist))) + (he-substitute-string expansion) + t)))) + +(defun erc-at-beginning-of-line-p (point &optional bol-func) + (save-excursion + (funcall (or bol-func + 'erc-bol)) + (equal point (point)))) + +(defun erc-complete-at-prompt () + "Returns t if point is directly after `erc-prompt' when doing completion." + (erc-at-beginning-of-line-p (he-dabbrev-beg))) + +(provide 'erc-hecomplete) + +;;; erc-hecomplete.el ends here +;; +;; Local Variables: +;; indent-tabs-mode: t +;; tab-width: 8 +;; End: + diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index a59e7871458..9c750ca5e89 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el @@ -6,6 +6,7 @@ ;; Maintainer: FSF ;; Keywords: faces files ;; Version: 3.14 +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -24,8 +25,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Fast Lock mode is a Font Lock support mode. ;; It makes visiting a file in Font Lock mode faster by restoring its face text ;; properties from automatically saved associated Font Lock cache files. diff --git a/lisp/obsolete/iso-acc.el b/lisp/obsolete/iso-acc.el index 14b6a202012..cb06091dfcf 100644 --- a/lisp/obsolete/iso-acc.el +++ b/lisp/obsolete/iso-acc.el @@ -5,6 +5,7 @@ ;; Author: Johan Vromans ;; Maintainer: FSF ;; Keywords: i18n +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -23,8 +24,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Function `iso-accents-mode' activates a minor mode in which ;; typewriter "dead keys" are emulated. The purpose of this emulation ;; is to provide a simple means for inserting accented characters diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el index 3f3b6d4abb3..c223d096730 100644 --- a/lisp/obsolete/iso-insert.el +++ b/lisp/obsolete/iso-insert.el @@ -5,6 +5,7 @@ ;; Author: Howard Gayle ;; Maintainer: FSF ;; Keywords: i18n +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -23,8 +24,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Provides keys for inserting ISO Latin-1 characters. They use the ;; prefix key C-x 8. Type C-x 8 C-h for a list. diff --git a/lisp/obsolete/iso-swed.el b/lisp/obsolete/iso-swed.el index d197f0d5b67..43686283e89 100644 --- a/lisp/obsolete/iso-swed.el +++ b/lisp/obsolete/iso-swed.el @@ -5,6 +5,7 @@ ;; Author: Howard Gayle ;; Maintainer: FSF ;; Keywords: i18n +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -23,8 +24,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Written by Howard Gayle. See case-table.el for details. ;;; Code: diff --git a/lisp/obsolete/keyswap.el b/lisp/obsolete/keyswap.el index f95b8f5bdb5..ec1263e5189 100644 --- a/lisp/obsolete/keyswap.el +++ b/lisp/obsolete/keyswap.el @@ -4,6 +4,7 @@ ;; Author: Eric S. Raymond ;; Keywords: terminals +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -22,8 +23,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; This package is meant to be called by other terminal packages. ;;; Code: diff --git a/lisp/obsolete/lazy-lock.el b/lisp/obsolete/lazy-lock.el index f922a5c30b6..a04db4a0c72 100644 --- a/lisp/obsolete/lazy-lock.el +++ b/lisp/obsolete/lazy-lock.el @@ -6,6 +6,7 @@ ;; Maintainer: FSF ;; Keywords: faces files ;; Version: 2.11 +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -24,8 +25,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Purpose: ;; ;; Lazy Lock mode is a Font Lock support mode. diff --git a/lisp/obsolete/old-whitespace.el b/lisp/obsolete/old-whitespace.el index be967938bc9..c33794f668d 100644 --- a/lisp/obsolete/old-whitespace.el +++ b/lisp/obsolete/old-whitespace.el @@ -4,6 +4,7 @@ ;; Author: Rajesh Vaidheeswarran ;; Keywords: convenience +;; Obsolete-since: 23.1 ;; This file is part of GNU Emacs. @@ -22,8 +23,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 23.1. - ;; URL: http://www.dsmit.com/lisp/ ;; ;; The whitespace library is intended to find and help fix five different types diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el index 1b475e9e98b..7c1c3552e2d 100644 --- a/lisp/obsolete/options.el +++ b/lisp/obsolete/options.el @@ -3,6 +3,7 @@ ;; Copyright (C) 1985, 2001-2011 Free Software Foundation, Inc. ;; Maintainer: FSF +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -21,8 +22,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; This code provides functions to list and edit the values of all global ;; option variables known to loaded Emacs Lisp code. There are two entry ;; points, `list-options' and `edit' options'. The latter enters a major diff --git a/lisp/obsolete/resume.el b/lisp/obsolete/resume.el index 6b52ef28784..c9df1184d90 100644 --- a/lisp/obsolete/resume.el +++ b/lisp/obsolete/resume.el @@ -5,6 +5,7 @@ ;; Author: Joe Wells ;; Adapted-By: ESR ;; Keywords: processes +;; Obsolete-since: 23.1 ;; This file is part of GNU Emacs. @@ -23,8 +24,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 23.1. - ;; The purpose of this library is to handle command line arguments ;; when you resume an existing Emacs job. diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el index 3f543b38e44..1fbc9bc4158 100644 --- a/lisp/obsolete/scribe.el +++ b/lisp/obsolete/scribe.el @@ -6,6 +6,7 @@ ;; (according to ack.texi) ;; Maintainer: FSF ;; Keywords: wp +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -24,8 +25,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; A major mode for editing source in written for the Scribe text formatter. ;; Knows about Scribe syntax and standard layout rules. The command to ;; run Scribe on a buffer is bogus; someone interested should fix it. diff --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el index 4b82a74bce7..c31af8697ef 100644 --- a/lisp/obsolete/swedish.el +++ b/lisp/obsolete/swedish.el @@ -5,6 +5,7 @@ ;; Author: Howard Gayle ;; Maintainer: FSF ;; Keywords: i18n +;; Obsolete-since: 22.1 ;; This file is part of GNU Emacs. @@ -23,8 +24,6 @@ ;;; Commentary: -;; This file has been obsolete since Emacs 22.1. - ;; Fixme: Is this actually used? if so, it should be in language, ;; possibly as a feature property of Swedish, probably defining a ;; `swascii' coding system. diff --git a/lisp/obsolete/vc-mcvs.el b/lisp/obsolete/vc-mcvs.el index 06ce7f41c65..980cdbfd71b 100644 --- a/lisp/obsolete/vc-mcvs.el +++ b/lisp/obsolete/vc-mcvs.el @@ -4,6 +4,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: None +;; Obsolete-since: 23.1 ;; This file is part of GNU Emacs. @@ -30,9 +31,6 @@ ;; ;; ********** READ THIS! ********** -;; This file has been obsolete and unsupported since Emacs 23.1. - - ;; The home page of the Meta-CVS version control system is at ;; ;; http://users.footprints.net/~kaz/mcvs.html