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 |