[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#11734: 24.1; Save Toolbar not working
|
From: |
David Webb |
|
Subject: |
bug#11734: 24.1; Save Toolbar not working |
|
Date: |
Wed, 27 Jun 2012 19:38:22 -0500 |
|
User-agent: |
Mozilla/5.0 (X11; Linux i686; rv:13.0) Gecko/20120615 Thunderbird/13.0.1 |
On 06/24/2012 07:55 PM, Glenn Morris wrote:
David Webb wrote:
recently built emacs 24.1, when doing a save with the toolbar icon I
often get the following in mini-buffer:
<tool-bar><separator-1> is undefined
naturally the file is not saved. HOvering over the icon, the descriptive
text is merely a hyphen.
this behavior is not consistent, sometimes the save icon works,
sometimes not
Thanks for the report. I'm afraid that this sounds like one of those
issues that will be difficult to solve unless you can come up with a
reproducible recipe starting from emacs -Q. I tried, but could not
reproduce it. It sounds like somehow the vertical separator next to the
save button is being selected, but that ought not to be possible.
If it happens again, maybe post the value of the variable tool-var-map
at the time.
hope this helps, toolbar save misbehaved and I did C-h v and copied the
following:
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]