mapcar problem

mapcar problem

[Robert B. Gozzoli]

[-- Attachment #1: Type: text/plain, Size: 964 bytes --]

Dear List members, running a xelatex file with emacs, I encounter the
following problem, this is the content of the message buffer.

Style hooks...
Loading c:/emacs/emacs-23.3/site-lisp/auctex/style/csquotes.elc...done
Loading c:/emacs/emacs-23.3/site-lisp/auctex/style/graphicx.elc...done
Applying style hooks... done
Sorting environment...
Removing duplicates... done
Tex-Source-Correlate mode enabled
apply: Symbol's function definition is void: mapcar* [2 times]
byte-code: Beginning of buffer [2 times]
Mark set

I am not able to find consistent information online about the problem
itself, and I do not understand the problem in itself. I believe that
the problem should be in my.emacs and not in Latex, as I am able to
compile and view the file with other LaTeX editors. About emacs, this
is the version : GNU Emacs 23.3.1 (i386-mingw-nt6.1.7601), and I
attach to this email my .emacs file, if it can help.

Thanks in advance for the help,

Roberto Gozzoli

[-- Attachment #2: .emacs --]
[-- Type: application/octet-stream, Size: 5117 bytes --]

(server-start)
(require 'sumatra-forward)
 (load "auctex.el" nil t t)
 (load "preview-latex.el" nil t t)
 (setq TeX-auto-save t)
     (setq TeX-parse-self t)
     (setq-default TeX-master nil)
  (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
     (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
 (setq-default TeX-master nil)
(setq gnus-select-method '(nnimap "gmail"
				  (nnimap-address "imap.gmail.com")
				  (nnimap-server-port 993)
				  (nnimap-stream ssl)))
(setq message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
      smtpmail-auth-credentials '(("smtp.gmail.com" 587 "username@gmail.com" nil))
      smtpmail-default-smtp-server "smtp.gmail.com"
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-smtp-service 587
      smtpmail-local-domain "yourcompany.com")
 ;; Make Gnus NOT ignore [Gmail] mailboxes
    (setq gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]")
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(TeX-view-program-list (quote (("SumatraPDF" "C:\\Program Files\\SumatraPDF\\SumatraPDF.exe"))))
 '(TeX-view-program-selection (quote (((output-dvi style-pstricks) "dvips and start") (output-dvi "Yap") (output-pdf "start") (output-html "start") ((output-pdf) "SumatraPDF"))))
 '(cua-mode t nil (cua-base))
 '(reftex-default-bibliography (quote ("D:\\Actual Research\\Psammetichus II\\Xelatex version\\PsammetichusII"))))

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "SystemWindow" :foreground "SystemWindowText" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 158 :width normal :foundry "outline" :family "EgyptoSerif")))))
(require 'tex-buf)
(defun TeX-command-default (name)
  "Next TeX command to use. Most of the code is stolen from `TeX-command-query'."
  (cond ((if (string-equal name TeX-region)
			     (TeX-check-files (concat name "." (TeX-output-extension))
					      (list name)
					      TeX-file-extensions)
			   (TeX-save-document (TeX-master-file)))
			 TeX-command-default)
			((and (memq major-mode '(doctex-mode latex-mode))
			      (TeX-check-files (concat name ".bbl")
					       (mapcar 'car
						       (LaTeX-bibliography-list))
					       BibTeX-file-extensions))
			 ;; We should check for bst files here as well.
			 TeX-command-BibTeX)
			((TeX-process-get-variable name
						   'TeX-command-next
						   TeX-command-Show))
			(TeX-command-Show)))


(defcustom TeX-texify-Show t "Start view-command at end of TeX-texify?" :type 'boolean :group 'TeX-command)
(defcustom TeX-texify-max-runs-same-command 5 "Maximal run number of the same command" :type 'integer :group 'TeX-command)

(defun TeX-texify-sentinel (&optional proc sentinel)
  "Non-interactive! Call the standard-sentinel of the current LaTeX-process.
If there is still something left do do start the next latex-command."
  (set-buffer (process-buffer proc))
  (funcall TeX-texify-sentinel proc sentinel)
  (let ((case-fold-search nil))
    (when (string-match "\\(finished\\|exited\\)" sentinel)
      (set-buffer TeX-command-buffer)
      (unless (plist-get TeX-error-report-switches (intern (TeX-master-file)))
	(TeX-texify)))))

(defun TeX-texify ()
  "Get everything done."
  (interactive)
  (let ((nextCmd (TeX-command-default (TeX-master-file)))
	proc)
    (if (and (null TeX-texify-Show)
	     (equal nextCmd TeX-command-Show))
	(when  (called-interactively-p 'any)
	  (message "TeX-texify: Nothing to be done."))
      (TeX-command nextCmd 'TeX-master-file)
      (when (or (called-interactively-p 'any)
		(null (boundp 'TeX-texify-count-same-command))
		(null (boundp 'TeX-texify-last-command))
		(null (equal nextCmd TeX-texify-last-command)))
	(mapc 'make-local-variable '(TeX-texify-sentinel TeX-texify-count-same-command TeX-texify-last-command))
	(setq TeX-texify-count-same-command 1))
      (if (>= TeX-texify-count-same-command TeX-texify-max-runs-same-command)
	  (message "TeX-texify: Did %S already %d times. Don't want to do it anymore." TeX-texify-last-command TeX-texify-count-same-command)
	(setq TeX-texify-count-same-command (1+ TeX-texify-count-same-command))
	(setq TeX-texify-last-command nextCmd)
	(and (null (equal nextCmd TeX-command-Show))
	     (setq proc (get-buffer-process (current-buffer)))
	     (setq TeX-texify-sentinel (process-sentinel proc))
	     (set-process-sentinel proc 'TeX-texify-sentinel))))))

(add-hook 'LaTeX-mode-hook '(lambda () (local-set-key (kbd "C-c C-a") 'TeX-texify)))

RE: mapcar problem

[Drew Adams]

> apply: Symbol's function definition is void: mapcar* [2 times]
> 
> I am not able to find consistent information online about the problem
> itself, and I do not understand the problem in itself. I believe that
> the problem should be in my.emacs and not in Latex, as I am able to
> compile and view the file with other LaTeX editors. About emacs, this
> is the version : GNU Emacs 23.3.1 (i386-mingw-nt6.1.7601), and I
> attach to this email my .emacs file, if it can help.

The function that Emacs says is undefined is `mapcar*', not `mapcar'.  If is
defined in library `cl.el'.  To use the function you will need to load that
library.  Interactively, use `M-x load-library RET cl RET'.  Or in your init
file use (require 'cl).

Re: mapcar problem

[Robert B. Gozzoli]

Dear Drew,
thank you. Loading cl.el in .emacs did the trick.

Roberto

On 18/12/2011, Drew Adams <drew.adams@oracle.com> wrote:
>> apply: Symbol's function definition is void: mapcar* [2 times]
>>
>> I am not able to find consistent information online about the problem
>> itself, and I do not understand the problem in itself. I believe that
>> the problem should be in my.emacs and not in Latex, as I am able to
>> compile and view the file with other LaTeX editors. About emacs, this
>> is the version : GNU Emacs 23.3.1 (i386-mingw-nt6.1.7601), and I
>> attach to this email my .emacs file, if it can help.
>
> The function that Emacs says is undefined is `mapcar*', not `mapcar'.  If is
> defined in library `cl.el'.  To use the function you will need to load that
> library.  Interactively, use `M-x load-library RET cl RET'.  Or in your init
> file use (require 'cl).
>
>

Re: mapcar problem

[Le Wang]

[-- Attachment #1: Type: text/plain, Size: 1147 bytes --]

This is a bug.  You should double check that the bug is still in the latest
version of the package and report to the author.

On Sun, Dec 18, 2011 at 12:46 PM, Robert B. Gozzoli
<r.b.gozzoli@gmail.com>wrote:

> Dear Drew,
> thank you. Loading cl.el in .emacs did the trick.
>
> Roberto
>
> On 18/12/2011, Drew Adams <drew.adams@oracle.com> wrote:
> >> apply: Symbol's function definition is void: mapcar* [2 times]
> >>
> >> I am not able to find consistent information online about the problem
> >> itself, and I do not understand the problem in itself. I believe that
> >> the problem should be in my.emacs and not in Latex, as I am able to
> >> compile and view the file with other LaTeX editors. About emacs, this
> >> is the version : GNU Emacs 23.3.1 (i386-mingw-nt6.1.7601), and I
> >> attach to this email my .emacs file, if it can help.
> >
> > The function that Emacs says is undefined is `mapcar*', not `mapcar'.
>  If is
> > defined in library `cl.el'.  To use the function you will need to load
> that
> > library.  Interactively, use `M-x load-library RET cl RET'.  Or in your
> init
> > file use (require 'cl).
> >
> >
>
>


-- 
Le

[-- Attachment #2: Type: text/html, Size: 1657 bytes --]