From: Glenn Morris <rgm@gnu.org>
To: David Webb <daverwebb@hughes.net>
Cc: 11734@debbugs.gnu.org
Subject: bug#11734: 24.1; Save Toolbar not working
Date: Wed, 27 Jun 2012 21:59:57 -0400 [thread overview]
Message-ID: <20459.47773.60363.932607@gnu.org> (raw)
In-Reply-To: <4FEBA77E.4040906@hughes.net>
(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]
next prev parent reply other threads:[~2012-06-28 1:59 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-18 12:07 bug#11734: 24.1; Save Toolbar not working David Webb
2012-06-25 0:55 ` Glenn Morris
2012-06-28 0:38 ` David Webb
2012-06-28 1:59 ` Glenn Morris [this message]
2013-03-25 7:00 ` bug#11734: Additional information re. save button David Rogers
2019-09-28 18:22 ` Lars Ingebrigtsen
2019-10-14 6:02 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20459.47773.60363.932607@gnu.org \
--to=rgm@gnu.org \
--cc=11734@debbugs.gnu.org \
--cc=daverwebb@hughes.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.