Mercurial > emacs
view src/unexsol.c @ 58923:481f80f548e1
(ffap-dired-wildcards): Set default to "[*?][^/]*\\'". Doc fix.
(ffap-directory-finder): New variable.
(ffap-string-at-point-mode-alist): Add * and ? to `file'.
(ffap-file-at-point): Add /* to immediately rejected names.
Return absolute file names matching ffap-dired-wildcards.
(ffap-read-file-or-url): Set default value for `completing-read'
to `buffer-file-name'.
(find-file-at-point): When filename matches ffap-dired-wildcards,
call ffap-file-finder with t arg `wildcards', instead of dired.
(ffap-other-window, ffap-other-frame): Return visited buffers.
(ffap-read-only, ffap-read-only-other-window)
(ffap-read-only-other-frame, ffap-alternate-file): New commands.
(dired-at-point): Call ffap-directory-finder instead of dired.
(ffap-dired-other-window, ffap-dired-other-frame)
(ffap-list-directory): New commands.
(ffap-bindings): New keybindings for new commands.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Mon, 13 Dec 2004 05:16:25 +0000 |
parents | 695cf19ef79e |
children | b7bf941f8049 375f2633d815 |
line wrap: on
line source
/* Trivial unexec for Solaris. */ #include <config.h> #include <stdlib.h> #include <dlfcn.h> #include "lisp.h" #include "buffer.h" #include "charset.h" #include "coding.h" int unexec (char *new_name, char *old_name, unsigned int data_start, unsigned int bss_start, unsigned int entry_address) { Lisp_Object data; Lisp_Object errstring; if (! dldump (0, new_name, RTLD_MEMORY)) return 0; data = Fcons (build_string (new_name), Qnil); synchronize_system_messages_locale (); errstring = code_convert_string_norecord (build_string (dlerror ()), Vlocale_coding_system, 0); Fsignal (Qfile_error, Fcons (build_string ("Cannot unexec"), Fcons (errstring, data))); } /* arch-tag: d8ff72b3-8198-4011-8ef5-011b12027f59 (do not change this comment) */