bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Mandrake color / highlighting peculiarities


From: Dan Jacobson
Subject: Mandrake color / highlighting peculiarities
Date: 07 Jan 2001 21:05:11 +0800
User-agent: Gnus/5.0807 (Gnus v5.8.7) Emacs/20.7

--- 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 <address@hidden> 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 <address@hidden>
! 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 <address@hidden>
; Pixel <address@hidden>
; Frederic Lepied <address@hidden>

; 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 ---

reply via email to

[Prev in Thread] Current Thread [Next in Thread]