xemacs-beta: lisp/modes/arc-mode.el comparison

comparison lisp/modes/arc-mode.el @ 2:ac2d302a0011 r19-15b2

Import from CVS: tag r19-15b2

author	cvs
date	Mon, 13 Aug 2007 08:46:35 +0200
parents	376386a54a3c
children	28f395d8dc7a

comparison

equal deleted inserted replaced

-:c0c6a60d29db
+:ac2d302a0011
 ;;; arc-mode.el --- simple editing of archives
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995 Free Software Foundation, Inc.
 ;; Author: Morten Welinder (terra@diku.dk)
 ;; Keywords: archives msdog editing major-mode
 ;; Favourite-brand-of-beer: None, I hate beer.
-;;; This file is part of GNU Emacs.
+;; This file is part of XEmacs.
-;;;
-;;; GNU Emacs is free software; you can redistribute it and/or modify
+;; XEmacs is free software; you can redistribute it and/or modify it
-;;; it under the terms of the GNU General Public License as published by
+;; under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
+;; any later version.
-;;;
-;;; GNU Emacs is distributed in the hope that it will be useful,
+;; XEmacs is distributed in the hope that it will be useful, but
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; GNU General Public License for more details.
+;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
+;; You should have received a copy of the GNU General Public License
-;;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
-;;; Synched up with: FSF 19.30.
+;;; Synched up with: FSF 19.34.
 ;;; Commentary:
-;;
 ;; NAMING: "arc" is short for "archive" and does not refer specifically
 ;; to files whose name end in ".arc"
 ;;
 ;; This code does not decode any files internally, although it does
 ;; understand the directory level of the archives.  For this reason,
 ;;
 ;; ZOO         An archive header followed by a series of (header,file).
 ;;             Each member header points to the next.  The archive is
 ;;             terminated by a bogus header with a zero next link.
 ;; -------------------------------------
-;; HOOKS: `foo' means one the the supported archive types.
+;; HOOKS: `foo' means one of the supported archive types.
 ;;
 ;; archive-mode-hook
 ;; archive-foo-mode-hook
 ;; archive-extract-hooks
 "*Program and its options to run in order to extract a zip file member.
 Extraction should happen to standard output.  Archive and member name will
 be added.  If `archive-zip-use-pkzip' is non-nil then this program is
 expected to extract to a file junking the directory part of the name.")
-;; For several reasons the latter behaviour is not desireable in general.
+;; For several reasons the latter behaviour is not desirable in general.
 ;; (1) It uses more disk space.  (2) Error checking is worse or non-
 ;; existent.  (3) It tends to do funny things with other systems' file
 ;; names.
 (defvar archive-zip-expunge
 (defvar archive-files nil "Vector of file descriptors.  Each descriptor is
 a vector of [ext-file-name int-file-name case-fiddled mode ...]")
 (make-variable-buffer-local 'archive-files)
-(defvar archive-lemacs
+;; XEmacs change
+(defvar archive-xemacs
 (string-match "\\(Lucid\\|XEmacs\\)" emacs-version)
-"*Non-nil when running under under Lucid Emacs or Xemacs.")
+"*Non-nil when running under Lucid Emacs or XEmacs.")
 ;; -------------------------------------------------------------------------
 ;; Section: Support functions.
 (defsubst archive-name (suffix)
 (intern (concat "archive-" (symbol-name archive-subtype) "-" suffix)))
 (define-key archive-mode-map "E" 'archive-extract-other-window)
 (define-key archive-mode-map "M" 'archive-chmod-entry)
 (define-key archive-mode-map "G" 'archive-chgrp-entry)
 (define-key archive-mode-map "O" 'archive-chown-entry)
-(if archive-lemacs
+(if archive-xemacs
 (progn
 	;; Not a nice "solution" but it'll have to do
 	(define-key archive-mode-map "\C-xu" 'archive-undo)
 	(define-key archive-mode-map "\C-_" 'archive-undo))
 (substitute-key-definition 'undo 'archive-undo
 			       archive-mode-map global-map))
 (define-key archive-mode-map
-(if archive-lemacs 'button2 [mouse-2]) 'archive-mouse-extract)
+(if archive-xemacs 'button2 [mouse-2]) 'archive-mouse-extract)
-(if archive-lemacs
+(if archive-xemacs
 ()				; out of luck
 ;; Get rid of the Edit menu bar item to save space.
 (define-key archive-mode-map [menu-bar edit] 'undefined)
 (define-key archive-mode-map [menu-bar immediate]
 (set-buffer-modified-p modified)
 (goto-char archive-file-list-start)
 (archive-next-line no)))
 (defun archive-summarize-files (files)
-"Insert a desciption of a list of files annotated with proper mouse face"
+"Insert a description of a list of files annotated with proper mouse face"
 (setq archive-file-list-start (point-marker))
 (setq archive-file-name-indent (if files (aref (car files) 1) 0))
 ;; We don't want to do an insert for each element since that takes too
 ;; long when the archive -- which has to be moved in memory -- is large.
 (insert
 (function
 (lambda (fil)
 	;; Using `concat' here copies the text also, so we can add
 	;; properties without problems.
 	(let ((text (concat (aref fil 0) "\n")))
-	  (if archive-lemacs
+	  (if archive-xemacs
 	      ()			; out of luck
 	    (put-text-property (aref fil 1) (aref fil 2)
 			       'mouse-face 'highlight
 			       text))
 	  text)))

Mercurial > hg > xemacs-beta

comparison lisp/modes/arc-mode.el @ 2:ac2d302a0011 r19-15b2