mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-17 10:06:13 +00:00
169 lines
5.7 KiB
EmacsLisp
169 lines
5.7 KiB
EmacsLisp
;;; erc-compat.el --- ERC compatibility code for XEmacs
|
|
|
|
;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2009
|
|
;; Free Software Foundation, Inc.
|
|
|
|
;; Author: Alex Schroeder <alex@gnu.org>
|
|
;; URL: http://www.emacswiki.org/cgi-bin/wiki/ERC
|
|
|
|
;; 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 mostly defines stuff that cannot be worked around easily.
|
|
|
|
;;; Code:
|
|
|
|
(require 'format-spec)
|
|
|
|
;;;###autoload (autoload 'erc-define-minor-mode "erc-compat")
|
|
(defalias 'erc-define-minor-mode 'define-minor-mode)
|
|
(put 'erc-define-minor-mode 'edebug-form-spec 'define-minor-mode)
|
|
|
|
(defun erc-decode-coding-string (s coding-system)
|
|
"Decode S using CODING-SYSTEM."
|
|
(decode-coding-string s coding-system t))
|
|
|
|
(defun erc-encode-coding-string (s coding-system)
|
|
"Encode S using CODING-SYSTEM.
|
|
Return the same string, if the encoding operation is trivial.
|
|
See `erc-encoding-coding-alist'."
|
|
(encode-coding-string s coding-system t))
|
|
|
|
(defalias 'erc-propertize 'propertize)
|
|
(defalias 'erc-view-mode-enter 'view-mode-enter)
|
|
(autoload 'help-function-arglist "help-fns")
|
|
(defalias 'erc-function-arglist 'help-function-arglist)
|
|
(defalias 'erc-delete-dups 'delete-dups)
|
|
(defalias 'erc-replace-regexp-in-string 'replace-regexp-in-string)
|
|
|
|
(defun erc-set-write-file-functions (new-val)
|
|
(set (make-local-variable 'write-file-functions) new-val))
|
|
|
|
(defvar erc-emacs-build-time
|
|
(if (stringp emacs-build-time)
|
|
emacs-build-time
|
|
(format-time-string "%Y-%m-%d" emacs-build-time))
|
|
"Time at which Emacs was dumped out.")
|
|
|
|
;; Emacs 21 and XEmacs do not have user-emacs-directory, but XEmacs
|
|
;; has user-init-directory.
|
|
(defvar erc-user-emacs-directory
|
|
(cond ((boundp 'user-emacs-directory)
|
|
user-emacs-directory)
|
|
((boundp 'user-init-directory)
|
|
user-init-directory)
|
|
(t "~/.emacs.d/"))
|
|
"Directory beneath which additional per-user Emacs-specific files
|
|
are placed.
|
|
Note that this should end with a directory separator.")
|
|
|
|
;; XEmacs' `replace-match' does not replace matching subexpressions in strings.
|
|
(defun erc-replace-match-subexpression-in-string
|
|
(newtext string match subexp start &optional fixedcase literal)
|
|
"Replace the subexpression SUBEXP of the last match in STRING with NEWTEXT.
|
|
MATCH is the text which matched the subexpression (see `match-string').
|
|
START is the beginning position of the last match (see `match-beginning').
|
|
See `replace-match' for explanations of FIXEDCASE and LITERAL."
|
|
(cond ((featurep 'xemacs)
|
|
(string-match match string start)
|
|
(replace-match newtext fixedcase literal string))
|
|
(t (replace-match newtext fixedcase literal string subexp))))
|
|
|
|
(defalias 'erc-with-selected-window 'with-selected-window)
|
|
(defalias 'erc-cancel-timer 'cancel-timer)
|
|
(defalias 'erc-make-obsolete 'make-obsolete)
|
|
(defalias 'erc-make-obsolete-variable 'make-obsolete-variable)
|
|
|
|
;; Provide a simpler replacement for `member-if'
|
|
(defun erc-member-if (predicate list)
|
|
"Find the first item satisfying PREDICATE in LIST.
|
|
Return the sublist of LIST whose car matches."
|
|
(let ((ptr list))
|
|
(catch 'found
|
|
(while ptr
|
|
(when (funcall predicate (car ptr))
|
|
(throw 'found ptr))
|
|
(setq ptr (cdr ptr))))))
|
|
|
|
;; Provide a simpler replacement for `delete-if'
|
|
(defun erc-delete-if (predicate seq)
|
|
"Remove all items satisfying PREDICATE in SEQ.
|
|
This is a destructive function: it reuses the storage of SEQ
|
|
whenever possible."
|
|
;; remove from car
|
|
(while (when (funcall predicate (car seq))
|
|
(setq seq (cdr seq))))
|
|
;; remove from cdr
|
|
(let ((ptr seq)
|
|
(next (cdr seq)))
|
|
(while next
|
|
(when (funcall predicate (car next))
|
|
(setcdr ptr (if (consp next)
|
|
(cdr next)
|
|
nil)))
|
|
(setq ptr (cdr ptr))
|
|
(setq next (cdr ptr))))
|
|
seq)
|
|
|
|
;; Provide a simpler replacement for `remove-if-not'
|
|
(defun erc-remove-if-not (predicate seq)
|
|
"Remove all items not satisfying PREDICATE in SEQ.
|
|
This is a non-destructive function; it makes a copy of SEQ to
|
|
avoid corrupting the original SEQ."
|
|
(let (newseq)
|
|
(dolist (el seq)
|
|
(when (funcall predicate el)
|
|
(setq newseq (cons el newseq))))
|
|
(nreverse newseq)))
|
|
|
|
;; Copied from cl-extra.el
|
|
(defun erc-subseq (seq start &optional end)
|
|
"Return the subsequence of SEQ from START to END.
|
|
If END is omitted, it defaults to the length of the sequence.
|
|
If START or END is negative, it counts from the end."
|
|
(if (stringp seq) (substring seq start end)
|
|
(let (len)
|
|
(and end (< end 0) (setq end (+ end (setq len (length seq)))))
|
|
(if (< start 0) (setq start (+ start (or len (setq len (length seq))))))
|
|
(cond ((listp seq)
|
|
(if (> start 0) (setq seq (nthcdr start seq)))
|
|
(if end
|
|
(let ((res nil))
|
|
(while (>= (setq end (1- end)) start)
|
|
(push (pop seq) res))
|
|
(nreverse res))
|
|
(copy-sequence seq)))
|
|
(t
|
|
(or end (setq end (or len (length seq))))
|
|
(let ((res (make-vector (max (- end start) 0) nil))
|
|
(i 0))
|
|
(while (< start end)
|
|
(aset res i (aref seq start))
|
|
(setq i (1+ i) start (1+ start)))
|
|
res))))))
|
|
|
|
(provide 'erc-compat)
|
|
|
|
;;; erc-compat.el ends here
|
|
;;
|
|
;; Local Variables:
|
|
;; indent-tabs-mode: t
|
|
;; tab-width: 8
|
|
;; End:
|
|
|
|
;; arch-tag: 8948ffe0-aff8-4ad8-a196-368ebbfd58ff
|