problems with xemacs on shell1.sourceforge.net
23 years, 9 months
Adrian Aichner
Adrian Aichner
emacs-version
"21.1 (patch 11) \"Carlsbad Caverns\" XEmacs Lucid"
uname -a
Linux usw-pr-shell1 2.2.18pre11-20001219-shells #1 SMP Tue Dec 19 13:35:13 PST 2000 i686 unknown
Adrian
cd /home/users/adriana/hacking/xemacs-packages/oa/psgml/
ls
Compilation started at Sun Feb 11 00:17:28 2001 -0800 (PST)
Fatal error: assertion failed, file signal.c, line 340, async_timer_suppress_count > 0
[25;1H[K[39;49m[?1l>[?25h[?1047l[?1048l
Fatal error (6).
Your files have been auto-saved.
Use `M-x recover-session' to recover them.
If you have access to the PROBLEMS file that came with your
version of XEmacs, please check to see if your crash is described
there, as there may be a workaround available.
Otherwise, please report this bug by running the send-pr
script included with XEmacs, or selecting `Send Bug Report'
from the help menu.
As a last resort send ordinary email to `crashes(a)xemacs.org'.
*MAKE SURE* to include the information in the command
M-x describe-installation.
If at all possible, *please* try to obtain a C stack backtrace;
it will help us immensely in determining what went wrong.
To do this, locate the core file that was produced as a result
of this crash (it's usually called `core' and is located in the
directory in which you started the editor, or maybe in your home
directory), and type
gdb /home/groups/xemacs/tools/xemacs/bin/xemacs core
then type `where' when the debugger prompt comes up.
(If you don't have GDB on your system, you might have DBX,
or XDB, or SDB. A similar procedure should work for all of
these. Ask your system administrator if you need more help.)
Lisp backtrace follows:
# (unwind-protect ...)
start-process-internal("compilation" #<buffer "*compilation*"> "/bin/bash" "-c" "ls")
apply(start-process-internal "compilation" #<buffer "*compilation*"> "/bin/bash" ("-c" "ls"))
# bind (program-args program buffer name)
start-process("compilation" #<buffer "*compilation*"> "/bin/bash" "-c" "ls")
# bind (args buffer name)
start-process-shell-command("compilation" #<buffer "*compilation*"> "ls")
# bind (process-environment)
# (unwind-protect ...)
# bind (regexp-alist parser thisdir buffer-save outwin outbuf name-function regexp-alist parser name-of-mode error-message command)
compile-internal("ls" "No more errors")
# bind (command)
#<compiled-function (command) "...(13)" [command compile-command save-some-buffers compilation-ask-about-save nil compile-internal "No more errors"] 3 ("/home/groups/xemacs/tools/xemacs/lib/xemacs/xemacs-packages/lisp/xemacs-base/compile.elc" . 14090) (byte-code "¬ «ÂÃ
＠ k«ÆªÅ#C C" [compilation-read-command current-prefix-arg read-shell-command "Compile command: " compile-command compile-history ...] 5)>("ls")
call-interactively(compile)
command-execute(compile t)
# bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
execute-extended-command(nil)
# bind (command-debug-status)
call-interactively(execute-extended-command)
# (condition-case ... . error)
# (catch top-level ...)
Compilation aborted at Sun Feb 11 00:17:28
- 1 participants
- 0 comments
CVS on cvs.xemacs.org acting up again!
23 years, 9 months
Adrian Aichner
Adrian Aichner
Here's what I get on shell1.sourceforge.net, where I try to look into
a Makefile problem under UNIX, reported by Steve Young.
Is there still hope?
Best regards,
Adrian
adriana＠usw-pr-shell1:~/hacking/xemacs-packages$ cvs status XEmacs.rules
cvs server: failed to create lock directory in repository `/cvsroot/xemacs/XEmacs/xemacs-packages': No such file or directory
cvs server: failed to obtain dir lock in repository `/cvsroot/xemacs/XEmacs/xemacs-packages'
cvs [server aborted]: read lock failed - giving up
adriana＠usw-pr-shell1:~/hacking/xemacs-packages$ cvs update -P -d
? *compilation*
cvs server: Updating .
cvs server: cannot open directory /cvsroot/xemacs/XEmacs/xemacs-packages: No such file or directory
cvs server: skipping directory
adriana＠usw-pr-shell1:~/hacking/xemacs-packages$
--
Adrian Aichner <adrian(a)xemacs.org>
- 1 participants
- 0 comments
font-lock problems with 2/9/2001 build
23 years, 9 months
Damon Lipparelli
Damon Lipparelli
Using the version of "font-lock.el" in the latest 21.2 build (revision
1.7.2.28), loading any file which requires font-lock seems to peg the CPU.
Reverting to revision 1.7.2.27 fixes things....
-lipp
- 4 participants
- 3 comments
VM in Pre-Releases now correctly reports version 6.90.
23 years, 9 months
Steve Youngs
Steve Youngs
I've just released an updated version of VM (the old one wasn't
reporting the correct version number).
Get it by:
Options -> Manage Packages -> Add Download Site -> Pre-Releases [1]
M-x package-get-all RET vm RET
"Version 1.28" will display in minibufffer, hit RET to begin
download.
For XEmacs 21.2.x replace "Options -> Manage Packages" with "Tools ->
Packages".
Footnotes:
[1] In XEmacs 21.2 this step downloads the package-index file. Is
that the case for 21.1?
--
|---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|
- 1 participants
- 0 comments
Updated Packages in Pre-Releases
23 years, 9 months
Steve Youngs
Steve Youngs
I've just uploaded a couple of updated packages to the Pre-Releases
directory.
Gnus Sync with version 5.8.8
VM Sync with version 6.90
Installation Instructions:
=========================
XEmacs 21.1.14
1) Options -> Manage Packages -> Add Download Site -> Pre-Releases
2) Options -> Manage Packages -> List & Install
3) Select Gnus and or VM
4) Packages -> Install/Remove Selected
5) Restart XEmacs
XEmacs 21.2.x
1) Tools -> Packages -> Add Download Site -> Pre-Releases
2) Tools -> Packages -> List & Install
3 - 5) As per XEmacs 21.1.14
Please let me know if anything goes belly up.
--
|---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|
- 3 participants
- 5 comments
problem with latest ediff and clearcase mode?
23 years, 9 months
Charles Hines
Charles Hines
Howdy all.
I noticed that using the latest Ediff package (from the current SUMO, in
conjunction with 21.1.14) fails to work if clearcase mode has been loaded.
Using the elisp debugger I've traced the problem to changes in
ediff-file-remote-p which now calls:
(find-file-name-handler file-name 'file-local-copy)
instead of it's previous method of checking:
(car (cond ((featurep 'efs-auto) (efs-ftp-path file-name))
((fboundp 'file-remote-p) (file-remote-p file-name))
(t (require 'ange-ftp)
;; Can happen only in Emacs, since XEmacs has file-remote-p
(ange-ftp-ftp-name file-name))))
and the latest clearcase.el available from:
http://www.ultranet.com/~esler/ccase-mode/
sets a find-file-name-handler:
;; This handler ensures that VC doesn't attempt to operate inside the MVFS.
;; This stops it from futile searches for RCS directories and the like inside.
;; It prevents a certain amount of clutter in the MVFS' noent-cache.
;;
(defun clearcase-suppress-vc-within-mvfs-file-name-handler (operation &rest args)
(clearcase-when-debugging
(if (fboundp 'clearcase-utl-syslog)
(clearcase-utl-syslog "*clearcase-fh-trace*"
(cons "clearcase-suppress-vc-within-mvfs-file-name-handler:"
(cons operation args)))))
;; Inhibit recursion:
;;
(let ((inhibit-file-name-handlers
(cons 'clearcase-suppress-vc-within-mvfs-file-name-handler
(and (eq inhibit-file-name-operation operation)
inhibit-file-name-handlers)))
(inhibit-file-name-operation operation))
(cond
((and (eq operation 'vc-registered)
(clearcase-file-would-be-in-view-p (car args)))
nil)
(t
(apply operation args)))))
and if I set the variable that keeps this handler from being installed, ediff
works fine. But if this handler gets installed, ediff won't work on ANY 2
files (not just files residing in the clearcase filesystem), failing with a
"Can't diff remote files:" message.
So I'm wondering where the problem actually lies, in the handler that
clearcase.el registers or in the ediff definition of ediff-file-remote-p? I
felt that someone else on the list would be much better qualified to answer
that question than myself (I have no clue).
Thanks,
Chuck
--
Charles K. Hines <ckh(a)requesttech.com> <hines(a)gderome.com>
Principal Scientist at ReQuest Technologies Inc (http://www.ReQuestTech.com/)
Martial Arts Instructor [Modern Arnis and Balintawak Escrima]
"Go back to sleep, Chuck. You're just havin' a nightmare
-- of course, we ARE still in Hell." (Gary Larson)
- 4 participants
- 6 comments
Re: [Lennart Staflin <lenst@lysator.liu.se>] [Psgml-devel] ANNOUNCE: PSGML version 1.2.2
23 years, 9 months
Adrian Aichner
Adrian Aichner
>>>>> "APA" == Adrian Aichner <Adrian.Aichner(a)t-online.de> writes:
APA> Greetings All!
APA> Seems like I demonstrated good instinct once again by
APA> subscribing to psgml-devel(a)lists.sourceforge.net just before
APA> this announcement.
APA> Anybody up for syncing this with our psgml package, Jerry,
APA> others?
I am fairly far along doing that.
If I can test successfully after the sync, I'll submit a patch.
I'll also feed back many typo fixes to Lennart.
Best regards,
Adrian
APA> The ChangeLog looks pretty attractive.
APA> Best regards,
APA> Adrian
APA> Fri Feb 9 01:06:27 2001 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * Version 1.2.2 released
APA> * psgml.el (sgml-mode-map): Bind (meta control h) instead of ESC
APA> C-h, avoids redefining M-BS
APA> Thu Feb 8 20:08:47 2001 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-info.el: Add provide psgml-info
APA> Sun Oct 22 17:29:53 2000 Marc-Antoine Parent
APA> * patch from Marc-Antoine Parent
APA> * psgml-edit.el (sgml-read-attribute-value): include the element name, thus:
APA> Value for {attribute name} in {element name} ({type} {Default}):
APA> 2000-10-11 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-edit.el (sgml-indent-line): new strategy for identifying
APA> elements
APA> 2000-09-06 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-api.el (sgml-map-content): Use sgml-with-parser-syntax-ro
APA> * psgml-parse.el (sgml-find-start-point): renamed to
APA> sgml-goto-start-point, to indicate that this actually changes the
APA> point and buffer. And should always be called inside
APA> sgml-with-parser-syntax.
APA> (sgml-with-parser-syntax-ro): As sgml-with-parser-syntax also
APA> handle restoring buffer modification state.
APA> (sgml-last-buffer): New state variable
APA> (sgml-with-parser-syntax): set sgml-last-buffer
APA> (sgml-mainbuf-point): new function
APA> (sgml-max-pos-in-tree): new function
APA> (sgml-update-display): don't call sgml-find-start-point, use
APA> sgml-max-pos-in-tree to figure out if there is much to parse.
APA> (sgml-parse-to): calls sgml-parser-loop directly no
APA> sgml-parse-continue.
APA> (sgml-parse-continue): use sgml-with-parser-syntax-ro and
APA> set-buffer to sgml-last-buffer.
APA> 2000-08-24 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml.el (sgml-insert-defaulted-attributes): new option
APA> * psgml-edit.el (sgml-insert-attributes): check new option
APA> * psgml-fs.el (style-format): set ps-left-header to include a
APA> style-sheet specified title and the filename. (for ps-print-buffer)
APA> (fs-special-styles): New special style 'title' for setting title.
APA> (fs-do-style): handle title style
APA> (fs-element-content): make element argument optional, defaults to
APA> current element.
APA> 2000-08-08 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-edit.el (sgml-insert-element): Fix bug with empty element.
APA> Thu Aug 3 07:52:46 2000 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-edit.el (sgml-insert-element): Fix bug when inserting
APA> element at end of buffer.
APA> 2000-08-03 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-edit.el (sgml-attribute-buffer): Fix missing space for
APA> unspecified required attributes.
APA> 2000-06-05 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-dtd.el (sgml-parse-parameter-literal): use
APA> buffer-substring-no-properties .
APA> 2000-05-31 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-api.el (sgml-parse-data): Don't call sgml-parse-loop
APA> directly, use sgml-parse-continue.
APA> Sat May 27 00:04:31 2000 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-edit.el (sgml-attr-clean-and-insert): new command. Used to
APA> automatically remove #DEFAULT when a character is typed.
APA> (sgml-attr-default-keymap): keymap used as only for #DEFAULT in
APA> attribute editing.
APA> Mon Apr 24 09:55:14 2000 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-edit.el (sgml-complete): Transform case on inserted names
APA> using sgml-general-insert-case or sgml-entity-insert-case.
APA> Sun Apr 16 16:07:55 2000 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-edit.el (sgml-indent-line): compute indentation from
APA> context, not element under point. Did this change once before but
APA> had to back it out. This time take care of omitted end-tags by
APA> choosing parent element as context, if point is at the very end of
APA> the element. Don't do special attribute indenting for elements
APA> that occur in data context.
APA> (sgml-fill-region): Fix giving up to early.
APA> (sgml-do-fill): indent tags of subelements in element context
APA> * psgml-info.el (sgml-describe-element-type): Use sgml-princ-names
APA> for occurs in section.
APA> 2000-03-22 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-edit.el (sgml-change-element-name): Add end-tag event if
APA> original element is empty. (hmm this isn't quite right). Also use
APA> sgml-find-context-of to find element, because -element-of gives
APA> the element of the following char.
APA> Tue Jan 4 19:51:03 2000 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-parse.el (sgml-with-parser-syntax): Restore current buffer
APA> before restoring syntax table.
APA> Tue Dec 21 20:50:31 1999 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-other.el (sgml-set-face-for): set rear-nonsticky for face
APA> when sgml-use-text-properties is true. (Suggested by Dirk Frömbgen)
APA> Sat Dec 18 18:55:02 1999 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-charent.el (sgml-charent-to-display-char): use
APA> buffer-substring-no-properties to allow for using text properties
APA> for fontification.
APA> 1999-11-02 Tim Bradshaw <tfb(a)tfeb.org>
APA> * psgml-edit.el (sgml-doctype-insert): made it not loop when it
APA> gets a bogus nil
APA> 1999-12-16 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-parse.el (sgml-parse-prolog): restore buffer modified
APA> after parsing. To allow using text properties for fontification.
APA> (sgml-parse-continue): dito.
APA> (sgml-parse-to): call sgml-parse-continue instead of calling
APA> sgml-parser-loop directly.
APA> 1999-12-15 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml.el: autoload for sgml-do-set-option
APA> 1999-12-03 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml.el (sgml-mode-syntax-table): new variable
APA> (sgml-mode): use sgml-mode-syntax-table
APA> 1999-11-29 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml.el (sgml-validate-error-regexps): Also recognize warnings
APA> (:W:) in output from nsgmls.
APA> 1999-11-11 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-parse.el (sgml-parse-to): Let sgml-with-parser-syntax wrap
APA> a bigger chunk of the code to make sure the syntax table is set up
APA> before any buffer changes.
APA> Tue Nov 9 16:25:53 1999 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-parse.el (sgml-modify-dtd): use sgml-general-case on names
APA> from modifier.
APA> Mon Nov 8 22:13:12 1999 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-info.el (sgml-eltype-refrenced-elements): Copy sequence
APA> before sorting destructively.
APA> (sgml-describe-element-type): Include exceptions in info display.
APA> Thu Nov 4 19:07:09 1999 Lennart Staflin <lenst(a)lysator.liu.se>
APA> * psgml-parse.el (sgml-note-change-at): If in XML mode and
APA> previous char is /, back up one char. This allows for the />
APA> delimiter to be recognized even if the start tag has been
APA> previously parsed as an improperly ended tag.
APA> * psgml-edit.el (sgml-last-element): don't use sgml-last-element
APA> for XML (there is not omitted tags to account for).
APA> 1999-10-21 Lennart Staflin <lennarts(a)infotek.no>
APA> * psgml-parse.el (sgml-push-to-entity): restore the (erase-buffer)
APA> that had been commented out. This is needed for the case when
APA> sgml-try-merge-compiled-dtd fails and leaves junk in the buffer.
APA> 1999-10-19 Lennart Staflin <lennarts(a)infotek.no>
APA> * Version 1.2.1 released
APA> From: Lennart Staflin <lenst(a)lysator.liu.se>
APA> Subject: [Psgml-devel] ANNOUNCE: PSGML version 1.2.2
APA> To: psgml-devel(a)lists.sourceforge.net,
APA> psgml-user(a)lists.sourceforge.net
APA> Date: 10 Feb 2001 08:52:37 +0100
APA> Message-ID: <m23ddn9dq1.fsf(a)lysator.liu.se>
APA> Xref: D5DC120J sourceforge:1828
APA> This release fixes serveral bugs.
APA> PSGML is an Emacs major mode for editing SGML and XML documents. It
APA> works with GNU Emacs 19.34, 20.3. PSGML contains a simple SGML/XML
APA> parser and can work with any DTD. Functions provided includes menus
APA> and commands for inserting tags with only the contextually valid tags,
APA> identification of structural errors, editing of attribute values in a
APA> separate window with information about types and defaults, and
APA> structure based editing.
APA> Get it from
APA> ftp://ftp.lysator.liu.se/pub/sgml/psgml-1.2.2.tar.gz
APA> http://www.lysator.liu.se/~lenst/about_psgml/psgml-1.2.2.tar.gz
APA> PSGML info
APA> http://www.lysator.liu.se/~lenst/about_psgml/
APA> http://www.sourceforge.net/projects/psgml
APA> --
APA> Lennart Staflin <lenst(a)lysator.liu.se> /*/ (:ABSOLUTE :WILD)
APA> _______________________________________________
APA> Psgml-devel mailing list
APA> Psgml-devel(a)lists.sourceforge.net
APA> http://lists.sourceforge.net/lists/listinfo/psgml-devel
APA> ----------
APA> --
APA> Adrian Aichner
APA> mailto:adriana＠users.sourceforge.net
APA> http://xemacs.sourceforge.net/
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
makeinfo 3.12
23 years, 9 months
John A. Turner
John A. Turner
just a note...
after updating my 21.2 tree my rebuild failed with:
makeinfo -P xemacs -o ../info/xemacs.info xemacs/xemacs.texi
Making info file `../info/xemacs.info' from `xemacs/xemacs.texi'.
xemacs/programs.texi:1087: Unknown command `env'.
xemacs/programs.texi:1087: Misplaced {.
xemacs/programs.texi:1087: Misplaced }.
makeinfo: Removing output file `../info/xemacs.info' due to errors; use --force to preserve.
found an old makeinfo (3.12) in my path, renamed and updated to the
texinfo-4.0 pkg, and all is happy
--
John A. Turner, Ph.D. Senior Research Associate
Blue Sky Studios, 44 S. Broadway, White Plains, NY 10601
http://www.blueskystudios.com/ (914) 259-6319
- 4 participants
- 3 comments
[Lennart Staflin <lenst@lysator.liu.se>] [Psgml-devel] ANNOUNCE: PSGML version 1.2.2
23 years, 9 months
Adrian Aichner
Adrian Aichner
Greetings All!
Seems like I demonstrated good instinct once again by subscribing to
psgml-devel(a)lists.sourceforge.net just before this announcement.
Anybody up for syncing this with our psgml package, Jerry, others?
The ChangeLog looks pretty attractive.
Best regards,
Adrian
Fri Feb 9 01:06:27 2001 Lennart Staflin <lenst(a)lysator.liu.se>
* Version 1.2.2 released
* psgml.el (sgml-mode-map): Bind (meta control h) instead of ESC
C-h, avoids redefining M-BS
Thu Feb 8 20:08:47 2001 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-info.el: Add provide psgml-info
Sun Oct 22 17:29:53 2000 Marc-Antoine Parent
* patch from Marc-Antoine Parent
* psgml-edit.el (sgml-read-attribute-value): include the element name, thus:
Value for {attribute name} in {element name} ({type} {Default}):
2000-10-11 Lennart Staflin <lennarts(a)infotek.no>
* psgml-edit.el (sgml-indent-line): new strategy for identifying
elements
2000-09-06 Lennart Staflin <lennarts(a)infotek.no>
* psgml-api.el (sgml-map-content): Use sgml-with-parser-syntax-ro
* psgml-parse.el (sgml-find-start-point): renamed to
sgml-goto-start-point, to indicate that this actually changes the
point and buffer. And should always be called inside
sgml-with-parser-syntax.
(sgml-with-parser-syntax-ro): As sgml-with-parser-syntax also
handle restoring buffer modification state.
(sgml-last-buffer): New state variable
(sgml-with-parser-syntax): set sgml-last-buffer
(sgml-mainbuf-point): new function
(sgml-max-pos-in-tree): new function
(sgml-update-display): don't call sgml-find-start-point, use
sgml-max-pos-in-tree to figure out if there is much to parse.
(sgml-parse-to): calls sgml-parser-loop directly no
sgml-parse-continue.
(sgml-parse-continue): use sgml-with-parser-syntax-ro and
set-buffer to sgml-last-buffer.
2000-08-24 Lennart Staflin <lennarts(a)infotek.no>
* psgml.el (sgml-insert-defaulted-attributes): new option
* psgml-edit.el (sgml-insert-attributes): check new option
* psgml-fs.el (style-format): set ps-left-header to include a
style-sheet specified title and the filename. (for ps-print-buffer)
(fs-special-styles): New special style 'title' for setting title.
(fs-do-style): handle title style
(fs-element-content): make element argument optional, defaults to
current element.
2000-08-08 Lennart Staflin <lennarts(a)infotek.no>
* psgml-edit.el (sgml-insert-element): Fix bug with empty element.
Thu Aug 3 07:52:46 2000 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-edit.el (sgml-insert-element): Fix bug when inserting
element at end of buffer.
2000-08-03 Lennart Staflin <lennarts(a)infotek.no>
* psgml-edit.el (sgml-attribute-buffer): Fix missing space for
unspecified required attributes.
2000-06-05 Lennart Staflin <lennarts(a)infotek.no>
* psgml-dtd.el (sgml-parse-parameter-literal): use
buffer-substring-no-properties .
2000-05-31 Lennart Staflin <lennarts(a)infotek.no>
* psgml-api.el (sgml-parse-data): Don't call sgml-parse-loop
directly, use sgml-parse-continue.
Sat May 27 00:04:31 2000 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-edit.el (sgml-attr-clean-and-insert): new command. Used to
automatically remove #DEFAULT when a character is typed.
(sgml-attr-default-keymap): keymap used as only for #DEFAULT in
attribute editing.
Mon Apr 24 09:55:14 2000 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-edit.el (sgml-complete): Transform case on inserted names
using sgml-general-insert-case or sgml-entity-insert-case.
Sun Apr 16 16:07:55 2000 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-edit.el (sgml-indent-line): compute indentation from
context, not element under point. Did this change once before but
had to back it out. This time take care of omitted end-tags by
choosing parent element as context, if point is at the very end of
the element. Don't do special attribute indenting for elements
that occur in data context.
(sgml-fill-region): Fix giving up to early.
(sgml-do-fill): indent tags of subelements in element context
* psgml-info.el (sgml-describe-element-type): Use sgml-princ-names
for occurs in section.
2000-03-22 Lennart Staflin <lennarts(a)infotek.no>
* psgml-edit.el (sgml-change-element-name): Add end-tag event if
original element is empty. (hmm this isn't quite right). Also use
sgml-find-context-of to find element, because -element-of gives
the element of the following char.
Tue Jan 4 19:51:03 2000 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-parse.el (sgml-with-parser-syntax): Restore current buffer
before restoring syntax table.
Tue Dec 21 20:50:31 1999 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-other.el (sgml-set-face-for): set rear-nonsticky for face
when sgml-use-text-properties is true. (Suggested by Dirk Frömbgen)
Sat Dec 18 18:55:02 1999 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-charent.el (sgml-charent-to-display-char): use
buffer-substring-no-properties to allow for using text properties
for fontification.
1999-11-02 Tim Bradshaw <tfb(a)tfeb.org>
* psgml-edit.el (sgml-doctype-insert): made it not loop when it
gets a bogus nil
1999-12-16 Lennart Staflin <lennarts(a)infotek.no>
* psgml-parse.el (sgml-parse-prolog): restore buffer modified
after parsing. To allow using text properties for fontification.
(sgml-parse-continue): dito.
(sgml-parse-to): call sgml-parse-continue instead of calling
sgml-parser-loop directly.
1999-12-15 Lennart Staflin <lennarts(a)infotek.no>
* psgml.el: autoload for sgml-do-set-option
1999-12-03 Lennart Staflin <lennarts(a)infotek.no>
* psgml.el (sgml-mode-syntax-table): new variable
(sgml-mode): use sgml-mode-syntax-table
1999-11-29 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml.el (sgml-validate-error-regexps): Also recognize warnings
(:W:) in output from nsgmls.
1999-11-11 Lennart Staflin <lennarts(a)infotek.no>
* psgml-parse.el (sgml-parse-to): Let sgml-with-parser-syntax wrap
a bigger chunk of the code to make sure the syntax table is set up
before any buffer changes.
Tue Nov 9 16:25:53 1999 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-parse.el (sgml-modify-dtd): use sgml-general-case on names
from modifier.
Mon Nov 8 22:13:12 1999 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-info.el (sgml-eltype-refrenced-elements): Copy sequence
before sorting destructively.
(sgml-describe-element-type): Include exceptions in info display.
Thu Nov 4 19:07:09 1999 Lennart Staflin <lenst(a)lysator.liu.se>
* psgml-parse.el (sgml-note-change-at): If in XML mode and
previous char is /, back up one char. This allows for the />
delimiter to be recognized even if the start tag has been
previously parsed as an improperly ended tag.
* psgml-edit.el (sgml-last-element): don't use sgml-last-element
for XML (there is not omitted tags to account for).
1999-10-21 Lennart Staflin <lennarts(a)infotek.no>
* psgml-parse.el (sgml-push-to-entity): restore the (erase-buffer)
that had been commented out. This is needed for the case when
sgml-try-merge-compiled-dtd fails and leaves junk in the buffer.
1999-10-19 Lennart Staflin <lennarts(a)infotek.no>
* Version 1.2.1 released
--
Adrian Aichner
mailto:adriana＠users.sourceforge.net
http://xemacs.sourceforge.net/
- 1 participants
- 0 comments
new sample.emacs
23 years, 9 months
Ben Wing
Ben Wing
i decided to make a sample.emacs that's really useful -- lots of stuff that
users really want and no stuff that's really annoying or useless, at least not
by default. i also added lots of explanatory comments, which should really help
beginning Lisp coders out. i'm attaching the result so far.
i'm interested in seeing other people's init.el files so i can mine other
interesting stuff. please feel free to mail me. i'm especially interested in
code that enables various packages. [eventually i hope to make an
`enable-behavior' function so you can turn on and off these features just by
giving a name, without having to utter lots of obscure incantations.]
--
ben
I'm sometimes slow in getting around to reading my mail, so if you
want to reach me faster, call 520-661-6661.
See http://www.666.com/ben/chronic-pain/ for the hell I've been
through.
;; -*- Mode: Emacs-Lisp -*-
;; Copyright (C) 2000, 2001 Ben Wing.
;; Author: Mostly Ben Wing <ben(a)xemacs.org>
;; Maintainer: XEmacs Development Team
;; Keywords: sample, initialization
;; This file is part of XEmacs.
;; XEmacs 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.
;; XEmacs 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 XEmacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; #### to do:
;; -- #### also figure out how init.el and custom.el interact and put
;; documentation about it here. (perhaps it already exists
;; elsewhere?)
;; -- update the text below pointing to where else to find related
;; docs so that it's accurate and complete.
;; -- review stuff (e.g. the frame title changing code needs to be
;; fixed for windows, and should get some other usefulnesses such
;; as moving the %b closer to the beginning) for correctness,
;; usefulness, and up-to-dateness.
;; -- look through my init.el file and custom.el file put in various
;; things that i've got there that are generally useful, e.g. stuff
;; making XEmacs on windows work more like is expected.
;; -- correct the key bindings -- e.g. Mark is probably useless
;; because we have the shifted arrow keys.
;;; This is a sample init.el file. It can be used without
;;; modification as your init.el or .emacs. In older versions of
;;; XEmacs, this file was called .emacs and placed in your home
;;; directory. (Under MS Windows, that directory is controlled by the
;;; HOME environment variable and defaults to C:\. You can find out
;;; where XEmacs thinks your home directory is using
;;;
;;; ESC : (expand-file-name "~")
;;;
;;; . This means type ESC, then colon, then the following text, then hit
;;; return.) In more recent versions of XEmacs, this file has migrated to
;;; the .xemacs/ subdirectory and is called init.el. Other files are
;;; also located here, such as custom.el (the auto-generated file
;;; containing Customization options that you saved when using
;;; Options->Save Options).
;;; Changes to your init.el file will not take effect until the next
;;; time you start up XEmacs, unless you load it explicitly with
;;;
;;; M-x load-file RET ~/.xemacs/init.el RET
;;;
;;; There is a great deal of documentation on customization in the
;;; XEmacs User's Manual. You can read this manual with the online
;;; Info browser: Select Help->Info (Online Docs)->XEmacs User's
;;; Manual (if there is such an entry), or ->Info Contents (or type
;;; `C-h i') and then *middle-click* the XEmacs entry.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Basic Customization ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TIP: Control-L characters are ignored in Lisp files and are the
;; standard way of indicating major section divisions. You can enter
;; such a character using C-q C-l.
;; Define a variable to indicate whether we're running XEmacs/Lucid
;; Emacs. (You do not have to defvar a global variable before using
;; it -- you can just call `setq' directly. It's clearer this way,
;; though. Note also how we check if this variable already exists
;; using `boundp', because it's defined in recent versions of
;; XEmacs.)
(or (boundp 'running-xemacs)
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)))
;; Define a function to make it easier to check which version we're
;; running. This function already exists in recent XEmacs versions,
;; and in fact all we've done is copied the definition. Note again
;; how we check to avoid clobbering an existing definition. (It's good
;; style to do this, in case some improvement was made to the
;; already-existing function -- otherwise we might subsitute an older
;; definition and possibly break some code elsewhere.)
;;
;; TIP: At this point you may be wondering how I wrote all these nice,
;; long, nicely-justified textual stretches -- didn't I go crazy
;; sticking in the semicolons everywhere and having to delete them and
;; rearrange everything whenever I wanted to make any corrections to
;; the text? The answer is -- of course not! Use M-q. This does all
;; the magic for you, justifying and breaking lines appropriately and
;; putting any necessary semicolons or whatever at the left (it
;; figures out what this ought to be by looking in a very clever
;; fashion at what's already at the beginning of each line in the
;; paragraph). You may need `filladapt' set up (it's done below in
;; this file) in order for this to work properly. Finally, if you
;; want to turn on automatic filling (like in a word processor, but
;; not quite as automatic), use M-x auto-fill-mode or the binding set
;; up below in this file (Meta-F9).
(or (fboundp 'emacs-version>=)
(defun emacs-version>= (major &optional minor patch)
"Return true if the Emacs version is >= to the given MAJOR, MINOR,
and PATCH numbers.
The MAJOR version number argument is required, but the other arguments
argument are optional. Only the Non-nil arguments are used in the test."
(let ((emacs-patch (or emacs-patch-level emacs-beta-version -1)))
(cond ((> emacs-major-version major))
((< emacs-major-version major) nil)
((null minor))
((> emacs-minor-version minor))
((< emacs-minor-version minor) nil)
((null patch))
((>= emacs-patch patch))))))
;; 19.13 was released ages ago (Sep. 1995), and lots of graphic and
;; window-system stuff doesn't work before then.
(or (not running-xemacs)
(emacs-version>= 19 13)
(error "This init file does not support XEmacs before 19.13"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Key Definitions ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Set up the function keys to do common tasks to reduce Emacs pinky
;;; and such.
;; You can set a key sequence either to a command or to another key
;; sequence. (Use `C-h k' to map a key sequence to its command. Use
;; `C-h w' to go the other way.) In general, however, it works better
;; to specify the command name. For example, it does not currently
;; work to say
;; (global-set-key 'f5 "\C-x\C-f")
;; The reason is that macros (which is what the string on the right
;; really is) can't currently use the minibuffer. This is an
;; extremely longstanding bug in Emacs. Eventually, it will be
;; fixed. (Hopefully ..)
;; Note also that you may sometimes see the idiom
;; (define-key global-map ...)
;; in place of (global-set-key ...). These are exactly the same.
(global-set-key 'f1 'advertised-undo) ;; Undo
(global-set-key 'f2 'kill-primary-selection) ;; Cut
(global-set-key 'f3 'copy-primary-selection) ;; Copy
(global-set-key 'f4 'yank-clipboard-selection) ;; Paste
(global-set-key 'f5 'find-file) ;; C-x C-f
(global-set-key 'f7 'save-buffer) ;; C-x C-s
(global-set-key 'f9 'kill-line) ;; C-k
;; Here we define our own function and then bind a key to it.
(defun start-or-end-kbd-macro ()
;; A doc string. This is optional.
"Start defining a keyboard macro, or stop if we're already defining."
;; IMPORTANT: Any function bound to a key MUST have an interactive spec,
;; usually just the following line:
(interactive)
(if defining-kbd-macro
(end-kbd-macro)
(start-kbd-macro nil)))
(global-set-key 'f8 'start-or-end-kbd-macro)
(global-set-key 'f10 'call-last-kbd-macro) ;; C-x e
;; Note that you can refer to a key sequence either using an ASCII
;; string or the "long way", with vectors and conses. You saw above
;; (in a comment) the string form for specifying the key sequence `C-x
;; C-f', which is "\C-x\C-f". (For those curious, \C-x is just an
;; escape sequence that puts a ^X character into the string. Thus,
;; the string just mentioned really just contains two characters, a ^X
;; and a ^F.) The long way to specify the sequence `C-x C-f' would be
;;
;; [(control x) (control f)]
;;
;; The long format lets you specify all possible key sequences, while the
;; string form only lets you specify sequences involving ASCII characters
;; and/or modifiers and in fact only a subset of them.
;;
;; Other examples are:
;;
;; [(control x) n]
;;
;; (You can leave out the parens when there is no modifier specified in
;; the keystroke, and that's normally done.)
;;
;; [(shift control meta left)]
;;
;; (You can put more than one modifier in a keystroke.)
;;
;; (shift control meta left)
;;
;; (This is the same as the previous. when there's only one keystroke in
;; the sequence, you can leave out the brackets, and that's normally
;; done.)
;;
;; [(control x) (shift button3)]
;;
;; (You can refer to mouse buttons just like keys -- apply modifiers,
;; intermingle them in key sequences, etc. But there's only problem
;; here, which is that with the mouse you don't just have one possible
;; gesture, like with keys. You'd really like to control button-down,
;; button-up, button-click (down and up without selecting anything),
;; button drag, button double-click, etc. This is normally done by
;; binding your key sequence to `mouse-track', and then putting hooks
;; onto `mouse-track-click-hook', `mouse-track-drag-up-hook', etc. to
;; customize the specific behavior.)
;;
;; 'left
;;
;; (Ultimate reductionism -- no brackets, no parens. This is the form, in
;; that, that the 'f1, 'f2, etc. took, which where in fact "long"
;; forms.)
;;
;; '(control C)
;;
;; (You cannot use '(control shift c) here. This applies whenever Shift +
;; key translates to a single character. Note also that you can't use
;; "\C-C" either; this refers to the non-shifted C-c, just like "\C-c"
;; would.)
;;
;; '(control \()
;; (Put a backslash in front of characters used in Lisp syntax.)
;;
;; Also, you can find out the name of a key using C-h c. WARNING:
;; This does not report the correct name of the keys named `delete',
;; `backspace', `return', `tab', `space', `escape', and `linefeed'!
;; (More correct results can be achieved using
;;
;; ESC : (read-key-sequence "foo: ")
;;
;; .)
;;;;;;;;;;;;;;;;;;;;;;;;
;; Keystrokes to conveniently switch buffers.
(global-set-key 'f6 'switch-to-other-buffer) ;; M-C-l
(global-set-key '(meta n) 'switch-to-next-buffer-in-group)
(global-set-key '(meta p) 'switch-to-previous-buffer-in-group)
(global-set-key '(meta N) 'switch-to-next-buffer)
(global-set-key '(meta P) 'switch-to-previous-buffer)
(defun switch-to-next-buffer (&optional n)
"Switch to the next-most-recent buffer.
This essentially rotates the buffer list forward.
N (interactively, the prefix arg) specifies how many times to rotate
forward, and defaults to 1. Buffers whose name begins with a space
\(i.e. \"invisible\" buffers) are ignored."
;; Here is a different interactive spec. Look up the function
;; `interactive' (i.e. `C-h f interactive') to understand how this
;; all works.
(interactive "p")
(dotimes (n (or n 1))
(loop
do (bury-buffer (car (buffer-list)))
while (funcall buffers-tab-omit-function (car (buffer-list))))
(switch-to-buffer (car (buffer-list)))))
(defun switch-to-previous-buffer (&optional n)
"Switch to the previously most-recent buffer.
This essentially rotates the buffer list backward.
N (interactively, the prefix arg) specifies how many times to rotate
backward, and defaults to 1. Buffers whose name begins with a space
\(i.e. \"invisible\" buffers) are ignored."
(interactive "p")
(dotimes (n (or n 1))
(loop
do (switch-to-buffer (car (last (buffer-list))))
while (funcall buffers-tab-omit-function (car (buffer-list))))))
(defun switch-to-next-buffer-in-group (&optional n)
"Switch to the next-most-recent buffer in the current group.
This essentially rotates the buffer list forward.
N (interactively, the prefix arg) specifies how many times to rotate
forward, and defaults to 1. Buffers whose name begins with a space
\(i.e. \"invisible\" buffers) are ignored."
(interactive "p")
(dotimes (n (or n 1))
(let ((curbuf (car (buffer-list))))
(loop
do (bury-buffer (car (buffer-list)))
while (or (funcall buffers-tab-omit-function (car (buffer-list)))
(not (funcall buffers-tab-selection-function curbuf
(car (buffer-list)))))))
(switch-to-buffer (car (buffer-list)))))
(defun switch-to-previous-buffer-in-group (&optional n)
"Switch to the previously most-recent buffer in the current group.
This essentially rotates the buffer list backward.
N (interactively, the prefix arg) specifies how many times to rotate
backward, and defaults to 1. Buffers whose name begins with a space
\(i.e. \"invisible\" buffers) are ignored."
(interactive "p")
(dotimes (n (or n 1))
(let ((curbuf (car (buffer-list))))
(loop
do (switch-to-buffer (car (last (buffer-list))))
while (or (funcall buffers-tab-omit-function (car (buffer-list)))
(not (funcall buffers-tab-selection-function curbuf
(car (buffer-list)))))))))
;;;;;;;;;;;;;;;;;;;;;;;;
;; Other text keystrokes.
;; Make a keystroke to insert a literal TAB character. (`C-q TAB' is
;; annoying because difficult to repeat.) Note that this does not work
;; in TTY frames, where TAB and Shift-TAB are indistinguishable.
(define-key global-map '(shift tab) 'tab-to-tab-stop)
;; Toggle auto-filling. Useful with text but annoying with code. You
;; can manually fill with M-q.
(global-set-key '(meta f9) 'auto-fill-mode)
;; You cannot say '(meta shift t) here -- see above.
(global-set-key '(meta T) 'transpose-line-down)
(global-set-key '(control T) 'transpose-line-up)
;;;;;;;;;;;;;;;;;;;;;;;;
;; Rearrange some inconvenient bindings.
;; ESC ESC ESC is a useful command, but too long. ESC ESC would be
;; much more logical, but interferes with Meta + keypad/arrow keys on
;; TTY's. But most people only use window systems and no such problem
;; exists there, so set up the more logical binding there.
;;
;; Note also the use of if vs. cond/when/unless/or/and to express
;; conditional statements. The difference is purely stylistic.
(when (console-on-window-system-p)
(global-set-key '(meta escape) 'keyboard-escape-quit)
(define-key isearch-mode-map '(meta escape) 'isearch-cancel))
;; The standard definition of C-z causes iconification on window
;; systems, which is both useless and annoying. Instead, bind it to a
;; useful command that's not on any keys. (This also makes a neat
;; parallelism with M-z, which does zap-to-char.) Don't override the
;; TTY binding, which does "Suspend". If you want this new binding on
;; TTY's, and can train yourself to use C-x C-z to suspend, then
;; remove or comment out the `when' statement. (Here's the proper way
;; to comment out such a statement:
;;
;; ;(when (console-on-window-system-p)
;; (global-set-key "\C-z" 'zap-up-to-char)
;; ; )
;;
;; To do this, I first moved the closing paren to a new line,
;; reindented with TAB, then added the semicolons.)
(when (console-on-window-system-p)
(global-set-key "\C-z" 'zap-up-to-char))
;; When not on a TTY, remove the binding of C-x C-c, which normally
;; exits XEmacs. It's easy to hit this by mistake, and that can be
;; annoying. You can always quit with the "Exit XEmacs" option on the
;; File menu.
(when (console-on-window-system-p)
(global-set-key "\C-x\C-c" nil))
;; Make C-k always delete the whole line, which is what most people want,
;; anyway.
(setq kill-whole-line 'always)
;; Meta-Shift-K does the old behavior (kill to end of line), and should
;; (hopefully) even work under TTY's.
(global-set-key '(meta K) 'historical-kill-line)
;; The following commented-out code rearranges the keymap in an
;; unconventional but extremely useful way for programmers. Parens
;; and braces are both available without using the shift key (using
;; the bracket keys and f11/f12, respectively). Brackets (much less
;; used) are the shifted versions of the new paren keys (i.e. where
;; the braces normally are).
;;
;; The idea for this comes from Jamie Zawinski.
;;
;; NOTE: you can (semi-) conveniently uncomment a region using
;; C-u M-x comment-region, or the "Uncomment Region" menu item on the
;; Lisp menu in new enough versions of XEmacs.
;(keyboard-translate ?[ ?()
;(keyboard-translate ?] ?))
;(keyboard-translate ?{ ?[)
;(keyboard-translate ?} ?])
;(keyboard-translate 'f11 ?{)
;(keyboard-translate 'f12 ?})
;;; Older versions of XEmacs also need this, due to a bug in
;;; `keyboard-translate'.
;(global-set-key 'f11 "{")
;(global-set-key 'f12 "}")
;; Here's another switch, a bit more controversial than the above. It
;; switches backquote and underscore, so that underscore (ubiquitous
;; in C code) is available without shifting. (This is Ben Wing's
;; idea.)
;(keyboard-translate ?_ ?`)
;(keyboard-translate ?` ?_)
;;;;;;;;;;;;;;;;;;;;;;;;
;; Useful programming-related keystrokes.
(global-set-key '(shift f4) 'next-error) ;; C-x `
(global-set-key '(control f4) 'previous-error)
(global-set-key '(shift f5) 'find-library)
(global-set-key '(control f5) 'find-function)
(global-set-key '(meta f5) 'find-variable)
(global-set-key '(meta f7) 'add-change-log-entry)
;; Edebug is a source-level debugger for Emacs Lisp programs. Put
;; the cursor at the end of a function definition and "instrument" it
;; with this command; then, you can single step through it the next
;; time it's run.
(global-set-key '(meta f8) 'edebug-defun)
;; This nicely parallels M-*, which pops the tag stack. See below for
;; how to set up tags.
(global-set-key '(control *) 'find-tag-at-point)
;; Define a function to conveniently determine where time is being
;; spent when executing commands or Lisp code.
(defun toggle-profiling ()
"Start profiling, or stop it and print results.
This lets you figure out where time is being spent when executing Lisp code."
(interactive)
(if (profiling-active-p)
(progn
(stop-profiling)
(message "...Finished profiling")
(profile-results))
(message "Profiling...")
(clear-profiling-info)
(start-profiling)))
;; Note that sequences of C-c plus a letter are specifically
;; reserved for users and should never be bound by any packages.
(global-set-key "\C-cp" 'toggle-profiling)
;; LISPM bindings of Control-Shift-C and Control-Shift-E.
;; See comment above about bindings like this.
(define-key emacs-lisp-mode-map '(control C) 'compile-defun)
(define-key emacs-lisp-mode-map '(control E) 'eval-defun)
;;;;;;;;;;;;;;;;;;;;;;;;
;; Numeric keypad.
;; The numeric keypad as a whole is underused, and it's a good source
;; of keys to bind to commands. Here we add some useful bindings.
;; Because this is a sample file and I want to avoid unpleasant
;; surprises for novices, I don't actually bind the shared
;; numeric/cursor-motion keys because
;;
;; (a) someone keypads don't have separate motion keys (e.g. laptops?), and
;; (b) TTY's and some X servers might not distinguish the regular and
;; numeric-keypad motion keys.
;; `kill-current-buffer' (defined below) deletes the current
;; buffer. (Don't worry, you will be prompted to save if it's
;; modified.) By repeatedly pressing keypad-minus, you can
;; conveniently reduce the number of open buffers to a manageable size
;; after you've opened a whole bunch of files and finished working on
;; them. Shift plus keypad-minus kills both the current buffer and
;; its window, and Control plus keypad-minus kills just the current
;; window.
(global-set-key 'kp-subtract 'kill-current-buffer)
(global-set-key '(shift kp-subtract) 'kill-current-buffer-and-window)
(global-set-key '(control kp-subtract) 'delete-window)
;; Ugh, modes that use `suppress-keymap' and are dumped with XEmacs will
;; need their own definition. There is no easy way to fix this.
(define-key help-mode-map 'kp-subtract 'kill-current-buffer)
(define-key help-mode-map '(shift kp-subtract)
'kill-current-buffer-and-window)
(define-key list-mode-map 'kp-subtract 'kill-current-buffer)
(define-key list-mode-map '(shift kp-subtract)
'kill-current-buffer-and-window)
(defun kill-current-buffer ()
(interactive)
(kill-buffer (current-buffer)))
(defun kill-current-buffer-and-window ()
(interactive)
(kill-buffer (current-buffer))
(delete-window))
(defun grep-c-files ()
(interactive)
(require 'compile)
(let ((grep-command
(cons (concat grep-command " *.[chCH]"
; i wanted to also use *.cc and *.hh.
; see long comment below under Perl.
)
(length grep-command))))
(call-interactively 'grep)))
(defun grep-lisp-files ()
(interactive)
(require 'compile)
(let ((grep-command
(cons (concat grep-command " *.el"
; i wanted to also use *.cc and *.hh.
; see long comment below under Perl.
)
(length grep-command))))
(call-interactively 'grep)))
;; This repeatedly selects larger and larger balanced expressions
;; around the cursor. Once you have such an expression marked, you
;; can expand to the end of the following expression with C-M-SPC and
;; to the beginning of the previous with M-left.
(defun clear-select ()
(interactive "_") ;this means "preserve the active region after this command"
(backward-up-list 1)
(let ((end (save-excursion (forward-sexp) (point))))
(push-mark end nil t)))
;; #### no kp-divide because it doesn't (currently) work on MS Windows
;; -- always reports as /. #### this should be fixable.
(global-set-key 'kp-add 'query-replace)
(global-set-key '(shift kp-add) 'query-replace-regexp)
(global-set-key '(control kp-add) 'grep-c-files)
(global-set-key '(meta kp-add) 'grep-lisp-files)
(global-set-key 'clear 'clear-select)
;; Note that you can use a "lambda" expression (an anonymous function)
;; in place of a function name. This function would be called
;; `pop-local-mark' and lets you repeatedly cycle back through recent
;; marks (marks are set whenever you begin a selection, begin a
;; successful search, are about to jump to the beginning or end of the
;; buffer, etc.).
(global-set-key 'kp-enter (lambda () (interactive) (set-mark-command t)))
(global-set-key '(shift kp-enter) 'repeat-complex-command)
(global-set-key '(control kp-enter) 'eval-expression)
;;;;;;;;;;;;;;;;;;;;;;;;
;; Misc.
;; If you want button2 to insert the selected text
;; at point (where the text cursor is), instead of at the
;; position clicked, uncomment the following:
;(setq mouse-yank-at-point t)
;; If you like the FSF Emacs binding of button3 (single-click
;; extends the selection, double-click kills the selection),
;; uncomment the following:
;(define-key global-map 'button3 'mouse-track-adjust)
;(add-hook 'mouse-track-click-hook
; (lambda (event count)
; (if (or (/= (event-button event) 3)
; (/= count 2))
; nil ;; do the normal operation
; (kill-region (point) (mark))
; t ;; don't do the normal operations.
; )))
;; Uncomment this to enable "sticky modifier keys". With sticky
;; modifier keys enabled, you can press and release a modifier key
;; before pressing the key to be modified, like how the ESC key works
;; always. If you hold the modifier key down, however, you still get
;; the standard behavior. I personally think this is the best thing
;; since sliced bread (and a *major* win when it comes to reducing
;; Emacs pinky), but it's disorienting at first so I'm not enabling it
;; here by default.
;(setq modifier-keys-are-sticky t)
;; Enable the command `narrow-to-region' ("C-x n n"). It's a useful
;; command, but possibly confusing to a new user, so it's disabled by
;; default.
(put 'narrow-to-region 'disabled nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Change Some Basic Behaviors ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Change the values of some variables.
;; (t means true; nil means false.)
;;
;; Use C-h v or Help->Commands, Variables, Keys->Variable... to find
;; out what these variables mean.
(setq
find-file-compare-truenames t
minibuffer-confirm-incomplete t
minibuffer-max-depth nil
)
;; When running ispell, consider all 1-3 character words as correct.
(setq ispell-extra-args '("-W" "3"))
;;; pending-delete-mode causes typed text to replace a selection,
;;; rather than append -- standard behavior under all window systems
;;; nowadays.
(pending-delete-mode 1)
;;; NOTE: In this context, `windows-nt' actually refers to all MS
;;; Windows operating systems!
(when (eq system-type 'windows-nt)
;; Get mail working under Windows.
(setq send-mail-function 'smtpmail-send-it)
(setq smtpmail-debug-info t)
;; Substitute your info here.
;(setq user-mail-address "ben(a)xemacs.org")
;(setq user-full-name "Ben Wing")
;(setq smtpmail-smtp-server "pop.tcsn.uswest.net")
;; Make Alt+accelerator traverse to the menu in new enough XEmacs
;; versions. Note that this only overrides Meta bindings that would
;; actually invoke a menu, and that none of the most common commands
;; are overridden. You can use ESC+key to access the overridden
;; ones if necessary.
(setq menu-accelerator-enabled 'menu-force)
;; Make Cygwin `make' work inside a shell buffer.
(setenv "MAKE_MODE" "UNIX"))
;; This shows how to set up the XEmacs side of tags. (To create the
;; TAGS table, use the `etags' program found in the XEmacs bin
;; directory. Run it in the root directory of your source tree and
;; specify all source and include files on the command line.)
;(setq tag-table-alist
; '(
; ;; Everywhere in the /src/xemacs/gui/ source tree will use the TAGS
; ;; file in /src/xemacs/gui/.
; ("/src/xemacs/gui/" . "/src/xemacs/gui/")
; ;; Everywhere in the /src/xemacs/mule/ source tree will use the TAGS
; ;; file in /src/xemacs/mule/.
; ("/src/xemacs/mule/" . "/src/xemacs/mule/")
; ;; etc.
; ("/src/xemacs/fixup/" . "/src/xemacs/fixup/")
; ("/src/emacs/emacs-20.6/" . "/src/emacs/emacs-20.6/")
; ("/src/xemacs/latest/" . "/src/xemacs/latest/")
; ;; Everywhere else will use the TAGS file in
; ;; /src/xemacs/fixup/.
; ("" . "/src/xemacs/fixup/")
; ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Change Some Aspects of GUI Appearance ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Changes the text in the window title bar, to switch to MS Windows
;; format (filename goes first, for best identification in icons) and
;; add the version and full executable path. (However, it is not
;; changed unless it currently has the default value, to avoid
;; interfering with a -wn command line argument I may have started
;; XEmacs with.)
(if (or (equal frame-title-format "%S: %b")
(equal frame-title-format "%b - XEmacs"))
(setq frame-title-format
(concat "%b - XEmacs "
(progn (string-match "\\(.*?\\)\\( XEmacs Lucid\\)?$"
emacs-version)
(match-string 1 emacs-version))
" [" invocation-directory invocation-name "]")))
;; Load some nifty sounds that will replace the default beep.
;;
;; (Note that sampled sounds only work if XEmacs was compiled with
;; sound support and we're running on MS Windows, on a machine which
;; has a NetAudio or ESD server, or on the console of a Linux, Sparc,
;; HP, or SGI machine. Otherwise, you just get the standard beep.)
(cond ((or (and (getenv "DISPLAY")
(string-match ":0" (getenv "DISPLAY")))
(and (eq (console-type) 'mswindows)
(device-sound-enabled-p)))
(load-default-sounds))
(t
(setq bell-volume 40)
(setq sound-alist
(append sound-alist '((no-completion :pitch 500))))
))
;; Change the continuation glyph face so it stands out more
(and (fboundp 'make-face-bold)
(boundp 'continuation-glyph)
(make-face-bold (glyph-face continuation-glyph)))
;; Change the pointer used during garbage collection.
;;
;; Note that this pointer image is rather large as pointers go,
;; and so it won't work on some X servers (such as the MIT
;; R5 Sun server) because servers may have lamentably small
;; upper limits on pointer size.
;;(if (featurep 'xpm)
;; (set-glyph-image gc-pointer-glyph
;; (expand-file-name "trash.xpm" data-directory)))
;; Here's another way to do that: it first tries to load the
;; pointer once and traps the error, just to see if it's
;; possible to load that pointer on this system; if it is,
;; then it sets gc-pointer-glyph, because we know that
;; will work. Otherwise, it doesn't change that variable
;; because we know it will just cause some error messages.
(if (featurep 'xpm)
(let ((file (expand-file-name "recycle.xpm" data-directory)))
(if (condition-case nil
;; check to make sure we can use the pointer.
(make-image-instance file nil
'(pointer))
(error nil)) ; returns nil if an error occurred.
(set-glyph-image gc-pointer-glyph file))))
;(when (featurep 'menubar)
; ;; Add `dired' to the File menu
; (add-menu-button '("File") ["Edit Directory" dired])
; ;; Here's a way to add scrollbar-like buttons to the menubar
; (add-menu-button nil ["Top" beginning-of-buffer])
; (add-menu-button nil ["<<<" scroll-down])
; (add-menu-button nil [" . " recenter])
; (add-menu-button nil [">>>" scroll-up])
; (add-menu-button nil ["Bot" end-of-buffer]))
;; Here's a cute hack that shows how to programmatically change some
;; text colors. It changes the background color of the window if it's
;; not on the local machine, or if it's running as root:
;; local emacs background: whitesmoke [i.e. the default color]
;; remote emacs background: palegreen1
;; root emacs background: coral2
;; Uncomment to enable.
;(cond
; ((and running-xemacs
; (console-on-window-system-p)
; ;; this does not make much sense on Windows.
; (not (eq system-type 'windows-nt)))
; (let* ((root-p (eq 0 (user-uid)))
; (dpy (or (getenv "DISPLAY") ""))
; (remote-p (not
; (or (string-match "^\\(\\|unix\\|localhost\\):" dpy)
; (let ((s (system-name)))
; (if (string-match "\\.\\(netscape\\|mcom\\)\\.com" s)
; (setq s (substring s 0 (match-beginning 0))))
; (string-match (concat "^" (regexp-quote s)) dpy)))))
; (bg (cond (root-p "coral2")
; (remote-p "palegreen1")
; (t nil))))
; (cond (bg
; (let ((def (color-name (face-background 'default)))
; (faces (face-list)))
; (while faces
; (let ((obg (face-background (car faces))))
; (if (and obg (equal def (color-name obg)))
; (set-face-background (car faces) bg)))
; (setq faces (cdr faces)))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Changing the Modeline ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Enable line numbers and column numbers. This is done in C code now
;; and is very fast.
(line-number-mode 1)
(column-number-mode 1)
;; Rearrange the modeline so that everything is to the left of the
;; long list of minor modes, which is relatively unimportant but takes
;; up so much room that anything to the right is obliterated.
(setq-default
modeline-format
(list
""
(if (boundp 'modeline-multibyte-status) 'modeline-multibyte-status "")
(cons modeline-modified-extent 'modeline-modified)
(cons modeline-buffer-id-extent
(list (cons modeline-buffer-id-left-extent
(cons 15 (list
(list 'line-number-mode "L%l ")
(list 'column-number-mode "C%c ")
(cons -3 "%p"))))
(cons modeline-buffer-id-right-extent "%17b")))
" "
'global-mode-string
" %[("
(cons modeline-minor-mode-extent
(list "" 'mode-name 'minor-mode-alist))
(cons modeline-narrowed-extent "%n")
'modeline-process
")%]----"
"%-"
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Customization of Specific Packages ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ********************
;;; Load gnuserv, which will allow you to connect to XEmacs sessions
;;; using `gnuclient'.
;; If you never run more than one XEmacs at a time, you might want to
;; always start gnuserv. Otherwise it is preferable to specify
;; `-f gnuserv-start' on the command line to one of the XEmacsen.
; (gnuserv-start)
;;; ********************
;;; Load efs, which uses the FTP protocol as a pseudo-filesystem.
;;; When this is loaded, the pathname syntax /user＠host:/remote/path
;;; refers to files accessible through ftp.
;;;
(require 'dired)
;; compatible ange-ftp/efs initialization derived from code
;; from John Turner <turner(a)lanl.gov>
;;
;; The environment variable EMAIL_ADDRESS is used as the password
;; for access to anonymous ftp sites, if it is set. If not, one is
;; constructed using the environment variables USER and DOMAINNAME
;; (e.g. turner(a)lanl.gov), if set.
(condition-case nil
(progn
(message "Loading and configuring bundled packages... efs")
(require 'efs-auto)
(if (getenv "USER")
(setq efs-default-user (getenv "USER")))
(if (getenv "EMAIL_ADDRESS")
(setq efs-generate-anonymous-password (getenv "EMAIL_ADDRESS"))
(if (and (getenv "USER")
(getenv "DOMAINNAME"))
(setq efs-generate-anonymous-password
(concat (getenv "USER")"＠"(getenv "DOMAINNAME")))))
(setq efs-auto-save 1))
(error
(message "Loading and configuring bundled packages... ange-ftp")
(require 'ange-ftp)
(if (getenv "USER")
(setq ange-ftp-default-user (getenv "USER")))
(if (getenv "EMAIL_ADDRESS")
(setq ange-ftp-generate-anonymous-password (getenv "EMAIL_ADDRESS"))
(if (and (getenv "USER")
(getenv "DOMAINNAME"))
(setq ange-ftp-generate-anonymous-password
(concat (getenv "USER")"＠"(getenv "DOMAINNAME")))))
(setq ange-ftp-auto-save 1)
))
;;; ********************
;;; Load the default-dir.el package which installs fancy handling of
;;; the initial contents in the minibuffer when reading file names.
(condition-case nil
(require 'default-dir)
(error nil))
;;; ********************
;;; Load the auto-save.el package, which lets you put all of your autosave
;;; files in one place, instead of scattering them around the file system.
;;; #### comment about how this can speed up a slow nfs.
(setq auto-save-directory (expand-file-name "~/autosave/")
auto-save-directory-fallback auto-save-directory
auto-save-hash-p nil
efs-auto-save t
efs-auto-save-remotely nil
;; now that we have auto-save-timeout, let's crank this up
;; for better interactive response.
auto-save-interval 2000
)
;; We load this afterwards because it checks to make sure the
;; auto-save-directory exists (creating it if not) when it's loaded.
(require 'auto-save)
;;; ********************
;;; cc-mode (the mode you're in when editing C, C++, and Objective C files)
;; Tell cc-mode not to check for old-style (K&R) function declarations.
;; This speeds up indenting a lot.
(setq c-recognize-knr-p nil)
;; Change the indentation amount to 4 spaces instead of 2.
;; You have to do it in this complicated way because of the
;; strange way the cc-mode initializes the value of `c-basic-offset'.
(add-hook 'c-mode-hook (lambda () (setq c-basic-offset 4)))
;;; ********************
;;; Load a partial-completion mechanism, which makes minibuffer completion
;;; search multiple words instead of just prefixes; for example, the command
;;; `M-x byte-compile-and-load-file RET' can be abbreviated as `M-x b-c-a RET'
;;; because there are no other commands whose first three words begin with
;;; the letters `b', `c', and `a' respectively.
;;;
(load-library "completer")
;;; ********************
;;; Load crypt, which is a package for automatically decoding and reencoding
;;; files by various methods - for example, you can visit a .Z or .gz file,
;;; edit it, and have it automatically re-compressed when you save it again.
;;;
(setq crypt-encryption-type 'pgp ; default encryption mechanism
crypt-confirm-password t ; make sure new passwords are correct
;crypt-never-ever-decrypt t ; if you don't encrypt anything, set this to
; tell it not to assume that "binary" files
; are encrypted and require a password.
)
(require 'crypt)
;;; ********************
;;; Filladapt is a syntax-highlighting package. When it is enabled it
;;; makes filling (e.g. using M-q) much much smarter about paragraphs
;;; that are indented and/or are set off with semicolons, dashes, etc.
(require 'filladapt)
(setq-default filladapt-mode t)
(add-hook 'c-mode-hook 'turn-off-filladapt-mode)
;;; ********************
;;; Font-Lock is a syntax-highlighting package. When it is enabled and you
;;; are editing a program, different parts of your program will appear in
;;; different fonts or colors. For example, with the code below, comments
;;; appear in red italics, function names in function definitions appear in
;;; blue bold, etc. The code below will cause font-lock to automatically be
;;; enabled when you edit C, C++, Emacs-Lisp, and many other kinds of
;;; programs.
;;;
;;; The "Options" menu has some commands for controlling this as well.
;;;
(cond (running-xemacs
;; The commented-out code below is an example of setting up custom
;; font-lock colors.
; ;; If you want the default colors, you could do this:
; ;; (setq font-lock-use-default-fonts nil)
; ;; (setq font-lock-use-default-colors t)
; ;; but I want to specify my own colors, so I turn off all
; ;; default values.
; (setq font-lock-use-default-fonts nil)
; (setq font-lock-use-default-colors nil)
(require 'font-lock)
; ;; Mess around with the faces a bit. Note that you have
; ;; to change the font-lock-use-default-* variables *before*
; ;; loading font-lock, and wait till *after* loading font-lock
; ;; to customize the faces.
; ;; string face is green
; (set-face-foreground 'font-lock-string-face "forest green")
; ;; comments are italic and red; doc strings are italic
; (set-face-font 'font-lock-comment-face [italic])
; ;; Underlining comments looks terrible on tty's
; (set-face-underline-p 'font-lock-comment-face nil 'global 'tty)
; (set-face-highlight-p 'font-lock-comment-face t 'global 'tty)
; (copy-face 'font-lock-comment-face 'font-lock-doc-string-face)
; (set-face-foreground 'font-lock-comment-face "red")
; ;; function names are bold and blue
; (set-face-font 'font-lock-function-name-face [bold])
; (set-face-foreground 'font-lock-function-name-face "blue")
; ;; misc. faces
; (set-face-font 'font-lock-preprocessor-face [bold])
; (set-face-font 'font-lock-type-face [italic])
; (set-face-font 'font-lock-keyword-face [bold])
))
;;; ********************
;;; lazy-lock is a package which speeds up the highlighting of files
;;; by doing it "on-the-fly" -- only the visible portion of the
;;; buffer is fontified. The results may not always be quite as
;;; accurate as using full font-lock or fast-lock, but it's *much*
;;; faster. No more annoying pauses when you load files.
(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
;; I personally don't like "stealth mode" (where lazy-lock starts
;; fontifying in the background if you're idle for 30 seconds)
;; because it takes too long to wake up again on my piddly Sparc 1+.
(setq lazy-lock-stealth-time nil)
;;; ********************
;;; func-menu is a package that scans your source file for function
;;; definitions and makes a menubar entry that lets you jump to any
;;; particular function definition by selecting it from the menu. The
;;; following code turns this on for all of the recognized languages.
;;; Scanning the buffer takes some time, but not much.
;;;
;;; Send bug reports, enhancements etc to:
;;; David Hughes <ukchugd(a)ukpmr.cs.philips.nl>
;;;
(cond (running-xemacs
(require 'func-menu)
(global-set-key 'kp-multiply 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(global-set-key "\C-cl" 'fume-list-functions)
(global-set-key "\C-cg" 'fume-prompt-function-goto)
;; The Hyperbole information manager package uses (shift button2) and
;; (shift button3) to provide context-sensitive mouse keys. If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(global-set-key '(shift button3) 'mouse-function-menu)
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable>
(setq fume-max-items 25
fume-fn-window-position 3
fume-auto-position-popup t
fume-display-in-modeline-p t
fume-menubar-menu-name
(if (fboundp 'submenu-generate-accelerator-spec)
"Function%_s" "Functions")
fume-buffer-name "*Function List*"
fume-no-prompt-on-valid-default nil)
))
;;; ********************
;;; MH is a mail-reading system from the Rand Corporation that relies on a
;;; number of external filter programs (which do not come with emacs.)
;;; Emacs provides a nice front-end onto MH, called "mh-e".
;;;
;; Bindings that let you send or read mail using MH
;(global-set-key "\C-xm" 'mh-smail)
;(global-set-key "\C-x4m" 'mh-smail-other-window)
;(global-set-key "\C-cr" 'mh-rmail)
;; Customization of MH behavior.
(setq mh-delete-yanked-msg-window t)
(setq mh-yank-from-start-of-msg 'body)
(setq mh-summary-height 11)
;; Use lines like the following if your version of MH
;; is in a special place.
;(setq mh-progs "/usr/dist/pkgs/mh/bin.svr4/")
;(setq mh-lib "/usr/dist/pkgs/mh/lib.svr4/")
;;; ********************
;;; resize-minibuffer-mode makes the minibuffer automatically
;;; resize as necessary when it's too big to hold its contents.
(autoload 'resize-minibuffer-mode "rsz-minibuf" nil t)
(resize-minibuffer-mode)
(setq resize-minibuffer-window-exactly nil)
;;; ********************
;;; W3 is a browser for the World Wide Web, and takes advantage of the very
;;; latest redisplay features in XEmacs. You can access it simply by typing
;;; 'M-x w3'; however, if you're unlucky enough to be on a machine that is
;;; behind a firewall, you will have to do something like this first:
;(setq w3-use-telnet t
; ;;
; ;; If the Telnet program you use to access the outside world is
; ;; not called "telnet", specify its name like this.
; w3-telnet-prog "itelnet"
; ;;
; ;; If your Telnet program adds lines of junk at the beginning
; ;; of the session, specify the number of lines here.
; w3-telnet-header-length 4
; )
- 3 participants
- 2 comments