Mercurial > hg > xemacs-beta
comparison etc/sample.emacs @ 78:c7528f8e288d r20-0b34
Import from CVS: tag r20-0b34
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:05:42 +0200 |
| parents | 131b0175ea99 |
| children | 1ce6082ce73f |
comparison
equal
deleted
inserted
replaced
| 77:6cb4f478e7bc | 78:c7528f8e288d |
|---|---|
| 183 (define-key global-map [(control x) return] nil) | 183 (define-key global-map [(control x) return] nil) |
| 184 | 184 |
| 185 ;; Change the pointer used when the mouse is over a modeline | 185 ;; Change the pointer used when the mouse is over a modeline |
| 186 (set-glyph-image modeline-pointer-glyph "leftbutton") | 186 (set-glyph-image modeline-pointer-glyph "leftbutton") |
| 187 | 187 |
| 188 ;; Change the continuation glyph face so it stands out more | |
| 189 (and (fboundp 'set-glyph-property) | |
| 190 (boundp 'continuation-glyph) | |
| 191 (set-glyph-property continuation-glyph 'face 'bold)) | |
| 192 | |
| 188 ;; Change the pointer used during garbage collection. | 193 ;; Change the pointer used during garbage collection. |
| 189 ;; | 194 ;; |
| 190 ;; Note that this pointer image is rather large as pointers go, | 195 ;; Note that this pointer image is rather large as pointers go, |
| 191 ;; and so it won't work on some X servers (such as the MIT | 196 ;; and so it won't work on some X servers (such as the MIT |
| 192 ;; R5 Sun server) because servers may have lamentably small | 197 ;; R5 Sun server) because servers may have lamentably small |
| 562 | 567 |
| 563 (autoload 'resize-minibuffer-mode "rsz-minibuf" nil t) | 568 (autoload 'resize-minibuffer-mode "rsz-minibuf" nil t) |
| 564 (resize-minibuffer-mode) | 569 (resize-minibuffer-mode) |
| 565 (setq resize-minibuffer-window-exactly nil) | 570 (setq resize-minibuffer-window-exactly nil) |
| 566 | 571 |
| 567 | 572 ;; Create a single detached minibuffer used by all frames. |
| 573 ;; Uncomment to try this out. | |
| 574 ;(when running-xemacs | |
| 575 ; (setq initial-frame-plist '(minibuffer nil)) | |
| 576 ; (setq default-frame-plist '(minibuffer nil)) | |
| 577 ; (setq default-minibuffer-frame | |
| 578 ; (make-frame | |
| 579 ; '(minibuffer only | |
| 580 ; width 86 | |
| 581 ; height 1 | |
| 582 ; menubar-visible-p nil | |
| 583 ; default-toolbar-visible-p nil | |
| 584 ; name "minibuffer" | |
| 585 ; top -2 | |
| 586 ; left -2 | |
| 587 ; has-modeline-p nil))) | |
| 588 ; (frame-notice-user-settings)) | |
| 589 | |
| 568 ;;; ******************** | 590 ;;; ******************** |
| 569 ;;; W3 is a browser for the World Wide Web, and takes advantage of the very | 591 ;;; W3 is a browser for the World Wide Web, and takes advantage of the very |
| 570 ;;; latest redisplay features in XEmacs. You can access it simply by typing | 592 ;;; latest redisplay features in XEmacs. You can access it simply by typing |
| 571 ;;; 'M-x w3'; however, if you're unlucky enough to be on a machine that is | 593 ;;; 'M-x w3'; however, if you're unlucky enough to be on a machine that is |
| 572 ;;; behind a firewall, you will have to do something like this first: | 594 ;;; behind a firewall, you will have to do something like this first: |