Commits

Anonymous committed 0573dfd

* tpu-edt.el: Synchronized with GNU emacs version
* tpu-extras.el: Ditto
* package-info.in: Updated maintainer and version information

  • Participants
  • Parent commits 7beffd0

Comments (0)

Files changed (4)

+1998-07-16  Kevin Oberman  <oberman@es.net>
+
+	* tpu-edt.el: Synchronized with GNU emacs version
+	* tpu-extras.el: Ditto
+	* package-info.in: Updated maintainer and version information
+
 1998-01-24  SL Baur  <steve@altair.xemacs.org>
 
 	* Makefile (VERSION): Update to package standard 1.0.

File package-info.in

 (tpu
   (standards-version 1.0
-   version VERSION
-   author-version AUTHOR_VERSION
-   date DATE
-   build-date BUILD_DATE
-   maintainer MAINTAINER
+   version 1.05
+   author-version "4.2X"
+   date "1998-07-02"
+   build-date "1998-07-01"
+   maintainer "Kevin Oberman <oberman@es.net>"
    distribution mule
-   priority high
-   category CATEGORY
+   priority medium
+   category "wp"
    dump nil
    description "DEC EDIT/TPU support."
-   filename FILENAME
+   filename "tpu-1.05-pkg.tar.gz"
    md5sum MD5SUM
    size SIZE
    provides (tpu)
-   requires (REQUIRES)
+   requires (tpu xemacs-base)
    type regular
 ))
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Synced up with FSF 19.34 and XEmacs 19.16
+;;; Synced up with FSF 19.34 and XEmacs 21.0
 
 ;; TPU-edt is based on tpu.el by Jeff Kowalski and Bob Covey.
 
 
 ;;; Code:
 
+(defgroup tpu nil
+  "Emacs emulating TPU emulating EDT."
+  :prefix "tpu-"
+  :group 'emulations)
 
 ;;;
 ;;;  Version Information
 ;;;
 ;;;  User Configurable Variables
 ;;;
-(defconst tpu-have-ispell t
-  "*If non-nil (default), TPU-edt uses ispell for spell checking.")
+(defcustom tpu-have-ispell t
+  "*If non-nil (default), TPU-edt uses ispell for spell checking."
+  :type 'boolean
+  :group 'tpu)
 
-(defconst tpu-kill-buffers-silently nil
-  "*If non-nil, TPU-edt kills modified buffers without asking.")
+(defcustom tpu-kill-buffers-silently nil
+  "*If non-nil, TPU-edt kills modified buffers without asking."
+  :type 'boolean
+  :group 'tpu)
 
-(defvar tpu-percent-scroll 75
-  "*Percentage of the screen to scroll for next/previous screen commands.")
+(defcustom tpu-percent-scroll 75
+  "*Percentage of the screen to scroll for next/previous screen commands."
+  :type 'integer
+  :group 'tpu)
 
-(defvar tpu-pan-columns 16
-  "*Number of columns the tpu-pan functions scroll left or right.")
+(defcustom tpu-pan-columns 16
+  "*Number of columns the tpu-pan functions scroll left or right."
+  :type 'integer
+  :group 'tpu)
 
 
 ;;;
 	(t
 	 (setq-default mode-line-format
 		       (list (purecopy "-")
+			     'mode-line-mule-info
 			     'mode-line-modified
 			     'mode-line-frame-identification
 			     'mode-line-buffer-identification
 	(if split
 	    (setq key
 		  (read-key-sequence
-		   "Press the key you want help on (RET=exit, ENTER=redisplay, N=next, 
-P=prev): "))
+		   "Press the key you want help on (RET=exit, ENTER=redisplay, N=next, P=prev): "))
 	  (setq key
 		(read-key-sequence
-		 "Press the key you want help on (RET to exit, N next screen, P prev 
-screen): ")))
+		 "Press the key you want help on (RET to exit, N next screen, P prev screen): ")))
 
 	;; Process the read key
 	;;
     (switch-to-buffer (car (reverse list)))))
 
 (defun tpu-make-file-buffer-list (buffer-list)
-  "Returns names from BUFFER-LIST excluding those beginning with a space or 
-star."
+  "Returns names from BUFFER-LIST excluding those beginning with a space or star."
   (delq nil (mapcar '(lambda (b)
                        (if (or (= (aref (buffer-name b) 0) ? )
                                (= (aref (buffer-name b) 0) ?*)) nil b))
 		  (exchange-point-and-mark))       ; point -> upper-left
 
 		 (t	                           ; point @  lower-left
-		  (move-to-column-force mc)        ; point -> lower-right
+		  (move-to-column mc t)            ; point -> lower-right
 		  (exchange-point-and-mark)        ; point -> upper-right
-		  (move-to-column-force pc))))     ; point -> upper-left
+		  (move-to-column pc t))))         ; point -> upper-left
 
 	  (t                                       ; point on upper line
 	   (cond ((> pc mc)                        ; point @  upper-right
-		  (move-to-column-force mc)        ; point -> upper-left
+		  (move-to-column mc t)            ; point -> upper-left
 		  (exchange-point-and-mark)        ; point -> lower-left
-		  (move-to-column-force pc)        ; point -> lower-right
+		  (move-to-column pc t)            ; point -> lower-right
 		  (exchange-point-and-mark)))))))  ; point -> upper-left
 
 (defun tpu-cut-text nil
 (define-key minibuffer-local-map "\eOM" 'exit-minibuffer)
 (define-key minibuffer-local-ns-map "\eOM" 'exit-minibuffer)
 (define-key minibuffer-local-completion-map "\eOM" 'exit-minibuffer)
-(define-key minibuffer-local-must-match-map "\eOM" 
-'minibuffer-complete-and-exit)
+(define-key minibuffer-local-must-match-map "\eOM" 'minibuffer-complete-and-exit)
 (and (boundp 'repeat-complex-command-map)
      (define-key repeat-complex-command-map "\eOM" 'exit-minibuffer))
 
       (define-key read-expression-map cur 'tpu-previous-history-element)
       (define-key minibuffer-local-map cur 'tpu-previous-history-element)
       (define-key minibuffer-local-ns-map cur 'tpu-previous-history-element)
-      (define-key minibuffer-local-completion-map cur 
-'tpu-previous-history-element)
-      (define-key minibuffer-local-must-match-map cur 
-'tpu-previous-history-element)
+      (define-key minibuffer-local-completion-map cur 'tpu-previous-history-element)
+      (define-key minibuffer-local-must-match-map cur 'tpu-previous-history-element)
       (setq loc (cdr loc)))
 
     (setq loc (where-is-internal 'tpu-next-line))
       (define-key read-expression-map cur 'tpu-next-history-element)
       (define-key minibuffer-local-map cur 'tpu-next-history-element)
       (define-key minibuffer-local-ns-map cur 'tpu-next-history-element)
-      (define-key minibuffer-local-completion-map cur 
-'tpu-next-history-element)
-      (define-key minibuffer-local-must-match-map cur 
-'tpu-next-history-element)
+      (define-key minibuffer-local-completion-map cur 'tpu-next-history-element)
+      (define-key minibuffer-local-must-match-map cur 'tpu-next-history-element)
       (setq loc (cdr loc)))))
 
 
 	   (tpu-arrow-history))
 	  (t
 	   ;; define ispell functions
-	   (autoload 'ispell-word "ispell" "Check spelling of word at or before 
-point" t)
-	   (autoload 'ispell-complete-word "ispell" "Complete word at or before 
-point" t)
+	   (autoload 'ispell-word "ispell" "Check spelling of word at or before point" t)
+	   (autoload 'ispell-complete-word "ispell" "Complete word at or before point" t)
 	   (autoload 'ispell-buffer "ispell" "Check spelling of entire buffer" t)
 	   (autoload 'ispell-region "ispell" "Check spelling of region" t)))
     (tpu-set-mode-line t)

File tpu-extras.el

 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Synced up with FSF 19.34 and XEmacs 19.16
+;;; Synced up with FSF 19.34 and XEmacs 21.0
 
 ;;; Commentary:
 
 
 ;;;  Customization variables
 
-(defconst tpu-top-scroll-margin 0
+(defcustom tpu-top-scroll-margin 0
   "*Scroll margin at the top of the screen.
-Interpreted as a percent of the current window size.")
-(defconst tpu-bottom-scroll-margin 0
+Interpreted as a percent of the current window size."
+  :type 'integer
+  :group 'tpu)
+(defcustom tpu-bottom-scroll-margin 0
   "*Scroll margin at the bottom of the screen.
-Interpreted as a percent of the current window size.")
+Interpreted as a percent of the current window size."
+  :type 'integer
+  :group 'tpu)
 
-(defvar tpu-backward-char-like-tpu t
+(defcustom tpu-backward-char-like-tpu t
   "*If non-nil, in free cursor mode backward-char (left-arrow) works
 just like TPU/edt.  Otherwise, backward-char will move to the end of
-the previous line when starting from a line beginning.")
+the previous line when starting from a line beginning."
+  :type 'boolean
+  :group 'tpu)
 
 
 ;;;  Global variables