August 1999 - XEmacs-Beta - XEmacs Mailing List Archives

Re: USER-INIT-DIRECTORY and all that jazz 24 years, 8 months

Hrvoje Niksic

sperber(a)informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor]) writes: > I conclude from this that `init-file-user' is really too arcane to > matter. The logic behind it is too twisted for me to really grok, > and therefore probably to most users and many developers. I think I agree with this. I wonder what the rationale for introducing `init-file-user' must have looked like. Like, "Wouldn't it really be cool to have a variable that makes me pretend that I'm another user, because I'm too lazy to cp his .emacs over to my home dir and I can't be bothered to manually specify a different startup file/directory?" > - zap `init-file-user' > - set user-init-directory (effectively) to "~/.xemacs" > - fix the two packages that need adjustment Yes, yes, and yes. As far as I'm concerned, go ahead.

2 participants
1 comments

Weird Unreproducible Error in 21.1 24 years, 8 months

Vin Shelton

This afternoon I got the following error under a freshly-started 21.1.6. I created a second frame (C-x 5 2) and stretched it out so it was nearly full-screen width. Immediately after resizing the window (from the fvwm2 window manager), the mouse tracked across the rightmost edge of the modeline and I got the following error: Signaling: (args-out-of-range "-----XEmacs: *scratch* (Lisp Interaction)----L5--C0--All------------------------------------------------" 179 179) map-extents(#<compiled-function (e ignored) "...(2)" [e] 1> "-----XEmacs: *scratch* (Lisp Interaction)----L5--C0--All------------------------------------------------" 179 179 nil nil balloon-help) balloon-help-motion-hook(#<motion-event 1034, 785>) run-hook-with-args(balloon-help-motion-hook #<motion-event 1034, 785>) mouse-motion-hook(#<motion-event 1034, 785>) I got the error multiple times, but I can now no longer reproduce this. Does anyone have any ideas? - vin

2 participants
1 comments

easy-mmode.el 24 years, 8 months

Greg Klanderman

Can we add this to some appropriate XEmacs package? The new pcl-cvs maintainer has decided to use this package, which is included in GNU Emacs, and I'd like to be able to upgrade our pcl-cvs before too long. Greg (I'm not currently on the list so please include me in replies) ============================================================ ;;; easy-mmode.el --- easy definition of minor modes. ;; Copyright (C) 1997 Free Software Foundation, Inc. ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan(a)inria.fr> ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Minor modes are useful and common. This package makes defining a ;; minor mode easy, by focusing on the writing of the minor mode ;; functionalities themselves. Moreover, this package enforces a ;; conventional naming of user interface primitives, making things ;; natural for the minor-mode end-users. ;; For each mode, easy-mmode defines the following: ;; <mode> : The minor mode predicate. A buffer-local variable. ;; <mode>-map : The keymap possibly associated to <mode>. ;; <mode>-hook,<mode>-on-hook,<mode>-off-hook and <mode>-mode: ;; see `easy-mmode-define-minor-mode' documentation ;; ;; eval ;; (pp (macroexpand '(easy-mmode-define-minor-mode <your-mode> <doc>))) ;; to check the result before using it. ;; The order in which minor modes are installed is important. Keymap ;; lookup proceeds down minor-mode-map-alist, and the order there ;; tends to be the reverse of the order in which the modes were ;; installed. Perhaps there should be a feature to let you specify ;; orderings. ;;; Code: (defun easy-mmode-define-keymap (keymap-alist &optional menu-name) "Return a keymap built from KEYMAP-ALIST. KEYMAP-ALIST must be a list of (KEYBINDING . BINDING) where KEYBINDING and BINDINGS are suited as for define-key. optional MENU-NAME is passed to `make-sparse-keymap'." (let ((keymap (make-sparse-keymap menu-name))) (mapcar (function (lambda (bind) (define-key keymap (car bind) (cdr bind)))) keymap-alist) keymap)) (defmacro easy-mmode-define-toggle (mode &optional doc) "Define a one arg toggle mode MODE function and associated hooks. MODE-mode is the so defined function that toggle the mode. optional DOC is its associated documentation. Hooks are checked for run, each time MODE-mode is called. They run under the followings conditions: MODE-hook: if the mode is toggled. MODE-on-hook: if the mode is on. MODE-off-hook: if the mode is off. When the mode is effectively toggled, two hooks may run. If so MODE-hook is guaranteed to be the first. \(defmacro easy-mmode-define-toggle (MODE &optional DOC)" (let* ((mode-name (if (string-match "-mode\\'" (symbol-name mode)) (symbol-name mode) (concat (symbol-name mode) "-mode"))) (hook (intern (concat mode-name "-hook"))) (hook-on (intern (concat mode-name "-on-hook"))) (hook-off (intern (concat mode-name "-off-hook"))) (toggle (intern mode-name)) (mode toggle) (toggle-doc (or doc (format "With no argument, toggle %s mode. With arg turn mode on. With zero or negative arg turn mode off" mode-name)))) `(progn (defvar ,hook nil ,(format "Hook called when %s mode is toggled" mode-name)) (defvar ,hook-on nil ,(format "Hook called when %s mode is turned on" mode-name)) (defvar ,hook-off nil ,(format "Hook called when %s mode is turned off" mode-name)) (defun ,toggle (&optional arg) ,toggle-doc (interactive "P") (let ((old-mode ,mode)) (setq ,mode (if arg (or (listp arg);; C-u alone (> (prefix-numeric-value arg) 0)) (not ,mode))) (and ,hook (not (equal old-mode ,mode)) (run-hooks ',hook)) (and ,hook-on ,mode (run-hooks ',hook-on)) (and ,hook-off (not ,mode) (run-hooks ',hook-off))))))) ;;;###autoload (defmacro easy-mmode-define-minor-mode (mode doc &optional init-value lighter keymap) "Define a new minor mode MODE. This function defines the associated control variable, keymap, toggle command, and hooks (see `easy-mmode-define-toggle'). DOC is the documentation for the mode toggle command. Optional LIGHTER is displayed in the mode-bar when the mode is on. Optional KEYMAP is the default (defvar) keymap bound to the mode keymap. If it is a list, it is passed to `easy-mmode-define-keymap' in order to build a valid keymap. \(defmacro easy-mmode-define-minor-mode (MODE DOC &optional INIT-VALUE LIGHTER KEYMAP)...\)" (let* ((mode-name (symbol-name mode)) (mode-doc (format "Non-nil if %s mode is enabled." mode-name)) (keymap-name (concat mode-name "-map")) (keymap-doc (format "Keymap for %s mode." mode-name))) `(progn ;; define the switch (defvar ,mode ,init-value ,mode-doc) (make-variable-buffer-local ',mode) ;; define the minor-mode keymap (defvar ,(intern keymap-name) (cond ((and ,keymap (keymapp ,keymap)) ,keymap) ((listp ,keymap) (easy-mmode-define-keymap ,keymap)) (t (error "Invalid keymap %S" ,keymap))) ,keymap-doc) ;; define the toggle and the hooks ,(macroexpand `(easy-mmode-define-toggle ,mode ,doc)) ; toggle and hooks ;; update the mode-bar (or (assq ',mode minor-mode-alist) (setq minor-mode-alist (cons (list ',mode ,lighter) minor-mode-alist))) ;; update the minor-mode-map (or (assq ',mode minor-mode-map-alist) (setq minor-mode-map-alist (cons (cons ',mode ,(intern keymap-name)) minor-mode-map-alist)))) )) (provide 'easy-mmode) ;;; easy-mmode.el ends here

2 participants
1 comments

latest 21.2 CVS sources: wierd hang under Windows NT 24 years, 8 months

Damon Lipparelli

After building the most recent (as of 3:44 pm PDT on 8/30/99) 21.2 sources, I get a strange hang in XEmacs when I try to access the menubar. The menu entry that I'm selecting (say, "Options") highlights, but the menu never appears. XEmacs starts eating CPU at a furious rate, and then, eventually, I get the following error in the echo area: (malformed-list #<INTERNAL OBJECT (XEmacs bug?) (symbol-value-forward type 13) 0x1167680) Is anyone else seeing this? -lipp

1 participants
0 comments

Backing out from isearch-case-fold-search 24 years, 8 months

Hrvoje Niksic

Let's take a one-question bug-or-feature quiz: In isearch, when you type in a capital letter, isearch becomes case-sensitive. However, when you delete the letter, the search *remains* case-sensitive. In fact, there is no way to make it case-insensitive without exiting and reentering the search. Bug or feature? I think it's a bug, and I intend to fix it. However, sufficient number of people claiming it's a feature will convince me otherwise (not to mention a veto of a member of the review board.) FSF Emacs behaves the way I want to make XEmacs behave.

3 participants
2 comments

Re: Backing out from isearch-case-fold-search 24 years, 8 months

Didier Verna

Hrvoje Niksic wrote: > Let's take a one-question bug-or-feature quiz: > > In isearch, when you type in a capital letter, isearch becomes > case-sensitive. However, when you delete the letter, the search > *remains* case-sensitive. In fact, there is no way to make it > case-insensitive without exiting and reentering the search. > > Bug or feature? I say: bug. This is something I probably missed when I did the search case improvements one year ago. -- / / _ _ Didier Verna http://www.inf.enst.fr/~verna/ - / / - / / /_/ / ENST, INFRES C201.1 mailto:verna＠inf.enst.fr /_/ / /_/ / /__ / 46 rue Barrault Tel. +33 (1) 45 81 73 46 75013 Paris, France Fax. +33 (1) 45 81 31 19

1 participants
0 comments

Re: Continuing problems with current 21.2 24 years, 8 months

Hrvoje Niksic

Andy Piper <andy(a)xemacs.org> writes: > At 11:44 AM 8/30/99 +0200, Hrvoje Niksic wrote: > >To make things worse, not even your second patch cures the crash. The > >backtrace seems the same. > > Of course I was assuming that I had introduced new bugs, not revealed old > ones. You will be pleased to know that I have fixed at least 3 lwlib bugs > as part of fixing the tab colors. All authored by me of course :) > > I have applied this to cvs. The latest, hot version from the CVS is not crashing. Thanks!

1 participants
0 comments

Re: USER-INIT-DIRECTORY and all that jazz 24 years, 8 months

Michael Sperber

>>>>> "Jan" == Jan Vroonhof <vroonhof(a)math.ethz.ch> writes: Jan> sperber(a)Informatik.Uni-Tuebingen.De (Michael Sperber [Mr. Preprocessor]) writes: >> No, I mean the loadup staging. Parts of the code actually require to >> location of ~/.xemacs *before* even the command-line parsing has run >> which groks -u. Jan> Ouch. Which part is that? For example, info.el currently does this: (defcustom Info-annotations-path '("~/.xemacs/info.notes" ... packages.el does this: (defvar package-locations (list (list (paths-construct-path '("~" ".xemacs" ... I know this all looks easy to fix, but try it sometime ... -- Cheers =8-} Chipsy Friede, Völkerverständigung und überhaupt blabla

1 participants
0 comments

Re: USER-INIT-DIRECTORY and all that jazz 24 years, 8 months

Jan Vroonhof

sperber(a)Informatik.Uni-Tuebingen.De (Michael Sperber [Mr. Preprocessor]) writes: > No, I mean the loadup staging. Parts of the code actually require to > location of ~/.xemacs *before* even the command-line parsing has run > which groks -u. Ouch. Which part is that? Jan

1 participants
0 comments

Re: Continuing problems with current 21.2 24 years, 8 months

Hrvoje Niksic

Olivier Galibert <galibert(a)pobox.com> writes: > On Mon, Aug 30, 1999 at 11:44:22AM +0200, Hrvoje Niksic wrote: > > To make things worse, not even your second patch cures the crash. The > > backtrace seems the same. > > You can workaround it with: [...] This cures the crash for me; thanks.

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 August 1999