Bug: get-face-font: Xemacs21.5.29: org-preview-latex-fragment [7.5]

Bug: get-face-font: Xemacs21.5.29: org-preview-latex-fragment [7.5]

[Uwe Brauer]

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


Hello 

I tried to use the function as mentioned above, but obtained
the following error whose but trace I attach. 

I looked into the code (org.el) and indeed it has 
a it has 

(if (featurep 'xemacs)
                  (font-height (get-face-font 'default))

Now the function `get-face-font' is not defined in Xemacs
21.5.29 nor in 21.4. (I shall send a copy to Xemacs beta.)


One remark: I thought that (X)Emacs could not surprise me
any longer since it is such a mature product, but first
org-table surprised me since it brought spread-sheet
features, now org-preview-latex-fragment brings  (X)Emacs
closer to a word processor. Thank you Team!!!!!


Uwe Brauer 


[-- Attachment #2: org-preview-bug.el --]
[-- Type: application/emacs-lisp, Size: 4472 bytes --]

[-- Attachment #3: Type: text/plain, Size: 2651 bytes --]



Emacs  : XEmacs 21.5  (beta29) "garbanzo" [Lucid] (i686-pc-linux, Mule) of Sat Nov  5 2011 on Burrurr
Package: Org-mode version 7.5

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
					 org-src-mode-configure-edit-buffer)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 outline-mode-hook '(hide-body)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
 org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
				  org-cycle-show-empty-lines
				  org-optimize-window-after-visibility-change)
 org-agenda-include-diary t
 outline-minor-mode-hook '(my-outline-keys)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(#<compiled-function nil "...(7)"
				 [org-add-hook change-major-mode-hook org-show-block-all append
				  local]
				 5> #<compiled-function nil "...(7)"
				 [org-add-hook change-major-mode-hook org-babel-show-result-all
				  append local]
				 5> org-babel-result-hide-spec org-babel-hide-all-hashes
				 my-org-keys turn-on-flyspell iso-accents-mode
				 turn-on-auto-capitalize-mode)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-speed-command-hook '(org-speed-command-default-hook
						  org-babel-speed-command-hook)
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-export-interblocks '((lob org-babel-exp-lob-one-liners)
						  (src org-babel-exp-inline-src-blocks))
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
 org-confirm-shell-link-function 'yes-or-no-p
 org-table-default-size "3x3"
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe
					  org-babel-hide-result-toggle-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil)
					 (comment org-export-blocks-format-comment t)
					 (ditaa org-export-blocks-format-ditaa nil)
					 (dot org-export-blocks-format-dot nil))
 org-occur-hook '(org-first-headline-recenter)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
							   org-beamer-auto-fragile-frames
							   org-beamer-place-default-actions-for-lists)
 outline-heading-end-regexp "[\n]"
 )

Bug: get-face-font: Xemacs21.5.29: org-preview-latex-fragment [7.5]

[Stephen J. Turnbull]

Uwe Brauer writes:

 > (if (featurep 'xemacs)
 >                   (font-height (get-face-font 'default))

The function you want is `face-font'.