July 1999 - XEmacs-Beta - XEmacs Mailing List Archives

Re: vc-revert-buffer1 sacrifices fontification preserving minor modes 25 years, 4 months

Adrian Aichner

>>>>> "Jan" == Jan Vroonhof <vroonhof(a)math.ethz.ch> writes: Jan> Adrian Aichner <aichner(a)ecf.teradyne.com> writes: >> Currently vc-revert-buffer1 is plain broken, because it looses >> fontification of font-locked buffers. Jan> No it isn't :-) Something is wrong with font-lock and Jan> insert-file-contents on your side. OK. I'll dig into this. May have to do with the fact that I'm on Windows NT native. Please ignore my patch (not that I think that you wouldn't otherwise :-). Adrian Jan> Jan

1 participants
0 comments

Re: Image lib 25 years, 4 months

SL Baur

Björn Torkelsson <torkel(a)hpc2n.umu.se> writes in xemacs-beta(a)xemacs.org: > nbecker(a)fred.net writes: >> An image lib with uniform interface for ppm, png, and gif: >> >> http://www.radix.net/~cknudsen/Ilib/ > Probably been discussed before, but why not Imlib? > http://www.labs.redhat.com/imlib/tut/ > (to be http://www.rasterman.com/imlib/) > And yes, I know that Imlib depends on a lot of others libraries, but so > does Ilib... I must ask the three letter w-word here. We went through the exercise of using the ImageMagick graphics library some time back and it was so successful that we ripped it out and put the old code back in. What would using an image library buy us? Do the above libraries work with Microsoft Windows?

1 participants
0 comments

Re: GNU Emacs' rect.el 25 years, 4 months

SL Baur

Olivier Galibert <galibert(a)pobox.com> writes in xemacs-beta(a)xemacs.org: > On Mon, Jul 26, 1999 at 06:51:55PM +0200, Hrvoje Niksic wrote: >> That computation is broken in the world of variable-width characters >> anyway. O.K. I believe that I am starting to agree with you. > That computation is valid in the fixed-width characters, tty world, > and nowhere else. That proves not to be the case. What about characters that display as control characters `^M', or octal sequences `\210'?

1 participants
0 comments

maybe a menubar bug in 21.1.4 25 years, 4 months

Jeff Miller

I'm kinda confused on this one, so I'd like to see if anyone can duplicate it. On my Linux box here at home I can build xemacs 21.1.4 without menubars without a problem. I tried the same thing on my Solaris workstation at work today. The compile goes ok until the final link when it bitches about a missing external reference to menubar_show_keybindings in gui.c. If I add a "#ifdef HAVE_MENUBARS" wrapper around that little "if" statement in gui.c, xemacs compiles and dumps fine. has anyone else seen this or even begin to have a clue why?

1 participants
0 comments

Re: Discrepancy between Installation and configure 25 years, 4 months

Karl M. Hegbloom

>>>>> "sb" == SL Baur <steve(a)xemacs.org> writes: sb> wmperry <wmperry(a)aventail.com> writes in sb> xemacs-beta(a)xemacs.org: wmperry> How about `DSO' like apache uses? Dynamic-Shared-Object >> [...] sb> On closer inspection, this option is also referred to in two sb> other places by the name `modules' via --site-modules and sb> --moduledir. Of the suggestions I like the DSO one the best, sb> but since we're already using the modules name in installed sb> directories [whacks the top of the computer monitor with a sb> beer[1]] let's do both ... :-) Sounds great, says Karl. [Karl, who is learning to integrate debian packaging scripts with upstream sources using CVS, toasts toward computer monitor with coffee mug, then gets out of Gnus mode to go back to tapping out the CVS release management plan and some `make' files to do the work, with a texinfo document to boot from.)] sb> Footnotes: sb> [1] For those not acquainted with American television, there sb> was a sb> series of beer commercials in the early 90's that featured sb> people at a bar arguing over which sport to watch on T.V. The sb> dispute was resolved by someone hitting the top of the sb> T.V. with a bottle of beer whereby the sports were combined. sb> My favorite was Football/Golf -- sink your putt and race to sb> the tee before you get tackled ... :-) This is what I miss by not watching the right programs? (or maybe I'm not watching them right?) Hmmm.

1 participants
0 comments

Re: hm--html-menu fix for "fixed" psgml. 25 years, 4 months

SL Baur

Jan Vroonhof <vroonhof(a)math.ethz.ch> writes in xemacs-beta(a)xemacs.org: > jerry(a)cs.ucsb.edu (Jerry James) writes: >> a couple of months ago. I would submit a patch, only I don't know which >> file to put the hook in. > Good question. psgml-html defines the html-mode command. So that > would still be the best place. sgml-mode-hook is defcustom'ed in psgml.el. psgml-html.el is probably O.K. Shouldn't psgml be running that hook?

2 participants
1 comments

gutter-items loses again 25 years, 4 months

SL Baur

gutter-items.el is initializing itself too early. This code probably belongs on the `window-setup-hook', it definitely should not be executed when dumping. A proposed patch is attached. (The void function problem is a totally separate issue and unrelated to gutter-items.el itself). Loading gutter-items.el...*** Error in XEmacs initialization (void-function buffers-menu-omit-invisible-buffers) *** Backtrace really-early-error-handler((void-function buffers-menu-omit-invisible-buffers)) buffers-menu-omit-invisible-buffers(#<buffer "*scratch*">) funcall(buffers-menu-omit-invisible-buffers #<buffer "*scratch*">) (not (funcall cl-if (cl-check-key ...))) ) (eq (not (funcall cl-if ...)) cl-if-not) ) (cond (cl-test (eq ... cl-test-not)) (cl-if (eq ... cl-if-not)) (t (if ... ... ...))) ) (cl-check-test-nokey cl-item (cl-check-key (car cl-seq))) ) (cl-check-test cl-item (car cl-seq)) ) (and cl-seq (> cl-end 0) (cl-check-test cl-item (car cl-seq)) (setq cl-end (1- cl-end) cl-seq (cdr cl-seq)) (> (setq cl-count ...) 0)) ) (while (and cl-seq (> cl-end 0) (cl-check-test cl-item ...) (setq cl-end ... cl-seq ...) (> ... 0))) ) (progn (while (and cl-seq ... ... ... ...)) (setq cl-end (1- cl-end))) ) (if (= cl-start 0) (progn (while ...) (setq cl-end ...)) (setq cl-start (1- cl-start))) ) (if (and cl-from-end (< cl-count 4000000)) (let (cl-i) (while ... ... ...) cl-seq) (setq cl-end (- ... cl-start)) (if (= cl-start 0) (progn ... ...) (setq cl-start ...)) (if (and ... ...) (let ... ...)) cl-seq) ) (if (listp cl-seq) (if (and cl-from-end ...) (let ... ... cl-seq) (setq cl-end ...) (if ... ... ...) (if ... ...) cl-seq) (apply (quote remove*) cl-item cl-seq cl-keys)) ) (if (<= (or cl-count ...) 0) cl-seq (if (listp cl-seq) (if ... ... ... ... ... cl-seq) (apply ... cl-item cl-seq cl-keys))) ) # bind (cl-end cl-start cl-from-end cl-count cl-if-not cl-if cl-key cl-test-not cl-test) (let* ((cl-test ...) (cl-test-not ...) (cl-key ...) (cl-if ...) (cl-if-not ...) (cl-count ...) (cl-from-end ...) (cl-start ...) (cl-end ...)) (let (...) (while cl-keys-temp ... ...)) (if (<= ... 0) cl-seq (if ... ... ...))) ) (cl-parsing-keywords (:test :test-not :key :if :if-not :count :from-end (:start 0) :end) nil (if (<= ... 0) cl-seq (if ... ... ...))) ) # bind (cl-keys cl-seq cl-item) delete*(nil (#<buffer "*scratch*"> #<buffer " *Minibuf-0*"> #<buffer " *Echo Area*"> #<buffer " *pixmap conversion*"> #<buffer " *load*">) :if buffers-menu-omit-invisible-buffers) apply(delete* nil (#<buffer "*scratch*"> #<buffer " *Minibuf-0*"> #<buffer " *Echo Area*"> #<buffer " *pixmap conversion*"> #<buffer " *load*">) :if buffers-menu-omit-invisible-buffers nil) # bind (cl-keys cl-list cl-pred) delete-if(buffers-menu-omit-invisible-buffers (#<buffer "*scratch*"> #<buffer " *Minibuf-0*"> #<buffer " *Echo Area*"> #<buffer " *pixmap conversion*"> #<buffer " *load*">)) (let ((buffers ...)) (and (integerp buffers-tab-max-size) (> buffers-tab-max-size 1) (> ... buffers-tab-max-size) (setcdr ... nil)) (setq buffers (build-buffers-tab-internal buffers)) buffers) ) buffers-tab-items() (list :items (buffers-tab-items)) ) (vector (quote tab-control) :descriptor "Buffers" :properties (list :items (buffers-tab-items))) ) (make-glyph (vector (quote tab-control) :descriptor "Buffers" :properties (list :items ...))) ) (setq gutter-buffers-tab (make-glyph (vector ... :descriptor "Buffers" :properties ...))) ) (set-extent-begin-glyph (make-extent 0 0 gutter-string) (setq gutter-buffers-tab (make-glyph ...))) ) # bind (gutter-string) (let ((gutter-string "")) (set-extent-begin-glyph (make-extent 0 0 gutter-string) (setq gutter-buffers-tab ...)) (set-specifier default-gutter-border-width 0 (quote global) (quote mswindows)) (set-specifier default-gutter gutter-string (quote global) (quote mswindows))) ) add-tab-to-gutter() # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("/usr/local/infodock/infodock/build/sparc-sun-solaris/lisp/gutter-items.el" nil nil nil undecided) (if (or (<= ... 0) (null ...)) (and (null noerror) (signal ... ...)) (load-internal file noerror nomessage nosuffix (let ... ...))) ) (if handler (funcall handler (quote load) filename noerror nomessage nosuffix) (if (or ... ...) (and ... ...) (load-internal file noerror nomessage nosuffix ...))) ) # bind (path handler filename) (let* ((filename ...) (handler ...) (path nil)) (if handler (funcall handler ... filename noerror nomessage nosuffix) (if ... ... ...))) ) # bind (nosuffix nomessage noerror file) load("/usr/local/infodock/infodock/build/sparc-sun-solaris/lisp/gutter-items.el") (prog1 (load full-path) (garbage-collect)) ) (if full-path (prog1 (load full-path) (garbage-collect)) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil) ) # bind (full-path) (let ((full-path ...)) (if full-path (prog1 ... ...) (external-debugging-output ...) nil)) ) # bind (file) pureload("gutter-items") (if (pureload file) nil (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) ) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) ) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files))) ) # bind (file files) (let ((files preloaded-file-list) file) (while (setq file ...) (unless ... ... ...) (setq files ...)) (when (not ...) (defun toolbar-button-p ... "No toolbar support." nil) (defun toolbar-specifier-p ... "No toolbar support." nil)) (fmakunbound (quote pureload))) ) (lambda nil (setq Installation-string (save-current-buffer ... ... ... ... ...)) (setq load-path (split-path ...)) (setq module-load-path (split-path ...)) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (load "very-early-lisp" nil t) (let (...) (setq load-path ...)) (setq load-warn-when-source-newer t load-warn-when-source-only t) (defun pureload (file) (let ... ...)) (load (expand-file-name "../lisp/dumped-lisp.el")) (let (... file) (while ... ... ...) (when ... ... ...) (fmakunbound ...)) (packages-load-package-dumped-lisps late-package-load-path))() # (unwind-protect ...) call-with-condition-handler(really-early-error-handler (lambda nil (setq Installation-string (save-current-buffer ... ... ... ... ...)) (setq load-path (split-path ...)) (setq module-load-path (split-path ...)) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (load "very-early-lisp" nil t) (let (...) (setq load-path ...)) (setq load-warn-when-source-newer t load-warn-when-source-only t) (defun pureload (file) (let ... ...)) (load (expand-file-name "../lisp/dumped-lisp.el")) (let (... file) (while ... ... ...) (when ... ... ...) (fmakunbound ...)) (packages-load-package-dumped-lisps late-package-load-path))) # bind (gc-cons-threshold) (let ((gc-cons-threshold 30000)) (call-with-condition-handler (quote really-early-error-handler) (function ...)) (setq preloaded-file-list (mapcar ... preloaded-file-list)) (setq load-warn-when-source-newer t load-warn-when-source-only nil) (setq debugger (quote debug)) (when (member "no-site-file" command-line-args) (setq site-start-file nil)) (when (load "site-load" t) (garbage-collect)) (when purify-flag (message "Finding pointers to doc strings...") (Snarf-documentation "DOC") (message "Finding pointers to doc strings...done") (Verify-documentation)) (when (stringp site-start-file) (load "site-init" t)) (setq current-load-list nil) (garbage-collect) (buffer-enable-undo "*scratch*")) ) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load("loadup.el") # bind (purify-flag load-ignore-elc-files) (let ((load-ignore-elc-files t) (purify-flag nil)) (load "loadup.el")) ) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load("loadup-el.el") (progn (setq command-line-args (append ... update-elc-files-to-compile)) (load "loadup-el.el")) ) (if update-elc-files-to-compile (progn (setq command-line-args ...) (load "loadup-el.el")) ( script done on Mon Jul 26 16:46:17 1999 1999-07-26 SL Baur <steve(a)beopen.com> * gutter-items.el (window-setup-hook): Move initialization here. Index: lisp/gutter-items.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/Attic/gutter-items.el,v retrieving revision 1.1.2.4 diff -u -r1.1.2.4 gutter-items.el --- lisp/gutter-items.el 1999/07/25 19:16:44 1.1.2.4 +++ lisp/gutter-items.el 1999/07/26 08:38:32 ＠＠ -152,7 +152,7 ＠＠ (resize-subwindow (glyph-image-instance gutter-buffers-tab) (gutter-pixel-width) nil))) -(add-tab-to-gutter) +(add-hook 'window-setup-hook 'add-tab-to-gutter) (add-hook 'switch-to-buffer-hooks 'update-tab-in-gutter) (add-hook 'create-frame-hook 'update-tab-in-gutter)

2 participants
1 comments

Re: patch very preliminary support for /dev/pts/ 25 years, 4 months

Neal D. Becker

News flash! It seems only checking for glibc-2.1 is needed. According to another email I received the code I contributed will work on any glibc-2.1, regardless of kernel support for pty98. Maybe someone who has non-pty98 system can check that my patch is OK? > >>>>> "Franz" == Franz Sirl <Franz.Sirl-kernel(a)lauterbach.com> writes: [...] > Yes, I just checked the code. If it cannot open /dev/ptmx it falls back > back to the old /dev/ptyXY stuff.

1 participants
0 comments

Re: vc-revert-buffer1 sacrifices fontification preserving minor modes 25 years, 4 months

Jan Vroonhof

Adrian Aichner <aichner(a)ecf.teradyne.com> writes: > Currently vc-revert-buffer1 is plain broken, because it looses > fontification of font-locked buffers. No it isn't :-) Something is wrong with font-lock and insert-file-contents on your side. Jan

1 participants
0 comments

Re: vc-revert-buffer1 sacrifices fontification preserving minor modes 25 years, 4 months

Adrian Aichner

>>>>> "dv" == Didier Verna <verna(a)inf.enst.fr> writes: dv> Adrian Aichner <aichner(a)ecf.teradyne.com> writes: >> How about this patch against >> xemacs-packages\prog\vc\vc.el? >> >> It preserves minor modes AND does not lose fontification of buffer. dv> (I don't use vc) It seems that you blindly call The good thing about vc.el is that I have one frontend for both RCS and CVS. For CVS I don't need to run cvs-examine to get a *cvs* buffer to commit changes from there. dv> font-lock-fontify-buffer. But what makes you think dv> people always have (and will want) fontification ? Currently vc-revert-buffer1 is plain broken, because it looses fontification of font-locked buffers. How about this patch instead? Index: vc.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-packages/prog/vc/vc.el,v retrieving revision 1.8 diff -u -u -r1.8 vc.el --- vc.el 1999/07/09 07:51:48 1.8 +++ vc.el 1999/07/26 14:25:03 ＠＠ -718,6 +718,10 ＠＠ (let ((context (vc-buffer-context))) ;; t means don't call normal-mode; that's to preserve various minor modes. (revert-buffer arg no-confirm t) + ;; Since we preserve-modes above, we have to fontify the buffer + ;; ourselves, when font-lock-mode is on. + (if font-lock-mode + (font-lock-fontify-buffer)) (vc-restore-buffer-context context))) Regards, Adrian

1 participants
0 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 July 1999