mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
* lisp/obsolete/erc-hecomplete.el: Make obsolete.
* obsolete/: Standardize obsolescence info in the header.
This commit is contained in:
Stefan Monnier
parent
b2e59ad27f
commit
bed7f14004
15 changed files with 26 additions and 36 deletions
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
221
lisp/obsolete/erc-hecomplete.el
Normal file
221
lisp/obsolete/erc-hecomplete.el
Normal file
|
|
@ -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 <alex@gnu.org>
|
||||
;; 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 <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; 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:
|
||||
|
||||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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:
|
||||
|
|
|
|||
|
|
@ -4,6 +4,7 @@
|
|||
|
||||
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
|
||||
;; 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:
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -4,6 +4,7 @@
|
|||
|
||||
;; Author: Rajesh Vaidheeswarran <rv@gnu.org>
|
||||
;; 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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -5,6 +5,7 @@
|
|||
;; Author: Joe Wells <jbw@bucsf.bu.edu>
|
||||
;; 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.
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue