Commit e430c623 authored by Glenn Morris's avatar Glenn Morris
Browse files

(idlwave-toolbar-add-everywhere)

(idlwave-toolbar-remove-everywhere): Use mapc rather than mapcar.
parent 8ffcfb27
...@@ -916,21 +916,21 @@ static char * file[] = { ...@@ -916,21 +916,21 @@ static char * file[] = {
(idlwave-toolbar-add)) (idlwave-toolbar-add))
(buffer-list))) (buffer-list)))
;; For Emacs, add the key definitions to the mode maps ;; For Emacs, add the key definitions to the mode maps
(mapcar (lambda (x) (mapc (lambda (x)
(let* ((icon (aref x 0)) (let* ((icon (aref x 0))
(func (aref x 1)) (func (aref x 1))
(show (aref x 2)) (show (aref x 2))
(help (aref x 3)) (help (aref x 3))
(key (vector 'tool-bar func)) (key (vector 'tool-bar func))
(def (list 'menu-item (def (list 'menu-item
"a" "a"
func func
:image (symbol-value icon) :image (symbol-value icon)
:visible show :visible show
:help help))) :help help)))
(define-key idlwave-mode-map key def) (define-key idlwave-mode-map key def)
(define-key idlwave-shell-mode-map key def))) (define-key idlwave-shell-mode-map key def)))
(reverse idlwave-toolbar))) (reverse idlwave-toolbar)))
(setq idlwave-toolbar-visible t))) (setq idlwave-toolbar-visible t)))
(defun idlwave-toolbar-remove-everywhere () (defun idlwave-toolbar-remove-everywhere ()
...@@ -947,15 +947,15 @@ static char * file[] = { ...@@ -947,15 +947,15 @@ static char * file[] = {
(idlwave-toolbar-remove)) (idlwave-toolbar-remove))
(buffer-list))) (buffer-list)))
;; For Emacs, remove the key definitions from the mode maps ;; For Emacs, remove the key definitions from the mode maps
(mapcar (lambda (x) (mapc (lambda (x)
(let* (;;(icon (aref x 0)) (let* (;;(icon (aref x 0))
(func (aref x 1)) (func (aref x 1))
;;(show (aref x 2)) ;;(show (aref x 2))
;;(help (aref x 3)) ;;(help (aref x 3))
(key (vector 'tool-bar func))) (key (vector 'tool-bar func)))
(define-key idlwave-mode-map key nil) (define-key idlwave-mode-map key nil)
(define-key idlwave-shell-mode-map key nil))) (define-key idlwave-shell-mode-map key nil)))
idlwave-toolbar)) idlwave-toolbar))
(setq idlwave-toolbar-visible nil))) (setq idlwave-toolbar-visible nil)))
(defun idlwave-toolbar-toggle (&optional force-on) (defun idlwave-toolbar-toggle (&optional force-on)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment