master 849fe71: Sort Ibuffer filename/process column as displayed

[Basil L. Contovounesios]

branch: master
commit 849fe71de7b041c21cb776c7428c39e0ce67df14
Author: Fabrice Bauzac <noon@mykolab.com>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Sort Ibuffer filename/process column as displayed
    
    * lisp/ibuf-ext.el (ibuffer-do-sort-by-filename/process): Use the
    same function for sorting and for displaying the
    filename/process (Bug#45800).
    
    Copyright-paperwork-exempt: yes
---
 lisp/ibuf-ext.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index ed5c9c0..44574ab 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1497,10 +1497,10 @@ Ordering is lexicographic."
   (string-lessp
    ;; FIXME: For now just compare the file name and the process name
    ;; (if it exists).  Is there a better way to do this?
-   (or (buffer-file-name (car a))
+   (or (with-current-buffer (car a) (ibuffer-buffer-file-name))
        (let ((pr-a (get-buffer-process (car a))))
         (and (processp pr-a) (process-name pr-a))))
-   (or (buffer-file-name (car b))
+   (or (with-current-buffer (car b) (ibuffer-buffer-file-name))
        (let ((pr-b (get-buffer-process (car b))))
         (and (processp pr-b) (process-name pr-b))))))