Mercurial > emacs
comparison lisp/progmodes/idlw-toolbar.el @ 85219:e9fe4040380d
(idlwave-toolbar-add-everywhere)
(idlwave-toolbar-remove-everywhere): Use mapc rather than mapcar.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 13 Oct 2007 02:58:56 +0000 |
parents | c1ec1c8a8d2e |
children | 107ccd98fa12 d38543a1c0f9 |
comparison
equal
deleted
inserted
replaced
85218:1d4ea6f1cea5 | 85219:e9fe4040380d |
---|---|
914 (mapcar (lambda (buf) | 914 (mapcar (lambda (buf) |
915 (set-buffer buf) | 915 (set-buffer buf) |
916 (idlwave-toolbar-add)) | 916 (idlwave-toolbar-add)) |
917 (buffer-list))) | 917 (buffer-list))) |
918 ;; For Emacs, add the key definitions to the mode maps | 918 ;; For Emacs, add the key definitions to the mode maps |
919 (mapcar (lambda (x) | 919 (mapc (lambda (x) |
920 (let* ((icon (aref x 0)) | 920 (let* ((icon (aref x 0)) |
921 (func (aref x 1)) | 921 (func (aref x 1)) |
922 (show (aref x 2)) | 922 (show (aref x 2)) |
923 (help (aref x 3)) | 923 (help (aref x 3)) |
924 (key (vector 'tool-bar func)) | 924 (key (vector 'tool-bar func)) |
925 (def (list 'menu-item | 925 (def (list 'menu-item |
926 "a" | 926 "a" |
927 func | 927 func |
928 :image (symbol-value icon) | 928 :image (symbol-value icon) |
929 :visible show | 929 :visible show |
930 :help help))) | 930 :help help))) |
931 (define-key idlwave-mode-map key def) | 931 (define-key idlwave-mode-map key def) |
932 (define-key idlwave-shell-mode-map key def))) | 932 (define-key idlwave-shell-mode-map key def))) |
933 (reverse idlwave-toolbar))) | 933 (reverse idlwave-toolbar))) |
934 (setq idlwave-toolbar-visible t))) | 934 (setq idlwave-toolbar-visible t))) |
935 | 935 |
936 (defun idlwave-toolbar-remove-everywhere () | 936 (defun idlwave-toolbar-remove-everywhere () |
937 "Remove the toolbar in all appropriate buffers." | 937 "Remove the toolbar in all appropriate buffers." |
938 ;; First make sure new buffers won't get the toolbar | 938 ;; First make sure new buffers won't get the toolbar |
945 (mapcar (lambda (buf) | 945 (mapcar (lambda (buf) |
946 (set-buffer buf) | 946 (set-buffer buf) |
947 (idlwave-toolbar-remove)) | 947 (idlwave-toolbar-remove)) |
948 (buffer-list))) | 948 (buffer-list))) |
949 ;; For Emacs, remove the key definitions from the mode maps | 949 ;; For Emacs, remove the key definitions from the mode maps |
950 (mapcar (lambda (x) | 950 (mapc (lambda (x) |
951 (let* (;;(icon (aref x 0)) | 951 (let* (;;(icon (aref x 0)) |
952 (func (aref x 1)) | 952 (func (aref x 1)) |
953 ;;(show (aref x 2)) | 953 ;;(show (aref x 2)) |
954 ;;(help (aref x 3)) | 954 ;;(help (aref x 3)) |
955 (key (vector 'tool-bar func))) | 955 (key (vector 'tool-bar func))) |
956 (define-key idlwave-mode-map key nil) | 956 (define-key idlwave-mode-map key nil) |
957 (define-key idlwave-shell-mode-map key nil))) | 957 (define-key idlwave-shell-mode-map key nil))) |
958 idlwave-toolbar)) | 958 idlwave-toolbar)) |
959 (setq idlwave-toolbar-visible nil))) | 959 (setq idlwave-toolbar-visible nil))) |
960 | 960 |
961 (defun idlwave-toolbar-toggle (&optional force-on) | 961 (defun idlwave-toolbar-toggle (&optional force-on) |
962 (interactive) | 962 (interactive) |
963 (if idlwave-toolbar-visible | 963 (if idlwave-toolbar-visible |