[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Mandrake 8 site-start.el
- To: firstname.lastname@example.org (Marty & Pat Moore)
- Subject: Mandrake 8 site-start.el
- From: email@example.com
- Date: Tue, 31 Jul 2001 13:14:09 +1000
- Cc: firstname.lastname@example.org
- Resent-Date: Mon, 30 Jul 2001 23:11:22 -0400 (EDT)
- Resent-From: email@example.com
- Resent-Message-ID: <"BRMbKC.A.1T.FAiZ7"@hub>
- Resent-Sender: firstname.lastname@example.org
I finally got my new system repaired and here is the modified
/etc/emacs/site-start.el file which turns off some of the 'features'
in the standard Mandrake configuration. Just replace the existing file
in /etc/emacs with this one and everything should work. Of course,
safe practice dictates making a backup of the original before doing
the copy. I have added some comments and you can see the differences
(which are not much) by doing a diff of the original file and the one
I have attached.
;;; Linux-Mandrake Configuration for GNU/Emacs.
; Chmouel Boudjnah <email@example.com>
; Pixel <firstname.lastname@example.org>
; Frederic Lepied <email@example.com>
; See http://www.emacs.org/ for more information and configuration
; Modified to work with emacspeak 30th July 2001
; Tim Cross <firstname.lastname@example.org>
;; Macros to detect if we are under X.
(defmacro Xlaunch (&rest x) (list 'if (eq window-system 'x)(cons 'progn x)))
; Under X to get the suppr key working.
(Xlaunch (define-key global-map [(delete)] "\C-d"))
;;; XEmacs compatibility
(global-set-key [(control tab)] `other-window)
(global-set-key [(meta g)] `goto-line)
(defun switch-to-other-buffer () (interactive) (switch-to-buffer (other-buffer)))
(global-set-key [(meta control ?l)] `switch-to-other-buffer)
(global-set-key [(meta O) ?H] 'beginning-of-line)
(global-set-key [(meta O) ?F] 'end-of-line)
; Don't add lines on the end of lines unless we want.
(setq next-line-add-newlines nil)
; X selection manipulation
(defun x-own-selection (s) (x-set-selection `PRIMARY s))
(global-set-key [(shift insert)] '(lambda () (interactive) (insert (x-get-selection))))
(global-set-key [(control insert)] '(lambda () (interactive)
(x-own-selection (buffer-substring (point) (mark)))))
; Don't want this with emacspeak! Don't want al la windows either!!!
; Shift-arrows a la windows...
; '(pc-select-meta-moves-sexps t)
; '(pc-select-selection-keys-only t)
; '(pc-selection-mode t))
;; Show parenthesis mode
;; May not want this with emacspeak - but seems OK to leave it
;; By default start in text mode.
(setq initial-major-mode (lambda () (text-mode) (turn-on-auto-fill) (font-lock-mode)))
; Don't ask to revert for TAGS
(setq revert-without-query (cons "TAGS" revert-without-query))
;; Use the following for i18n
;; Color and Fonts.
(setq font-lock-mode-maximum-decoration t)
;; turn on colorization.
(Xlaunch (if (fboundp 'global-font-lock-mode)
;; Turn on selection and change the default color
;; Really don't want this under emacspeak - causes all sorts of problems
;(setq transient-mark-mode 't highlight-nonselected-windows 't)
;; Save positions in files between sessions
(setq-default save-place t)
;; Visualize long lines
;; Compression on the fly
;; Load package or local system startup files
(let* ((paths '("/etc/emacs/site-start.d"))
;; Get a list of all the files in all the specified
;; directories that match the pattern.
(directory-files dir t "^.*\\.el$" nil))
(load file nil)
(error (message "Error while loading %s" file)))))
;; More information with the info file (Control-h i)
Marty & Pat Moore writes:
> I have just installed Mandrake 8 and emacspeak 14 on my new box. Emacspeak
> speaks some things, but not others. I understand that there is a
> configuration file I need to change. How do I make the proper adjustments?
> To unsubscribe from the emacspeak list or change your address on the
> emacspeak list send mail to "email@example.com" with a
> subject of "unsubscribe" or "help"
Emacspeak Files |
Unsubscribe | Search