-(defun menu-truncate-list (list n)
- (if (<= (length list) n)
- list
- (butlast list (- (length list) n))))
+(defun Menubar-items-truncate-list (list n)
+ (mapcar #'(lambda (x)
+ (if (<= (length x) 50) x (concat "..." (substring x -50))))
+ (if (<= (length list) n)
+ list
+ (butlast list (- (length list) n)))))