September 2000 - XEmacs-Beta - XEmacs Mailing List Archives

Re: working on getting XEmacs/GTK to 21.2... 23 years, 4 months

William M. Perry

"Stephen J. Turnbull" <turnbull(a)sk.tsukuba.ac.jp> writes: > >>>>> "-BP" == William M Perry <wmperry(a)aventail.com> writes: > > -BP> Any objections? This would land on the main 21.2 branch. I > -BP> really think GTK should be made the default on systems that > -BP> support it, and that is how > > GTK still doesn't support multiple X displays, right? I need that a lot > more than I need prettier dialogs---I see a dialog about once a week.... > Of course, this is a personal issue and should be handled by my own > configuration. Correct - no multidisplay, and it doesn't look like GTK 2.0 is going to have it either. *sigh* > Also, until GTK is used for Custom, I think it's going to look very very > half-assed. Why is that not the case for X and Motif then? Or Windows? > On that basis, my vote is "not yet". I've almost got it running here (compiles, but craps out at initialization when I try to set the specifiers for the pointers). -Bill P.

5 participants
7 comments

core on wrong replace-match 23 years, 5 months

Norbert Koch

Hi! Using a vanilla "XEmacs 21.2 (beta35) \"Nike\" [Lucid] (i386-unknown-freebsd3.2) of Tue Sep 19\ 2000 on lycius.LF.net" I can dump core with (let ((str "as you like it")) (if (string-match "^.*$" str) (replace-match "\\U" t nil str))) The "\\U" might well be pretty dumb, but.. Lisp backtrace follows: # (unwind-protect ...) replace-match("\\U" t nil "as you like it") (if (string-match "^.*$" str) (replace-match "\\U" t nil str)) # bind (str) (let ((str "as you like it")) (if (string-match "^.*$" str) (replace-match "\\U" t nil str))) eval((let ((str "as you like it")) (if (string-match "^.*$" str) (replace-match "\\U" t nil str)))) # bind (expr) eval-interactive((let ((str "as you like it")) (if (string-match "^.*$" str) (replace-match "\\U" t nil str)))) # bind (standard-output opoint ignore-quotes # eval-last-sexp-arg-internal) eval-last-sexp(t) # bind (standard-output) #<compiled-function nil "...(13)" [standard-output terpri #eval-last-sexp t] 2 959532 nil>() call-interactively(eval-print-last-sexp) # (condition-case ... . error) # (catch top-level ...) #0 0x284d3c78 in kill () from /usr/lib/libc.so.3 #1 0x80b1983 in fatal_error_signal (sig=6) at emacs.c:514 #2 0xbfbfdfdc in ?? () #3 0x80b490a in assert_failed (file=0x8247ee6 "lisp.h", line=1128, expr=0x8247f00 "RECORD_TYPEP (obj, lrecord_type_string)") at emacs.c:3135 #4 0x819f408 in Freplace_match (newtext=136980484, #fixedcase=136980508, literal=136980484, string=140433620, strbuffer=136980484) at lisp.h:1128 #5 0x80ba2de in Feval (form=139636672) at eval.c:3331 #6 0x80b54f8 in Fif (args=139664768) at eval.c:691 #7 0x80ba153 in Feval (form=139664636) at eval.c:3304 #8 0x80b6029 in Flet (args=139664444) at eval.c:775 #9 0x80ba153 in Feval (form=139706220) at eval.c:3304 #10 0x80bacf7 in Ffuncall (nargs=2, args=0xbfbfcdf4) at eval.c:3528 #11 0x808f74e in execute_optimized_program ( program=0x8699990 "\b

3 participants
2 comments

Database support 23 years, 5 months

Norbert Koch

Hi! On my system XEmacs 21.2 (beta35) "Nike" [Lucid] (i386-unknown-freebsd3.3) of Tue Aug 22 2000 on lamia.LF.net (describe-installation) shows me Databases: Compiling in support for Berkeley database. Compiling in support for GNU DBM. but I see (setq db (open-database "/var/db/locate.database" 'berkeley_db 'hash "r")) => Unsupported database type: berkeley_db So, what das 'Compiling in support for Berkeley database.' really mean. Am I missing something? Thanks, norbert.

3 participants
2 comments

Re: Small windows with scroll-step set 23 years, 5 months

Jan Vroonhof

Mike Alexander <mta(a)arbortext.com> writes: > I did that. It doesn't lay out any lines because the height of the > window is less than the height of one line. I don't know enough > about the redisplay code to know if this is supposed to be impossible > or if it is normal but the redisplay code isn't handling it right. Could you try whether this (untested) attempt at fixing update_line_start_cache helps? Index: redisplay.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/src/redisplay.c,v retrieving revision 1.55.2.56 diff -u -r1.55.2.56 redisplay.c --- redisplay.c 2000/05/09 11:54:57 1.55.2.56 +++ redisplay.c 2000/05/11 18:15:14 ＠＠ -87,16 +87,10 ＠＠ #define LEFT_GLYPHS 2 #define RIGHT_GLYPHS 3 -/* Set the vertical clip to 0 if we are currently updating the line - start cache. Otherwise for buffers of line height 1 it may fail to - be able to work properly because regenerate_window will not layout - a single line. */ #define VERTICAL_CLIP(w, display) \ - (updating_line_start_cache \ - ? 0 \ - : ((WINDOW_TTY_P (w) | (!display && scroll_on_clipped_lines)) \ + ((WINDOW_TTY_P (w) | (!display && scroll_on_clipped_lines)) \ ? INT_MAX \ - : vertical_clip)) + : vertical_clip) /* The following structures are completely private to redisplay.c so we put them here instead of in a header file, for modularity. */ ＠＠ -328,9 +322,6 ＠＠ /* Minimum visible pixel width of clipped glyphs at right margin. */ int horizontal_clip; -/* Set if currently inside update_line_start_cache. */ -static int updating_line_start_cache; - /* Nonzero means reading single-character input with prompt so put cursor on minibuffer after the prompt. */ int cursor_in_echo_area; ＠＠ -5098,6 +5089,7 ＠＠ int ypos = WINDOW_TEXT_TOP (w); int yend; /* set farther down */ int yclip = WINDOW_TEXT_TOP_CLIP (w); + int force; prop_block_dynarr *prop; layout_bounds bounds; ＠＠ -5151,10 +5143,14 ＠＠ else prop = 0; + /* When we are computing things for scrolling purposes, make + sure at least one line is always generated */ + force = (type == CMOTION_DISP); + /* Make sure this is set always */ /* Note the conversion at end */ w->window_end_pos[type] = start_pos; - while (ypos < yend) + while (ypos < yend || force) { struct display_line dl; struct display_line *dlp; ＠＠ -5207,7 +5203,7 ＠＠ the top clip and the bottom clip. */ visible_height -= (dlp->clip + dlp->top_clip); - if (visible_height < VERTICAL_CLIP (w, 1)) + if (visible_height < VERTICAL_CLIP (w, 1) && !force) { if (local) free_display_line (dlp); ＠＠ -5251,6 +5247,8 ＠＠ generate_display_line call. */ if (start_pos > BUF_ZV (b)) break; + + force = 0; } if (prop) ＠＠ -7834,7 +7832,6 ＠＠ validate_line_start_cache (w); w->line_cache_validation_override++; - updating_line_start_cache = 1; if (from < BUF_BEGV (b)) from = BUF_BEGV (b); ＠＠ -7843,7 +7840,6 ＠＠ if (from > to) { - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7856,7 +7852,6 ＠＠ /* Check to see if the desired range is already in the cache. */ if (from >= low_bound && to <= high_bound) { - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7885,7 +7880,6 ＠＠ update_internal_cache_list (w, DESIRED_DISP); if (!Dynarr_length (internal_cache)) { - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7913,7 +7907,6 ＠＠ { Dynarr_add_many (cache, Dynarr_atp (internal_cache, 0), Dynarr_length (internal_cache)); - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7922,7 +7915,6 ＠＠ the bounds of the DESIRED structs in the first place. */ if (start >= low_bound && end <= high_bound) { - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7945,7 +7937,6 ＠＠ Dynarr_reset (cache); Dynarr_add_many (cache, Dynarr_atp (internal_cache, 0), Dynarr_length (internal_cache)); - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7971,7 +7962,6 ＠＠ Dynarr_reset (cache); Dynarr_add_many (cache, Dynarr_atp (internal_cache, 0), Dynarr_length (internal_cache)); - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -7980,7 +7970,6 ＠＠ Dynarr_length (internal_cache) - ic_elt); } - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -8000,23 +7989,9 ＠＠ update_internal_cache_list (w, CMOTION_DISP); /* If this assert is triggered then regenerate_window failed - to layout a single line. That is not supposed to be - possible because we impose a minimum height on the buffer - and override vertical clip when we are in here. */ - /* #### Ah, but it is because the window may temporarily - exist but not have any lines at all if the minibuffer is - real big. Look into that situation better. */ - if (!Dynarr_length (internal_cache)) - { - if (old_lb == -1 && low_bound == -1) - { - updating_line_start_cache = 0; - w->line_cache_validation_override--; - return; - } - - assert (Dynarr_length (internal_cache)); - } + to layout a single line. This is not possible since we + force at least a single line to be layout for CMOTION_DISP */ + assert (Dynarr_length (internal_cache)); assert (startp == Dynarr_atp (internal_cache, 0)->start); ic_elt = Dynarr_length (internal_cache) - 1; ＠＠ -8062,7 +8037,6 ＠＠ startp = new_startp; if (startp > BUF_ZV (b)) { - updating_line_start_cache = 0; w->line_cache_validation_override--; return; } ＠＠ -8096,7 +8070,6 ＠＠ while (to > high_bound); } - updating_line_start_cache = 0; w->line_cache_validation_override--; assert (to <= high_bound); } ＠＠ -9268,15 +9241,8 ＠＠ } void -reinit_vars_of_redisplay (void) -{ - updating_line_start_cache = 0; -} - -void vars_of_redisplay (void) { - reinit_vars_of_redisplay (); #if 0 staticpro (&last_arrow_position);

3 participants
2 comments

PATCH: make read-passwd deal with GTK... 23 years, 6 months

William M. Perry

I don't know if there is a way to grab the keyboard in windows or not, but we should add to the logic in this function if there is. -Bill P. *** passwd.el~ Sat Jan 22 03:05:24 2000 --- passwd.el Sun Sep 10 00:03:03 2000 *************** *** 340,370 **** (setq passwd-face-data (cdr passwd-face-data))))) (defun passwd-grab-keyboard () ! (cond ((not (and (fboundp 'x-grab-keyboard) ; lemacs 19.10+ ! (eq 'x (if (fboundp 'frame-type) ! (frame-type (selected-frame)) ! (frame-live-p (selected-frame)))))) ! nil) ! ((x-grab-keyboard) ! t) ! (t (message "Unable to grab keyboard - waiting a second...") (sleep-for 1) ! (cond ((x-grab-keyboard) (message "Keyboard grabbed on second try.") t) - (t (beep) (message "WARNING: keyboard is insecure (unable to grab!)") (sleep-for 3) nil))))) (defun passwd-ungrab-keyboard () ! (if (and (fboundp 'x-ungrab-keyboard) ; lemacs 19.10+ ! (eq 'x (if (fboundp 'frame-type) ! (frame-type (selected-frame)) ! (frame-live-p (selected-frame))))) ! (x-ungrab-keyboard))) ;; v18 compatibility (or (fboundp 'buffer-disable-undo) --- 340,376 ---- (setq passwd-face-data (cdr passwd-face-data))))) (defun passwd-grab-keyboard () ! ;; It is officially time to give up on lemacs 19.10 ! ;; and just deal with device types. ! (let ((lock-func (case (frame-type) ! (x ! 'x-grab-keyboard) ! (gtk ! 'gtk-grab-keyboard) ! (otherwise ! nil)))) ! (if (not lock-func) ! ;; There is nothing we can do... ! nil ! (if (funcall lock-func) ! ;; Grabbed it, hooray! ! t (message "Unable to grab keyboard - waiting a second...") (sleep-for 1) ! (if (funcall lock-func) ! (progn (message "Keyboard grabbed on second try.") t) (beep) (message "WARNING: keyboard is insecure (unable to grab!)") (sleep-for 3) nil))))) (defun passwd-ungrab-keyboard () ! (case (frame-type) ! (x (x-ungrab-keyboard)) ! (gtk (gtk-ungrab-keyboard)) ! (otherwise nil))) ;; v18 compatibility (or (fboundp 'buffer-disable-undo)

2 participants
1 comments

Re: find-dired & friends? 23 years, 6 months

Mike FABIAN

"Alexander Burchell" <aburchel(a)wilshire.com> writes: > I really miss the FSF functions find-dired, find-grep-dired, etc. Why > aren't they in XEmacs and is there any way I can add them? I missed these to, and therefore I tried to use the find-dired.el from Emacs 20.7 with XEmacs. It needs only a tiny patch to work. Here is the patch: and here is the complete find-dired.el with the above patch applied, which works with XEmacs: Steve, can this be added to XEmacs? -- Mike Fabian <mfabian(a)suse.de>

2 participants
1 comments

Re: Build Failure, W2K 23 years, 6 months

Adrian Aichner

>>>>> "Matthew" == Matthew Persico <persicom(a)acedsl.com> writes: Matthew> Using W2k and VC++ 5.0 (shouldn't need to upgrade, it Matthew> builds Perl just fine). I go very far in the process and Matthew> then it died. In otder to save bandwidth, I attempted a Matthew> rebuild at the die point to get a smaller log: What's your nt\config.inc look like? Adrian >> D:\src\xemacs-21.2.35\nt>nmake install -f xemacs.mak >> >> Microsoft (R) Program Maintenance Utility Version 1.62.7022 >> Copyright (C) Microsoft Corp 1988-1997. All rights reserved. >> >> WARNING: Compiling without dependency information. >> Creating ..\lib-src\config.values >> -------------------------------------------------------------------- >> OS: Windows_NT >> >> XEmacs 21.2-b35 \"Nike\" configured for `i586-pc-win32'. >> >> Building XEmacs in \"D:\\src\\xemacs-21.2.35\\nt\". >> Using compiler \"cl -nologo -W3 -Od -Zi -ML\". >> Installing XEmacs in \"D:\\XEmacs\\XEmacs-21.2-b35\". >> Package path is \"~\\.xemacs;;D:\\XEmacs\\site-packages;D:\\XEmacs\\xemacs-packages\". >> Compiling in support for Microsoft Windows native GUI. >> -------------------------------------------------------------------- >> WARNING: Compiling without XPM support. >> WARNING: You should strongly consider installing XPM. >> WARNING: Otherwise toolbars and other graphics will look suboptimal. >> WARNING: (a copy may be found in ftp://ftp.xemacs.org/pub/xemacs/aux) >> -------------------------------------------------------------------- >> Compiling in support for GIF images. >> Compiling in support for PNG images. >> Compiling in support for JPEG images. >> Compiling in support for dialogs. >> Compiling in support for widgets. >> Compiling in support for native sounds. >> Compiling in fast dired implementation. >> Compiling in extra debug checks. XEmacs will be slow! >> -------------------------------------------------------------------- >> bscmake -nologo -o..\src\temacs.bsc ＠bscmake.tmp >> link.exe ＠C:\TEMP\nmb01688. >> device-msw.obj : error LNK2001: unresolved external symbol __imp__InitCommonControls＠0 >> ..\src\temacs.exe : fatal error LNK1120: 1 unresolved externals >> NMAKE : fatal error U1077: 'link.exe' : return code '0x19' >> Stop. Matthew> -- Matthew> Matthew O. Persico Matthew> "If you were supposed to understand it, Matthew> we wouldn't call it code." - FedEx Matthew> ____________NetZero Free Internet Access and Email_________ Matthew> Download Now http://www.netzero.net/download/index.html Matthew> Request a CDROM 1-800-333-3633 Matthew> ___________________________________________________________ -- Adrian Aichner <adrian(a)xemacs.org>

2 participants
1 comments

find-dired & friends? 23 years, 6 months

Alexander G. Burchell

Hi, I really miss the FSF functions find-dired, find-grep-dired, etc. Why aren't they in XEmacs and is there any way I can add them? Thanks, -- Alexander Burchell Wilshire Associates aburchel(a)wilshire.com (310) 899-2303

1 participants
0 comments

Re: Problems with ftp/update installed packages 23 years, 6 months

Michael Sperber

>>>>> "Chris" == Chris Rasch <crasch(a)openknowledge.org> writes: Chris> Hi, >> >> >> This looks like some major bogosity with your ftp client. (Quite >> obviously, if I may say so ...) Linux has been notorious in this >> regard for ages. >> >> Unfortunately, I don't see it on our RedHat 6.2 box. Just to be sure, >> can you find out the ftp command line EFS uses (just do a "ps"), start >> the ftp client manually with the same command line, and try the same >> command sequence as above and see it if yields the same error >> messages? >> >> -- >> Cheers =8-} Mike >> Friede, Völkerverständigung und überhaupt blabla Chris> Thank you for the response. Here's the command line that EFS uses (output from ps Chris> -Afl, during attempt to login to ftp.xemacs.org from within Xemacs): Chris> 000 S root 12825 12715 3 73 0 - 562 read_c 03:45 ttyp2 00:00:00 Chris> /usr/kerberos/bin/ftp -i -n -g -v Chris> Logging on to ftp.xemacs.org manually from the command line: Chris> # /usr/kerberos/bin/ftp -i -n -g -v ftp.xemacs.org Chris> Connected to xemacs.org. Chris> 220 ProFTPD 1.2.0pre10 Server (ProFTPD on ftp.tux.org) [gwyn.tux.org] Chris> 500 AUTH not understood. Chris> 500 AUTH not understood. Chris> KERBEROS_V4 rejected as an authentication type ftp> user anonymous Chris> 331 Anonymous login ok, send your complete e-mail address as password. Chris> Password: Chris> 230-+--....[welcome message].... OK, so it's the *Kerberos* ftp client. It's obviously buggy as EFS quotes the USER command, but ftp seems to ignore that. I don't really see how I can fix this on the EFS side. You might try twiddling with `efs-cmd-ok-msgs' to filter out the 500 message. Alternatively, use a non-kerberized ftp client (in our setup, /usr/bin/ftp is it) and set the value of `efs-ftp-program-name' to it. -- Cheers =8-} Mike Friede, Völkerverständigung und überhaupt blabla

1 participants
0 comments

Re: Problems with ftp/update installed packages 23 years, 6 months

Michael Sperber

>>>>> "Chris" == Chris Rasch <crasch(a)openknowledge.org> writes: Chris> Hi, Chris> I apologize if this isn't the appropriate forum. I originally posted to Chris> the xemacs(a)xemacs.org list, and it was suggested that I might also post Chris> to the xemacs-beta list as well. I just installed Xemacs-21.1.11 Chris> (Carlsbad Caverns) on Red Hat 6.2. I also downloaded and untarred the Chris> xemacs-sumo-2000-09-04.tar.gz into Chris> the /usr/local/lib/xemacs/ directory. When I attempt Chris> to "Update Installed Packages" (from any of the U.S. mirrors), I get the Chris> following error messages: Chris> Open Metalab.Unc.Edu Chris> Connected To Metalab.Unc.Edu. Chris> 220 Helios.Oit.Unc.Edu Ftp Server (Version Wu-2.6.1(1) Sat Jul 8 Chris> 10:18:10 Edt 2000) Ready. Chris> Quote User "Anonymous" Chris> 530 Please Login With User And Pass. Chris> open ftp.sunsite.utk.edu Chris> Connected to HELIOS.TNS.UTK.EDU. Chris> 220 sunsite.utk.edu FTP server (Version wu-2.6.1(4) Fri Aug 4 11:27:56 Chris> EDT Chris> 2000) ready. Chris> quote user "anonymous" Chris> 530 Please login with USER and PASS. Chris> open uiarchive.uiuc.edu Chris> Connected to uiarchive.cso.uiuc.edu. Chris> 220 uiarchive.cso.uiuc.edu FTP server (Version wu-2.6.1(1) Wed Aug 23 Chris> 11:26:42 CDT 2000) ready. Chris> quote user "anonymous" Chris> 530 Please login with USER and PASS. This looks like some major bogosity with your ftp client. (Quite obviously, if I may say so ...) Linux has been notorious in this regard for ages. Unfortunately, I don't see it on our RedHat 6.2 box. Just to be sure, can you find out the ftp command line EFS uses (just do a "ps"), start the ftp client manually with the same command line, and try the same command sequence as above and see it if yields the same error messages? -- Cheers =8-} Mike Friede, Völkerverständigung und überhaupt blabla

2 participants
1 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

XEmacs-Beta September 2000