Mercurial > emacs
comparison lisp/emulation/viper.el @ 13491:15e0a3e62ef4
Don't list any faces in menu.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 18:57:42 +0000 |
| parents | 84acc3adcd63 |
| children | ab4917aacf37 |
comparison
equal
deleted
inserted
replaced
| 13490:4f1d9038eb4e | 13491:15e0a3e62ef4 |
|---|---|
| 467 (vip-deflocalvar vip-replace-overlay nil "") | 467 (vip-deflocalvar vip-replace-overlay nil "") |
| 468 (put 'vip-replace-overlay 'permanent-local t) | 468 (put 'vip-replace-overlay 'permanent-local t) |
| 469 | 469 |
| 470 (if (vip-window-display-p) | 470 (if (vip-window-display-p) |
| 471 (progn | 471 (progn |
| 472 (add-to-list 'facemenu-unlisted-faces 'vip-replace-overlay-face) | |
| 472 (make-face 'vip-replace-overlay-face) | 473 (make-face 'vip-replace-overlay-face) |
| 473 (or (face-differs-from-default-p 'vip-replace-overlay-face) | 474 (or (face-differs-from-default-p 'vip-replace-overlay-face) |
| 474 (progn | 475 (progn |
| 475 (if (vip-can-use-colors "darkseagreen2" "Black") | 476 (if (vip-can-use-colors "darkseagreen2" "Black") |
| 476 (progn | 477 (progn |
| 2386 (defun vip-set-search-face () | 2387 (defun vip-set-search-face () |
| 2387 (if (not (vip-window-display-p)) | 2388 (if (not (vip-window-display-p)) |
| 2388 () | 2389 () |
| 2389 (defvar vip-search-face | 2390 (defvar vip-search-face |
| 2390 (progn | 2391 (progn |
| 2392 (add-to-list 'facemenu-unlisted-faces 'vip-search-face) | |
| 2391 (make-face 'vip-search-face) | 2393 (make-face 'vip-search-face) |
| 2392 (or (face-differs-from-default-p 'vip-search-face) | 2394 (or (face-differs-from-default-p 'vip-search-face) |
| 2393 ;; face wasn't set in .vip or .Xdefaults | 2395 ;; face wasn't set in .vip or .Xdefaults |
| 2394 (if (vip-can-use-colors "Black" "khaki") | 2396 (if (vip-can-use-colors "Black" "khaki") |
| 2395 (progn | 2397 (progn |
| 2405 (defun vip-set-minibuffer-faces () | 2407 (defun vip-set-minibuffer-faces () |
| 2406 (if (not (vip-window-display-p)) | 2408 (if (not (vip-window-display-p)) |
| 2407 () | 2409 () |
| 2408 (defvar vip-minibuffer-emacs-face | 2410 (defvar vip-minibuffer-emacs-face |
| 2409 (progn | 2411 (progn |
| 2412 (add-to-list 'facemenu-unlisted-faces 'vip-minibuffer-emacs-face) | |
| 2410 (make-face 'vip-minibuffer-emacs-face) | 2413 (make-face 'vip-minibuffer-emacs-face) |
| 2411 (or (face-differs-from-default-p 'vip-minibuffer-emacs-face) | 2414 (or (face-differs-from-default-p 'vip-minibuffer-emacs-face) |
| 2412 ;; face wasn't set in .vip or .Xdefaults | 2415 ;; face wasn't set in .vip or .Xdefaults |
| 2413 (if vip-vi-style-in-minibuffer | 2416 (if vip-vi-style-in-minibuffer |
| 2414 ;; emacs state is an exception in the minibuffer | 2417 ;; emacs state is an exception in the minibuffer |
| 2430 'vip-minibuffer-emacs-face) | 2433 'vip-minibuffer-emacs-face) |
| 2431 "Face used in the Minibuffer when it is in Emacs state.") | 2434 "Face used in the Minibuffer when it is in Emacs state.") |
| 2432 | 2435 |
| 2433 (defvar vip-minibuffer-insert-face | 2436 (defvar vip-minibuffer-insert-face |
| 2434 (progn | 2437 (progn |
| 2438 (add-to-list 'facemenu-unlisted-faces 'vip-minibuffer-insert-face) | |
| 2435 (make-face 'vip-minibuffer-insert-face) | 2439 (make-face 'vip-minibuffer-insert-face) |
| 2436 (or (face-differs-from-default-p 'vip-minibuffer-insert-face) | 2440 (or (face-differs-from-default-p 'vip-minibuffer-insert-face) |
| 2437 (if vip-vi-style-in-minibuffer | 2441 (if vip-vi-style-in-minibuffer |
| 2438 (if (vip-can-use-colors "Black" "pink") | 2442 (if (vip-can-use-colors "Black" "pink") |
| 2439 (progn | 2443 (progn |
| 2453 'vip-minibuffer-insert-face) | 2457 'vip-minibuffer-insert-face) |
| 2454 "Face used in the Minibuffer when it is in Insert state.") | 2458 "Face used in the Minibuffer when it is in Insert state.") |
| 2455 | 2459 |
| 2456 (defvar vip-minibuffer-vi-face | 2460 (defvar vip-minibuffer-vi-face |
| 2457 (progn | 2461 (progn |
| 2462 (add-to-list 'facemenu-unlisted-faces 'vip-minibuffer-vi-face) | |
| 2458 (make-face 'vip-minibuffer-vi-face) | 2463 (make-face 'vip-minibuffer-vi-face) |
| 2459 (or (face-differs-from-default-p 'vip-minibuffer-vi-face) | 2464 (or (face-differs-from-default-p 'vip-minibuffer-vi-face) |
| 2460 (if vip-vi-style-in-minibuffer | 2465 (if vip-vi-style-in-minibuffer |
| 2461 (if (vip-can-use-colors "Black" "grey") | 2466 (if (vip-can-use-colors "Black" "grey") |
| 2462 (progn | 2467 (progn |