"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "tex-bar.el" between
auctex-12.2.tar.gz and auctex-12.3.tar.gz

About: AUCTEX is an extensible package for writing and formatting TeX files in GNU Emacs and XEmacs.

tex-bar.el  (auctex-12.2):tex-bar.el  (auctex-12.3)
skipping to change at line 120 skipping to change at line 120
(const search-forward) (const search-forward)
(const print-buffer) (const print-buffer)
(const [separator nil]) (const [separator nil])
(const tex) (const tex)
(const next-error) (const next-error)
(const view) (const view)
(const file) (const file)
(const bibtex) (const bibtex)
(const clean) (const clean)
(const spell)) (const spell))
;; (const latex-symbols-experimental) ;; (const latex-symbols-experimental)
(repeat (choice (symbol :tag "Label") (repeat (choice (symbol :tag "Label")
(sexp :tag "General element")))) (sexp :tag "General element"))))
:group 'TeX-tool-bar) :group 'TeX-tool-bar)
(defun TeX-bar-TeX-buttons ()
"Display in a buffer a list of buttons for `tex-bar.el'."
(interactive)
(let ((assqs-button-alists)
(labels))
(dolist (m-alist TeX-bar-TeX-all-button-alists)
(setq labels nil)
(dolist (as (eval m-alist))
(setq labels (cons (car as) labels)))
(setq assqs-button-alists (cons (cons m-alist (nreverse labels))
assqs-button-alists)))
(setq assqs-button-alists (nreverse assqs-button-alists))
;; displaying results
(with-current-buffer (get-buffer-create "*TeX tool bar buttons*")
(erase-buffer)
(insert "Available buttons for TeX mode
================================")
(dolist (i assqs-button-alists)
(insert (format "\n\n`%s' provides the following buttons:\n " (car i)))
(dolist (j (cdr i))
(insert (format " %s" j)))
(fill-region (point-at-bol) (point-at-eol))))
(display-buffer "*TeX tool bar buttons*" t)))
(defgroup TeX-tool-bar-button-definitions nil (defgroup TeX-tool-bar-button-definitions nil
"Collections of button definitions." "Collections of button definitions."
:group 'TeX-tool-bar) :group 'TeX-tool-bar)
(defcustom TeX-bar-TeX-all-button-alists (defcustom TeX-bar-TeX-all-button-alists
'(TeX-bar-TeX-button-alist '(TeX-bar-TeX-button-alist
toolbarx-default-toolbar-meaning-alist) toolbarx-default-toolbar-meaning-alist)
"List of variables that hold buttons properties. "List of variables that hold buttons properties.
Each element should be a symbol bound to list in the format of Each element should be a symbol bound to list in the format of
the argument BUTTON-ALIST in function `toolbarx-install-toolbar'." the argument BUTTON-ALIST in function `toolbarx-install-toolbar'."
skipping to change at line 211 skipping to change at line 187
"Alist for button definitions in TeX bar. "Alist for button definitions in TeX bar.
Value should le a list where each element is of format (KEY . Value should le a list where each element is of format (KEY .
PROPS), where KEY is a symbol that labels the button and PROPS is PROPS), where KEY is a symbol that labels the button and PROPS is
a list of properties of the button. For a description of the a list of properties of the button. For a description of the
format of PROPS, please see documentation of function format of PROPS, please see documentation of function
`toolbarx-install-toolbar'. This custom variable is in the same `toolbarx-install-toolbar'. This custom variable is in the same
format of the argument MEANING-ALIST in the mentioned function." format of the argument MEANING-ALIST in the mentioned function."
:type '(alist :key-type symbol :value-type sexp) :type '(alist :key-type symbol :value-type sexp)
:group 'TeX-tool-bar-button-definitions) :group 'TeX-tool-bar-button-definitions)
(defun TeX-bar-TeX-buttons ()
"Display in a buffer a list of buttons for `tex-bar.el'."
(interactive)
(let ((assqs-button-alists)
(labels))
(dolist (m-alist TeX-bar-TeX-all-button-alists)
(setq labels nil)
(dolist (as (eval m-alist))
(setq labels (cons (car as) labels)))
(setq assqs-button-alists (cons (cons m-alist (nreverse labels))
assqs-button-alists)))
(setq assqs-button-alists (nreverse assqs-button-alists))
;; displaying results
(with-current-buffer (get-buffer-create "*TeX tool bar buttons*")
(erase-buffer)
(insert "Available buttons for TeX mode
================================")
(dolist (i assqs-button-alists)
(insert (format "\n\n`%s' provides the following buttons:\n " (car i)))
(dolist (j (cdr i))
(insert (format " %s" j)))
(fill-region (point-at-bol) (point-at-eol))))
(display-buffer "*TeX tool bar buttons*" t)))
;;; Installation of the tool bar ;;; Installation of the tool bar
;;;###autoload ;;;###autoload
(defun TeX-install-toolbar () (defun TeX-install-toolbar ()
"Install toolbar buttons for TeX mode." "Install toolbar buttons for TeX mode."
(interactive) (interactive)
(require 'toolbar-x) (require 'toolbar-x)
(add-to-list 'toolbarx-image-path (add-to-list 'toolbarx-image-path
(expand-file-name "images" TeX-data-directory)) (expand-file-name "images" TeX-data-directory))
(add-hook 'TeX-PDF-mode-hook 'toolbarx-refresh nil t) (add-hook 'TeX-PDF-mode-hook 'toolbarx-refresh nil t)
(toolbarx-install-toolbar TeX-bar-TeX-buttons (toolbarx-install-toolbar TeX-bar-TeX-buttons
(let ((append-list)) (let ((append-list))
(dolist (elt TeX-bar-TeX-all-button-alists) (dolist (elt TeX-bar-TeX-all-button-alists)
(setq append-list (append append-list (setq append-list (append append-list
(eval elt)))) (eval elt))))
append-list))) append-list)))
(defcustom TeX-bar-LaTeX-buttons (defcustom TeX-bar-LaTeX-buttons
'(new-file open-file dired kill-buffer save-buffer cut copy paste undo '(new-file open-file dired kill-buffer save-buffer cut copy paste undo
[separator nil] latex next-error view bibtex spell) [separator nil] latex next-error view bibtex spell)
"List of buttons available in `latex-mode'. "List of buttons available in `latex-mode'.
It should be a list in the same format of the BUTTONS parameter It should be a list in the same format of the BUTTONS parameter
in function `toolbarx-install-toolbar', often a symbol that in function `toolbarx-install-toolbar', often a symbol that
labels a button. labels a button.
Type `\\[TeX-bar-LaTeX-buttons]' for a list of available buttons. Type `\\[TeX-bar-LaTeX-buttons]' for a list of available buttons.
Buttons are defined in alists (labels associated to properties Buttons are defined in alists (labels associated to properties
that define a button). For a list of variables that hold such that define a button). For a list of variables that hold such
alists, see variable `TeX-bar-LaTeX-all-button-alists'." alists, see variable `TeX-bar-LaTeX-all-button-alists'."
skipping to change at line 266 skipping to change at line 266
(const view) (const view)
(const file) (const file)
(const bibtex) (const bibtex)
(const clean) (const clean)
(const spell) (const spell)
(const latex-symbols-experimental)) (const latex-symbols-experimental))
(repeat (choice (symbol :tag "Label") (repeat (choice (symbol :tag "Label")
(sexp :tag "General element")))) (sexp :tag "General element"))))
:group 'TeX-tool-bar) :group 'TeX-tool-bar)
(defun TeX-bar-LaTeX-buttons ()
"Display in a buffer a list of buttons for `tex-bar.el'."
(interactive)
(let ((assqs-button-alists)
(labels))
(dolist (m-alist TeX-bar-LaTeX-all-button-alists)
(setq labels nil)
(dolist (as (eval m-alist))
(setq labels (cons (car as) labels)))
(setq assqs-button-alists (cons (cons m-alist (nreverse labels))
assqs-button-alists)))
(setq assqs-button-alists (nreverse assqs-button-alists))
;; displaying results
(with-current-buffer (get-buffer-create "*TeX tool bar buttons*")
(erase-buffer)
(insert "Available buttons for LaTeX mode
================================")
(dolist (i assqs-button-alists)
(insert (format "\n\n`%s' provides the following buttons:\n " (car i)))
(dolist (j (cdr i))
(insert (format " %s" j)))
(fill-region (point-at-bol) (point-at-eol))))
(display-buffer "*TeX tool bar buttons*" t)))
(defgroup TeX-tool-bar-button-definitions nil (defgroup TeX-tool-bar-button-definitions nil
"Collections of button definitions." "Collections of button definitions."
:group 'TeX-tool-bar) :group 'TeX-tool-bar)
(defcustom TeX-bar-LaTeX-all-button-alists (defcustom TeX-bar-LaTeX-all-button-alists
'(TeX-bar-LaTeX-button-alist '(TeX-bar-LaTeX-button-alist
toolbarx-default-toolbar-meaning-alist) toolbarx-default-toolbar-meaning-alist)
"List of variables that hold buttons properties. "List of variables that hold buttons properties.
Each element should be a symbol bound to list in the format of Each element should be a symbol bound to list in the format of
the argument BUTTON-ALIST in function `toolbarx-install-toolbar'." the argument BUTTON-ALIST in function `toolbarx-install-toolbar'."
skipping to change at line 356 skipping to change at line 332
"Alist for button definitions in TeX bar. "Alist for button definitions in TeX bar.
Value should le a list where each element is of format (KEY . Value should le a list where each element is of format (KEY .
PROPS), where KEY is a symbol that labels the button and PROPS is PROPS), where KEY is a symbol that labels the button and PROPS is
a list of properties of the button. For a description of the a list of properties of the button. For a description of the
format of PROPS, please see documentation of function format of PROPS, please see documentation of function
`toolbarx-install-toolbar'. This custom variable is in the same `toolbarx-install-toolbar'. This custom variable is in the same
format of the argument MEANING-ALIST in the mentioned function." format of the argument MEANING-ALIST in the mentioned function."
:type '(alist :key-type symbol :value-type sexp) :type '(alist :key-type symbol :value-type sexp)
:group 'TeX-tool-bar-button-definitions) :group 'TeX-tool-bar-button-definitions)
(defun TeX-bar-LaTeX-buttons ()
"Display in a buffer a list of buttons for `tex-bar.el'."
(interactive)
(let ((assqs-button-alists)
(labels))
(dolist (m-alist TeX-bar-LaTeX-all-button-alists)
(setq labels nil)
(dolist (as (eval m-alist))
(setq labels (cons (car as) labels)))
(setq assqs-button-alists (cons (cons m-alist (nreverse labels))
assqs-button-alists)))
(setq assqs-button-alists (nreverse assqs-button-alists))
;; displaying results
(with-current-buffer (get-buffer-create "*TeX tool bar buttons*")
(erase-buffer)
(insert "Available buttons for LaTeX mode
================================")
(dolist (i assqs-button-alists)
(insert (format "\n\n`%s' provides the following buttons:\n " (car i)))
(dolist (j (cdr i))
(insert (format " %s" j)))
(fill-region (point-at-bol) (point-at-eol))))
(display-buffer "*TeX tool bar buttons*" t)))
;;; Installation of the tool bar ;;; Installation of the tool bar
;;;###autoload ;;;###autoload
(defun LaTeX-install-toolbar () (defun LaTeX-install-toolbar ()
"Install toolbar buttons for LaTeX mode." "Install toolbar buttons for LaTeX mode."
(interactive) (interactive)
(require 'toolbar-x) (require 'toolbar-x)
(add-to-list 'toolbarx-image-path (add-to-list 'toolbarx-image-path
(expand-file-name "images" TeX-data-directory)) (expand-file-name "images" TeX-data-directory))
(add-hook 'TeX-PDF-mode-hook 'toolbarx-refresh nil t) (add-hook 'TeX-PDF-mode-hook 'toolbarx-refresh nil t)
;; Refresh the toolbar after styles update because `LaTeX-using-Biber' value ;; Refresh the toolbar after styles update because `LaTeX-using-Biber' value
 End of changes. 6 change blocks. 
50 lines changed or deleted 50 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)