--- Begin Message ---
Dan> Here I am on Mandrake 7.2 using all the defaults of the emacs
Dan> version in my header lines, and every time I type matching
Dan> parenthesis, bracket, etc. I get bright sea green almost
Dan> obliterating what character lies below and also much brighter
Dan> than the cursor itself... very disconcerting for the newbie, and
Dan> leading to many
>>>>> "Richard" == Richard Stallman <rms@gnu.org> writes:
Richard> Can you tell me precisely what I need to do after emacs -q to
Richard> observe this problem?
One would just type a ( ).
I bet it's another Mandrake 7.2 thing. The following is found in the system
Xresources and ~/.Xresources...
! Modification for Linux-Mandrake by Chmouel Boudjnah <chmouel@mandraksoft.com>
! You may use this file as specified under the GNU General Public License
! emacs, xemacs
emacs*Background: DarkSlateGray
emacs*Foreground: Wheat
emacs*pointerColor: Orchid
emacs*cursorColor: Orchid
emacs*bitmapIcon: on
emacs*font: fixed
emacs.geometry: 80x25
For instance, the last line is caught by gnus and becomes hard to read
red on orchid as I type... same with comments in programs.
I wonder what the colors the emacs pros' original intentions
were colorwise... all I know is what I found on Mandrake.
Just like Eli explained about inappropriate highlighting escape
sequences appearing in the *compilation* buffer upon an ESC x compile
Eli> That's your friendly Mandrake package managers: they wrap the
Eli> compiler with some script which produces escape sequences.
Eli> Please complain to Mandrake maintainers; this has nothing to
Eli> do with Emacs.
so instead of "make", one must run "TERM=dumb make".
OK, so it's CC: Chmouel time.
By the way, here's Mandrake's
/usr/share/emacs/20.7/lisp/site-start.el ->
../../../../../etc/emacs/site-start.el
for your reading pleasure. My only comment is that to compose this
reply, I have to do $ emacs -nw, else all those dark colors---can't
see what I'm replying to. Plus the scratch buffer's banner still
mentions lisp evaluation, though they change its major mode
;;; Linux-Mandrake Configuration for GNU/Emacs.
; Chmouel Boudjnah <chmouel@mandrakesoft.com>
; Pixel <pixel@mandrakesoft.com>
; Frederic Lepied <flepied@mandrakesoft.com>
; See http://www.emacs.org/ for more information and configuration
; examples.
;; 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)))))
; Shift-arrows a la windows...
(custom-set-variables
'(pc-select-meta-moves-sexps t)
'(pc-select-selection-keys-only t)
'(pc-selection-mode t))
;; Show parenthesis mode
(show-paren-mode)
;; 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
;(standard-display-european t)
;(set-language-environment "latin-1")
;; Color and Fonts.
(require 'font-lock)
(setq font-lock-mode-maximum-decoration t)
;; turn on colorization.
(Xlaunch (if (fboundp 'global-font-lock-mode)
(global-font-lock-mode t)))
; Turn on selection and change the default color
(setq transient-mark-mode 't highlight-nonselected-windows 't)
;; 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.
(files
(apply 'append
(mapcar
(lambda (dir)
(directory-files dir t "^.*\\.el$" nil))
paths))))
(mapcar
(lambda (file)
(if debug-on-error
(load-file file)
(condition-case ()
(load file nil)
(error (message "Error while loading %s" file)))))
files)
)
;; More information with the info file (Control-h i)
Betcha lot of what I've been blathering about lately might have
origins above, e.g parenthesis over-highlighting...
--------
P.S. Re: last thread: how dare anybody judge by the tone of my voice that I am
not
always only joking :-)
--------
--
http://www.geocities.com/jidanni Tel886-4-25854780 e-mail:restore .com. 積丹尼
--- End Message ---