bug#11734: 24.1; Save Toolbar not working

[Glenn Morris]

(Please keep 11734@debbugs cc'd on any replies)

David Webb wrote (on Wed, 27 Jun 2012 at 19:38 -0500):

> hope this helps, toolbar save misbehaved and I did C-h v and copied the 
> following:

I don't see anything wrong with that, so I'm afraid I don't know what
could be going on here.

> Value: (keymap
>   (new-file menu-item "Visit New File..." find-file :enable
>             (menu-bar-non-minibuffer-window-p)
>             :help "Specify a new file's name, to edit the file" :image
>             (find-image
>              (cond
>               ((not
>                 (display-color-p))
>                '((:type pbm :file "new.pbm" :foreground "black" 
> :background "grey75")
>                  (:type xbm :file "new.xbm" :foreground "black" 
> :background "grey75")
>                  (:type xpm :file "low-color/new.xpm")
>                  (:type xpm :file "new.xpm")))
>               ((<
>                 (display-color-cells)
>                 256)
>                '((:type xpm :file "low-color/new.xpm")
>                  (:type xpm :file "new.xpm")
>                  (:type pbm :file "new.pbm" :foreground "black" 
> :background "grey75")
>                  (:type xbm :file "new.xbm" :foreground "black" 
> :background "grey75")))
>               (t
>                '((:type xpm :file "new.xpm")
>                  (:type pbm :file "new.pbm" :foreground "black" 
> :background "grey75")
>                  (:type xbm :file "new.xbm" :foreground "black" 
> :background "grey75")))))
>             :label "New File" :vert-only t)
>   (open-file menu-item "Open File..." menu-find-file-existing :enable
>              (menu-bar-non-minibuffer-window-p)
>              :help "Read an existing file into an Emacs buffer" :image
>              (find-image
>               (cond
>                ((not
>                  (display-color-p))
>                 '((:type pbm :file "open.pbm" :foreground "black" 
> :background "grey75")
>                   (:type xbm :file "open.xbm" :foreground "black" 
> :background "grey75")
>                   (:type xpm :file "low-color/open.xpm")
>                   (:type xpm :file "open.xpm")))
>                ((<
>                  (display-color-cells)
>                  256)
>                 '((:type xpm :file "low-color/open.xpm")
>                   (:type xpm :file "open.xpm")
>                   (:type pbm :file "open.pbm" :foreground "black" 
> :background "grey75")
>                   (:type xbm :file "open.xbm" :foreground "black" 
> :background "grey75")))
>                (t
>                 '((:type xpm :file "open.xpm")
>                   (:type pbm :file "open.pbm" :foreground "black" 
> :background "grey75")
>                   (:type xbm :file "open.xbm" :foreground "black" 
> :background "grey75")))))
>              :label "Open" :vert-only t)
>   (dired menu-item "Open Directory..." dired :enable
>          (menu-bar-non-minibuffer-window-p)
>          :help "Read a directory, to operate on its files" :image
>          (find-image
>           (cond
>            ((not
>              (display-color-p))
>             '((:type pbm :file "diropen.pbm" :foreground "black" 
> :background "grey75")
>               (:type xbm :file "diropen.xbm" :foreground "black" 
> :background "grey75")
>               (:type xpm :file "low-color/diropen.xpm")
>               (:type xpm :file "diropen.xpm")))
>            ((<
>              (display-color-cells)
>              256)
>             '((:type xpm :file "low-color/diropen.xpm")
>               (:type xpm :file "diropen.xpm")
>               (:type pbm :file "diropen.pbm" :foreground "black" 
> :background "grey75")
>               (:type xbm :file "diropen.xbm" :foreground "black" 
> :background "grey75")))
>            (t
>             '((:type xpm :file "diropen.xpm")
>               (:type pbm :file "diropen.pbm" :foreground "black" 
> :background "grey75")
>               (:type xbm :file "diropen.xbm" :foreground "black" 
> :background "grey75")))))
>          :vert-only t)
>   (kill-buffer menu-item "Close" kill-this-buffer :enable
>                (kill-this-buffer-enabled-p)
>                :help "Discard (kill) current buffer" :image
>                (find-image
>                 (cond
>                  ((not
>                    (display-color-p))
>                   '((:type pbm :file "close.pbm" :foreground "black" 
> :background "grey75")
>                     (:type xbm :file "close.xbm" :foreground "black" 
> :background "grey75")
>                     (:type xpm :file "low-color/close.xpm")
>                     (:type xpm :file "close.xpm")))
>                  ((<
>                    (display-color-cells)
>                    256)
>                   '((:type xpm :file "low-color/close.xpm")
>                     (:type xpm :file "close.xpm")
>                     (:type pbm :file "close.pbm" :foreground "black" 
> :background "grey75")
>                     (:type xbm :file "close.xbm" :foreground "black" 
> :background "grey75")))
>                  (t
>                   '((:type xpm :file "close.xpm")
>                     (:type pbm :file "close.pbm" :foreground "black" 
> :background "grey75")
>                     (:type xbm :file "close.xbm" :foreground "black" 
> :background "grey75")))))
>                :vert-only t)
>   (save-buffer menu-item "Save" save-buffer :enable
>                (and
>                 (buffer-modified-p)
>                 (buffer-file-name)
>                 (menu-bar-non-minibuffer-window-p))
>                :help "Save current buffer to its file" :image
>                (find-image
>                 (cond
>                  ((not
>                    (display-color-p))
>                   '((:type pbm :file "save.pbm" :foreground "black" 
> :background "grey75")
>                     (:type xbm :file "save.xbm" :foreground "black" 
> :background "grey75")
>                     (:type xpm :file "low-color/save.xpm")
>                     (:type xpm :file "save.xpm")))
>                  ((<
>                    (display-color-cells)
>                    256)
>                   '((:type xpm :file "low-color/save.xpm")
>                     (:type xpm :file "save.xpm")
>                     (:type pbm :file "save.pbm" :foreground "black" 
> :background "grey75")
>                     (:type xbm :file "save.xbm" :foreground "black" 
> :background "grey75")))
>                  (t
>                   '((:type xpm :file "save.xpm")
>                     (:type pbm :file "save.pbm" :foreground "black" 
> :background "grey75")
>                     (:type xbm :file "save.xbm" :foreground "black" 
> :background "grey75")))))
>                :label "Save")
>   (separator-1 "--")
>   (undo menu-item "Undo" undo :enable
>         (and
>          (not buffer-read-only)
>          (not
>           (eq t buffer-undo-list))
>          (if
>              (eq last-command 'undo)
>              (listp pending-undo-list)
>            (consp buffer-undo-list)))
>         :help "Undo last operation" :image
>         (find-image
>          (cond
>           ((not
>             (display-color-p))
>            '((:type pbm :file "undo.pbm" :foreground "black" :background 
> "grey75")
>              (:type xbm :file "undo.xbm" :foreground "black" :background 
> "grey75")
>              (:type xpm :file "low-color/undo.xpm")
>              (:type xpm :file "undo.xpm")))
>           ((<
>             (display-color-cells)
>             256)
>            '((:type xpm :file "low-color/undo.xpm")
>              (:type xpm :file "undo.xpm")
>              (:type pbm :file "undo.pbm" :foreground "black" :background 
> "grey75")
>              (:type xbm :file "undo.xbm" :foreground "black" :background 
> "grey75")))
>           (t
>            '((:type xpm :file "undo.xpm")
>              (:type pbm :file "undo.pbm" :foreground "black" :background 
> "grey75")
>              (:type xbm :file "undo.xbm" :foreground "black" :background 
> "grey75"))))))
>   (separator-2 "--")
>   (cut menu-item "Cut" kill-region :enable
>        (and mark-active
>             (not buffer-read-only))
>        :help "Cut (kill) text in region between mark and current 
> position" :image
>        (find-image
>         (cond
>          ((not
>            (display-color-p))
>           '((:type pbm :file "cut.pbm" :foreground "black" :background 
> "grey75")
>             (:type xbm :file "cut.xbm" :foreground "black" :background 
> "grey75")
>             (:type xpm :file "low-color/cut.xpm")
>             (:type xpm :file "cut.xpm")))
>          ((<
>            (display-color-cells)
>            256)
>           '((:type xpm :file "low-color/cut.xpm")
>             (:type xpm :file "cut.xpm")
>             (:type pbm :file "cut.pbm" :foreground "black" :background 
> "grey75")
>             (:type xbm :file "cut.xbm" :foreground "black" :background 
> "grey75")))
>          (t
>           '((:type xpm :file "cut.xpm")
>             (:type pbm :file "cut.pbm" :foreground "black" :background 
> "grey75")
>             (:type xbm :file "cut.xbm" :foreground "black" :background 
> "grey75")))))
>        :vert-only t)
>   (copy menu-item "Copy" kill-ring-save :enable mark-active :help "Copy 
> text in region between mark and current position" :keys 
> "\\[kill-ring-save]" :image
>         (find-image
>          (cond
>           ((not
>             (display-color-p))
>            '((:type pbm :file "copy.pbm" :foreground "black" :background 
> "grey75")
>              (:type xbm :file "copy.xbm" :foreground "black" :background 
> "grey75")
>              (:type xpm :file "low-color/copy.xpm")
>              (:type xpm :file "copy.xpm")))
>           ((<
>             (display-color-cells)
>             256)
>            '((:type xpm :file "low-color/copy.xpm")
>              (:type xpm :file "copy.xpm")
>              (:type pbm :file "copy.pbm" :foreground "black" :background 
> "grey75")
>              (:type xbm :file "copy.xbm" :foreground "black" :background 
> "grey75")))
>           (t
>            '((:type xpm :file "copy.xpm")
>              (:type pbm :file "copy.pbm" :foreground "black" :background 
> "grey75")
>              (:type xbm :file "copy.xbm" :foreground "black" :background 
> "grey75")))))
>         :vert-only t)
>   (paste menu-item "Paste" yank :enable
>          (and
>           (or
>            (and
>             (fboundp 'x-selection-exists-p)
>             (x-selection-exists-p 'CLIPBOARD))
>            (if
>                (featurep 'ns)
>                (cdr yank-menu)
>              kill-ring))
>           (not buffer-read-only))
>          :help "Paste (yank) text most recently cut/copied" :image
>          (find-image
>           (cond
>            ((not
>              (display-color-p))
>             '((:type pbm :file "paste.pbm" :foreground "black" 
> :background "grey75")
>               (:type xbm :file "paste.xbm" :foreground "black" 
> :background "grey75")
>               (:type xpm :file "low-color/paste.xpm")
>               (:type xpm :file "paste.xpm")))
>            ((<
>              (display-color-cells)
>              256)
>             '((:type xpm :file "low-color/paste.xpm")
>               (:type xpm :file "paste.xpm")
>               (:type pbm :file "paste.pbm" :foreground "black" 
> :background "grey75")
>               (:type xbm :file "paste.xbm" :foreground "black" 
> :background "grey75")))
>            (t
>             '((:type xpm :file "paste.xpm")
>               (:type pbm :file "paste.pbm" :foreground "black" 
> :background "grey75")
>               (:type xbm :file "paste.xbm" :foreground "black" 
> :background "grey75")))))
>          :vert-only t)
>   (separator-3 "--")
>   (isearch-forward menu-item "Forward String..." isearch-forward :help 
> "Search forward for a string as you type it" :image
>                    (find-image
>                     (cond
>                      ((not
>                        (display-color-p))
>                       '((:type pbm :file "search.pbm" :foreground 
> "black" :background "grey75")
>                         (:type xbm :file "search.xbm" :foreground 
> "black" :background "grey75")
>                         (:type xpm :file "low-color/search.xpm")
>                         (:type xpm :file "search.xpm")))
>                      ((<
>                        (display-color-cells)
>                        256)
>                       '((:type xpm :file "low-color/search.xpm")
>                         (:type xpm :file "search.xpm")
>                         (:type pbm :file "search.pbm" :foreground 
> "black" :background "grey75")
>                         (:type xbm :file "search.xbm" :foreground 
> "black" :background "grey75")))
>                      (t
>                       '((:type xpm :file "search.xpm")
>                         (:type pbm :file "search.pbm" :foreground 
> "black" :background "grey75")
>                         (:type xbm :file "search.xbm" :foreground 
> "black" :background "grey75")))))
>                    :label "Search" :vert-only t))
> 
> [back]