Anonymous avatar Anonymous committed ecf6ba7

Import from CVS: tag r20-3b22

Comments (0)

Files changed (19)

 							-*- indented-text -*-
+to 20.3 beta22 "Minsk"
+-- Miscellaneous (small) bug fixes
+-- Autoloads regenerated from scratch
+
 to 20.3 beta21 "Bern"
 -- Artificial event creation from Hrvoje Niksic
 -- cl-extra.elc and cl-seq.elc are now dumped with XEmacs
+1997-09-17  SL Baur  <steve@altair.xemacs.org>
+
+	* XEmacs 20.3-beta22 is released.
+
 1997-09-16  SL Baur  <steve@altair.xemacs.org>
 
 	* XEmacs 20.3-beta21 is released.
+1997-09-17  SL Baur  <steve@altair.xemacs.org>
+
+	* prim/packages.el (locate-library): Simplify regexp for
+	compression suffixes.
+	Suggested by: Hrvoje Niksic <hniksic@srce.hr>
+	
+1997-09-17  Karl M. Hegbloom  <karlheg@inetarena.com>
+
+	* ilisp/ilisp-out.el (ilisp-scroll-output): bind `scroll-in-place'
+ 		  to nil around the call to #'scroll-up so that {C-c v}
+ 		  will properly scroll the *output* buffer.
+
+1997-09-17  Karl M. Hegbloom  <karlheg@inetarena.com>
+
+	* ilisp/ilisp-out.el (ilisp-needed-window-height): make window one
+ 		  line bigger
+
 1997-09-15  Karl M. Hegbloom  <karlheg@inetarena.com>
 
 	* packages/info.el (Info-mouse-track-double-click-hook): follow

lisp/comint/custom-load.el

 (custom-put 'telnet 'custom-loads '("telnet"))
 (custom-put 'shell 'custom-loads '("shell"))
 (custom-put 'comint-completion 'custom-loads '("comint"))
-(custom-put 'comint 'custom-loads '("comint" "telnet"))
+(custom-put 'comint 'custom-loads '("comint-xemacs" "comint" "telnet"))
 (custom-put 'rlogin 'custom-loads '("rlogin"))
 (custom-put 'shell-faces 'custom-loads '("shell"))
 (custom-put 'shell-directories 'custom-loads '("shell"))

lisp/custom/custom-load.el

 (custom-put 'applications 'custom-loads '("cus-edit"))
 (custom-put 'help 'custom-loads '("cus-edit"))
 (custom-put 'widget-browse 'custom-loads '("wid-browse"))
-(custom-put 'customize 'custom-loads '("wid-edit" "cus-edit" "cus-face"))
+(custom-put 'widget-documentation 'custom-loads '("wid-edit"))
+(custom-put 'customize 'custom-loads '("cus-edit" "wid-edit" "cus-face"))
 (custom-put 'custom-browse 'custom-loads '("cus-edit"))
 (custom-put 'abbrev 'custom-loads '("cus-edit"))
 (custom-put 'programming 'custom-loads '("cus-edit"))
+(custom-put 'widget-button 'custom-loads '("wid-edit"))
 (custom-put 'files 'custom-loads '("cus-edit"))
 (custom-put 'external 'custom-loads '("cus-edit"))
 (custom-put 'development 'custom-loads '("cus-edit"))
+(custom-put 'widget-faces 'custom-loads '("wid-edit"))
 (custom-put 'languages 'custom-loads '("cus-edit"))
+(custom-put 'custom-magic-faces 'custom-loads '("cus-edit"))
 (custom-put 'faces 'custom-loads '("cus-edit" "wid-edit"))
 (custom-put 'emacs 'custom-loads '("cus-edit"))
 (custom-put 'processes 'custom-loads '("cus-edit"))

lisp/ediff/custom-load.el

+(custom-put 'environment 'custom-loads '(("ediff-wind")))
 (custom-put 'tools 'custom-loads '("ediff"))
 (custom-put 'ediff-diff 'custom-loads '("ediff-diff"))
 (custom-put 'frames 'custom-loads '("ediff-wind"))

lisp/efs/auto-autoloads.el

 ;;; DO NOT MODIFY THIS FILE
-(if (featurep '-autoloads) (error "Already loaded"))
+(if (featurep 'efs-autoloads) (error "Already loaded"))
 
 ;;;### (autoloads nil "default-dir" "efs/default-dir.el")
 
 
 ;;;***
 
-(provide '-autoloads)
+(provide 'efs-autoloads)

lisp/hyperbole/auto-autoloads.el

 ;;; DO NOT MODIFY THIS FILE
-(if (featurep '-autoloads) (error "Already loaded"))
+(if (featurep 'hyperbole-autoloads) (error "Already loaded"))
 
 ;;;### (autoloads (hmail:compose) "hmail" "hyperbole/hmail.el")
 
 of a string." t nil)
 
 ;;;***
-
-;;;### (autoloads (kfile:is-p kfile:view kfile:find) "kfile" "kotl/kfile.el")
 
-(autoload 'kfile:find "kfile" "\
-Find a file FILE-NAME containing a kotl or create one if none exists.
-Return the new kview." t nil)
-
-(autoload 'kfile:view "kfile" "\
-View an existing kotl version-2 file FILE-NAME in a read-only mode." t nil)
-
-(autoload 'kfile:is-p "kfile" "\
-Iff current buffer contains an unformatted or formatted koutline, return file format version string, else nil." nil nil)
-
-;;;***
-
-;;;### (autoloads (kimport:text kimport:star-outline kimport:aug-post-outline kimport:file) "kimport" "kotl/kimport.el")
-
-(autoload 'kimport:file "kimport" "\
-Import a buffer or file IMPORT-FROM into the koutline in buffer or file OUTPUT-TO.
-
-Any suffix in IMPORT-FROM's buffer name is used to determine the type of
-importation.  All others are imported as text, one paragraph per cell.
-
-See the documentation for the variable, `kimport:suffix-alist' for
-information on specific importation formats." t nil)
-
-(autoload 'kimport:aug-post-outline "kimport" "\
-Insert Augment outline statements from IMPORT-FROM into koutline OUTPUT-TO.
-Displays and leaves point in OUTPUT-TO.  See documentation for
-`kimport:initialize' for valid values of IMPORT-FROM and OUTPUT-TO and for
-an explanation of where imported cells are placed.
-
-If OUTPUT-TO is a new koutline, the first statement inserted will be the
-first cell.  Otherwise, it will be the successor of the current cell.
-
-Each statement to be imported is delimited by an Augment relative id at the
-end of the statement.  \"1\" = level 1, \"1a\" = level 2 in outline and so
-on." t nil)
-
-(autoload 'kimport:star-outline "kimport" "\
-Insert star outline nodes from IMPORT-FROM into koutline OUTPUT-TO.
-Displays and leaves point in OUTPUT-TO.  See documentation for
-`kimport:initialize' for valid values of IMPORT-FROM and OUTPUT-TO and for
-an explanation of where imported cells are placed.
-
-\"* \" = level 1, \"** \" = level 2 in outline and so on." t nil)
-
-(autoload 'kimport:text "kimport" "\
-Insert text paragraphs from IMPORT-FROM into koutline OUTPUT-TO.
-Displays and leaves point in OUTPUT-TO.  See documentation for
-`kimport:initialize' for valid values of IMPORT-FROM and OUTPUT-TO and for
-an explanation of where imported cells are placed.
-
-Text paragraphs are imported as a sequence of same level cells.  Koutlines
-are imported with their structure intact.
-
-The variable, `paragraph-start,' is used to determine paragraphs." t nil)
-
-;;;***
-
-;;;### (autoloads (klink:create) "klink" "kotl/klink.el")
-
-(autoload 'klink:create "klink" "\
-Insert at point an implicit link to REFERENCE.
-REFERENCE should be a cell-ref or a string containing \"filename, cell-ref\".
-See documentation for `kcell:ref-to-id' for valid cell-ref formats." t nil)
-
-;;;***
-
-;;;### (autoloads (kotl-mode) "kotl-mode" "kotl/kotl-mode.el")
-
-(autoload 'kotl-mode "kotl-mode" "\
-The major mode used to edit and view koutlines.
-It provides the following keys:
-\\{kotl-mode-map}" t nil)
-
-;;;***
-
-(provide '-autoloads)
+(provide 'hyperbole-autoloads)

lisp/ilisp/ilisp-out.el

 	     (progn
 	       (select-window window)
 	       (set-buffer buffer)
-	       (scroll-up lines))
+               ;; it won't hurt to bind this regardless of
+               ;; whether or not `scroll-in-place' is loaded.
+               (let ((scroll-in-place nil))
+                 (scroll-up lines)))
 	  (select-window old-window)))))
 
 
     (select-window window)
     (save-excursion
       (set-buffer (window-buffer))
-      (+ 2 (save-excursion 
+      (+ 3 (save-excursion 
 	     (goto-char (point-min))
 	     ;; Any upper bound on the height of an emacs window will
 	     ;; do here.  How about 1000.

lisp/mel/auto-autoloads.el

+;;; DO NOT MODIFY THIS FILE
+(if (featurep 'mel-autoloads) (error "Already loaded"))
+
+;;;### (autoloads (mime-insert-encoded-file mime-decode-region mime-encode-region) "mel" "mel/mel.el")
+
+(autoload 'mime-encode-region "mel" "\
+Encode region START to END of current buffer using ENCODING." t nil)
+
+(autoload 'mime-decode-region "mel" "\
+Decode region START to END of current buffer using ENCODING." t nil)
+
+(autoload 'mime-insert-encoded-file "mel" "\
+Insert file FILENAME encoded by ENCODING format." t nil)
+
+;;;***
+
+(provide 'mel-autoloads)

lisp/modes/custom-load.el

-(custom-put 'extensions 'custom-loads '(("auto-show") "strokes"))
-(custom-put 'mouse 'custom-loads '("strokes"))
+(custom-put 'extensions 'custom-loads '("auto-show" "strokes"))
+(custom-put 'message 'custom-loads '("sendmail"))
+(custom-put 'prolog 'custom-loads '("prolog"))
+(custom-put 'auto-show 'custom-loads '("auto-show"))
+(custom-put 'mouse 'custom-loads '("outl-mouse" "strokes"))
+(custom-put 'mail-abbrevs 'custom-loads '("mail-abbrevs"))
+(custom-put 'pascal 'custom-loads '("pascal"))
+(custom-put 'tex 'custom-loads '("reftex" "texinfo"))
+(custom-put 'tcl 'custom-loads '("tcl"))
 (custom-put 'environment 'custom-loads '(("rsz-minibuf")))
-(custom-put 'lisp 'custom-loads '("strokes"))
+(custom-put 'icon 'custom-loads '("icon"))
+(custom-put 'texinfo 'custom-loads '("texinfo"))
+(custom-put 'xrdb 'custom-loads '("xrdb-mode"))
+(custom-put 'mail 'custom-loads '("mail-abbrevs"))
+(custom-put 'fortran-indent 'custom-loads '("fortran"))
+(custom-put 'docs 'custom-loads '("texinfo"))
+(custom-put 'lisp-indent 'custom-loads '("cl-indent"))
+(custom-put 'tools 'custom-loads '("hideshow" "make-mode"))
+(custom-put 'lisp 'custom-loads '("lisp-mode" "cl-indent" "strokes"))
+(custom-put 'reftex 'custom-loads '("reftex"))
+(custom-put 'outlines 'custom-loads '("hideshow" "outl-mouse" "whitespace-mode"))
+(custom-put 'f90 'custom-loads '("f90"))
+(custom-put 'asm 'custom-loads '("asm-mode"))
+(custom-put 'ada 'custom-loads '("ada-mode"))
+(custom-put 'reftex-label-support 'custom-loads '("reftex"))
+(custom-put 'data 'custom-loads '("arc-mode" "xrdb-mode"))
+(custom-put 'fortran-comment 'custom-loads '("fortran"))
+(custom-put 'outl-mouse 'custom-loads '("outl-mouse"))
+(custom-put 'frames 'custom-loads '("rsz-minibuf"))
+(custom-put 'verilog 'custom-loads '("verilog-mode"))
+(custom-put 'abbrev 'custom-loads '("abbrev"))
+(custom-put 'f90-indent 'custom-loads '("f90"))
 (custom-put 'strokes 'custom-loads '("strokes"))
-(custom-put 'display 'custom-loads '(("auto-show")))
+(custom-put 'archive-lzh 'custom-loads '("arc-mode"))
+(custom-put 'scribe 'custom-loads '("scribe"))
+(custom-put 'archive 'custom-loads '("arc-mode"))
+(custom-put 'c-macro 'custom-loads '("cmacexp"))
+(custom-put 'vrml 'custom-loads '("vrml-mode"))
+(custom-put 'simula 'custom-loads '("simula"))
+(custom-put 'archive-arc 'custom-loads '("arc-mode"))
+(custom-put 'fortran 'custom-loads '("f90" "fortran"))
+(custom-put 'resize-minibuffer 'custom-loads '("rsz-minibuf"))
+(custom-put 'languages 'custom-loads '("ada-mode" "asm-mode" "fortran" "icon" "pascal" "prolog" "rexx-mode" "sh-script" "simula" "tcl" "verilog-mode" "vhdl-mode" "vrml-mode" "winmgr-mode" "xrdb-mode"))
+(custom-put 'archive-zoo 'custom-loads '("arc-mode"))
+(custom-put 'archive-zip 'custom-loads '("arc-mode"))
+(custom-put 'display 'custom-loads '("auto-show"))
+(custom-put 'hideshow 'custom-loads '("hideshow"))
+(custom-put 'vhdl 'custom-loads '("vhdl-mode"))
+(custom-put 'enriched 'custom-loads '("enriched"))
+(custom-put 'processes 'custom-loads '("executable"))
+(custom-put 'rexx 'custom-loads '("rexx-mode"))
+(custom-put 'executable 'custom-loads '("executable"))
+(custom-put 'wp 'custom-loads '("enriched" "scribe" "texinfo"))
+(custom-put 'sh 'custom-loads '("sh-script"))
+(custom-put 'makefile-mode 'custom-loads '("make-mode"))
+(custom-put 'whitespace 'custom-loads '("whitespace-mode"))
+(custom-put 'matching 'custom-loads '("whitespace-mode"))
+(custom-put 'winmgr 'custom-loads '("winmgr-mode"))
+(custom-put 'unix 'custom-loads '("sh-script"))
+(custom-put 'c 'custom-loads '("cmacexp"))

lisp/oobr/auto-autoloads.el

 ;;; DO NOT MODIFY THIS FILE
-(if (featurep '-autoloads) (error "Already loaded"))
+(if (featurep 'oobr-autoloads) (error "Already loaded"))
 
 ;;;### (autoloads (br-env-load br-env-browse) "br-env" "oobr/br-env.el")
 
 
 ;;;***
 
-(provide '-autoloads)
+(provide 'oobr-autoloads)

lisp/packages/custom-load.el

 (custom-put 'igrep 'custom-loads '("igrep"))
 (custom-put 'menu 'custom-loads '("recent-files"))
 (custom-put 'minibuffer 'custom-loads '("icomplete"))
-(custom-put 'environment 'custom-loads '("gnuserv"))
+(custom-put 'environment 'custom-loads '(("balloon-help" "desktop") ("icomplete") "gnuserv"))
 (custom-put 'texinfo 'custom-loads '("texnfo-tex"))
 (custom-put 'terminals 'custom-loads '("gnuserv"))
 (custom-put 'auto-save 'custom-loads '("auto-save"))
 (custom-put 'generic-sc 'custom-loads '("generic-sc"))
 (custom-put 'local 'custom-loads '("gopher"))
 (custom-put 'keyboard 'custom-loads '("pending-del"))
+(custom-put 'hyper-apropos-faces 'custom-loads '("hyper-apropos"))
 (custom-put 'data 'custom-loads '("auto-save" "jka-compr" "saveplace" "tar-mode" "time-stamp"))
 (custom-put 'ps-print 'custom-loads '("ps-print"))
 (custom-put 'compression 'custom-loads '("jka-compr"))

lisp/prim/packages.el

 		    (and (boundp 'find-file-hooks)
 			 (member 'crypt-find-file-hook find-file-hooks)))
 		".elc:.el:"
-	      ;; The complex expression evaluates to a relatively
-	      ;; short string, so we do it at compile-time.
-	      ;; Nope.  This is run out of temacs and `eval-when-compile' is
-	      ;; a void function.  --sb
-	      (mapconcat #'identity
-			 (apply 'nconc
-				(mapcar (lambda (compelt)
-					  (mapcar (lambda (baselt)
-						    (concat baselt compelt))
-						  '(".elc" ".el" "")))
-					'(".Z" ".gz" "")))
-			 ":")))
+	      ".elc:.elc.gz:elc.Z:.el:.el.gz:.el.Z::.gz:.Z"))
 	  4)))
     (and interactive-call
 	 (if result

lisp/psgml/custom-load.el

 (custom-put 'psgml-dtd 'custom-loads '("psgml"))
 (custom-put 'html 'custom-loads '("psgml-html"))
 (custom-put 'psgml 'custom-loads '("psgml-html" "psgml"))
+(custom-put 'psgml-html 'custom-loads '("psgml-html"))
 (custom-put 'sgml 'custom-loads '("psgml-html" "psgml"))
 (custom-put 'tempo 'custom-loads '("tempo"))
 (custom-put 'languages 'custom-loads '("psgml"))

lisp/utils/custom-load.el

 (custom-put 'extensions 'custom-loads '("eldoc"))
 (custom-put 'eldoc 'custom-loads '("eldoc"))
 (custom-put 'minibuffer 'custom-loads '("detached-minibuf" "savehist"))
+(custom-put 'environment 'custom-loads '(("detached-minibuf") ("detached-minibuf" "savehist")))
 (custom-put 'mail 'custom-loads '("highlight-headers" "ph" "smtpmail"))
 (custom-put 'uniquify 'custom-loads '("uniquify"))
 (custom-put 'hypermedia 'custom-loads '("browse-url"))
 (custom-put 'elp 'custom-loads '("elp"))
 (custom-put 'applications 'custom-loads '("uniquify"))
 (custom-put 'keyboard 'custom-loads '("edmacro"))
+(custom-put 'highlight-headers-faces 'custom-loads '("highlight-headers"))
 (custom-put 'crontab 'custom-loads '("crontab"))
 (custom-put 'comm 'custom-loads '("ph"))
 (custom-put 'id-select 'custom-loads '("id-select"))

lisp/x11/custom-load.el

-(custom-put 'environment 'custom-loads '(("x-toolbar")))
+(custom-put 'environment 'custom-loads '("x-toolbar"))
+(custom-put 'toolbar 'custom-loads '("x-toolbar"))
 
   if (!DndIsDropMessage(event)) /* the better way */
     {
+#if 0
       stderr_out("DndDropHandler: pseudo drop received (ignore me!)\n");
+#endif
       return;
     }
 
   GCPRO4 (path, frame, dnd_data, dnd_type);
 
   frame = make_frame ((struct frame *) data);
-
+#if 0
   stderr_out("DndDropHandler: valid drop received (T%d S%u)\n",Type,Size);
-
+#endif
   switch (Type)
     {
     case DndFiles:
 #!/bin/sh
 emacs_major_version=20
 emacs_minor_version=3
-emacs_beta_version=21
-xemacs_codename="Bern"
+emacs_beta_version=22
+xemacs_codename="Minsk"
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.