- (if (or global-binding global-tty-binding
- global-window-system-binding)
- (if (and (equal global-binding
- global-tty-binding)
- (equal global-binding
- global-window-system-binding))
- (princ
- (substitute-command-keys
- (format "\n\\[%s]" function)))
- (when (and global-window-system-binding
- (not (equal global-window-system-binding
- global-binding)))
- (princ
- (format
- "\n%s\n -- under window systems\n"
- (mapconcat #'key-description
- global-window-system-binding
- ", "))))
- (when (and global-tty-binding
- (not (equal global-tty-binding
- global-binding)))
- (princ
- (format
- "\n%s\n -- under TTYs\n"
- (mapconcat #'key-description
- global-tty-binding
- ", "))))
- (when global-binding
- (princ
- (format
- "\n%s\n -- generally (that is, unless\
+ (if (or global-binding global-tty-binding
+ global-window-system-binding)
+ (if (and (equal global-binding
+ global-tty-binding)
+ (equal global-binding
+ global-window-system-binding))
+ (princ
+ (substitute-command-keys
+ (format "\n\\[%s]" function)))
+ (when (and global-window-system-binding
+ (not (equal global-window-system-binding
+ global-binding)))
+ (princ
+ (format
+ "\n%s\n -- under window systems\n"
+ (mapconcat #'key-description
+ global-window-system-binding
+ ", "))))
+ (when (and global-tty-binding
+ (not (equal global-tty-binding
+ global-binding)))
+ (princ
+ (format
+ "\n%s\n -- under TTYs\n"
+ (mapconcat #'key-description
+ global-tty-binding
+ ", "))))
+ (when global-binding
+ (princ
+ (format
+ "\n%s\n -- generally (that is, unless\