procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

subr.el (posn-col-row): Evaluate header-line-format in the context of

Browse source 
the POSITION window's buffer.
This commit is contained in:
Eli Zaretskii 2010-12-12 22:45:57 +02:00
parent 1557947189
commit 11aad4e9f9
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-12-12 Eli Zaretskii <eliz@gnu.org>
* subr.el (posn-col-row): Evaluate header-line-format in the
context of the POSITION window's buffer.
2010-12-11 Glenn Morris <rgm@gnu.org>
* subr.el (member-ignore-case, run-mode-hooks, insert-for-yank-1)

4
lisp/subr.el
View file

@ -958,7 +958,9 @@ and `event-end' functions."
(setq spacing 0)))
(cons (/ (car pair) (frame-char-width frame))
(- (/ (cdr pair) (+ (frame-char-height frame) spacing))
(if (null header-line-format) 0 1))))))))
(if (null (with-current-buffer (window-buffer window)
header-line-format))
0 1))))))))
(defun posn-actual-col-row (position)
"Return the actual column and row in POSITION, measured in characters.