[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#11734: 24.1; Save Toolbar not working
From: |
Glenn Morris |
Subject: |
bug#11734: 24.1; Save Toolbar not working |
Date: |
Wed, 27 Jun 2012 21:59:57 -0400 |
(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]