pi-bot-01/dired-plus-el
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix missing obsolete-variable WHEN variable.

Browse Source
This commit is contained in:
pi-bot-01
2026-03-26 02:44:50 -07:00
parent b4316131f8
commit 3654eb99f1
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
dired+.el
View File

@@ -10805,7 +10805,7 @@ windows there, then delete its window (toggle : show/hide the file)."
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-immediate-menu 'diredp-menu-bar-single-menu)) (defvaralias 'diredp-menu-bar-immediate-menu 'diredp-menu-bar-single-menu))
(make-obsolete-variable 'diredp-menu-bar-immediate-menu 'diredp-menu-bar-single-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-immediate-menu 'diredp-menu-bar-single-menu "28.1") ; 2017-04-09
(if (fboundp 'diredp-describe-file) (if (fboundp 'diredp-describe-file)
(define-key diredp-menu-bar-single-menu [diredp-describe-file] (define-key diredp-menu-bar-single-menu [diredp-describe-file]
@@ -11118,7 +11118,7 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-operate-menu 'diredp-menu-bar-multiple-menu)) (defvaralias 'diredp-menu-bar-operate-menu 'diredp-menu-bar-multiple-menu))
(make-obsolete-variable 'diredp-menu-bar-operate-menu 'diredp-menu-bar-multiple-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-operate-menu 'diredp-menu-bar-multiple-menu "28.1") ; 2017-04-09
(define-key diredp-menu-bar-multiple-menu [diredp-describe-marked-autofiles] (define-key diredp-menu-bar-multiple-menu [diredp-describe-marked-autofiles]
'(menu-item "Describe Marked Autofiles" diredp-describe-marked-autofiles '(menu-item "Describe Marked Autofiles" diredp-describe-marked-autofiles
@@ -11312,7 +11312,7 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-images-menu 'diredp-multiple-images-menu)) (defvaralias 'diredp-menu-bar-images-menu 'diredp-multiple-images-menu))
(make-obsolete-variable 'diredp-menu-bar-images-menu 'diredp-multiple-images-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-images-menu 'diredp-multiple-images-menu "28.1") ; 2017-04-09
;; Remove the items from `Multiple' menu. ;; Remove the items from `Multiple' menu.
(define-key diredp-menu-bar-multiple-menu [image-dired-delete-tag] nil) (define-key diredp-menu-bar-multiple-menu [image-dired-delete-tag] nil)
@@ -11349,11 +11349,11 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu)) (defvaralias 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu))
(make-obsolete-variable 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu "28.1") ; 2017-04-09
(when (boundp 'diredp-menu-bar-encryption-menu) (when (boundp 'diredp-menu-bar-encryption-menu)
(defalias 'diredp-menu-bar-encryption-menu diredp-menu-bar-encryption-menu)) (defalias 'diredp-menu-bar-encryption-menu diredp-menu-bar-encryption-menu))
(make-obsolete 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu) ; 2017-04-09 (make-obsolete 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu "28.1") ; 2017-04-09
;; Remove the items from `Multiple' menu. ;; Remove the items from `Multiple' menu.
(define-key diredp-menu-bar-multiple-menu [epa-dired-do-decrypt] nil) (define-key diredp-menu-bar-multiple-menu [epa-dired-do-decrypt] nil)
@@ -11382,7 +11382,7 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-operate-search-menu 'diredp-multiple-search-menu)) (defvaralias 'diredp-menu-bar-operate-search-menu 'diredp-multiple-search-menu))
(make-obsolete-variable 'diredp-menu-bar-operate-search-menu 'diredp-multiple-search-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-operate-search-menu 'diredp-multiple-search-menu "28.1") ; 2017-04-09
(when (fboundp 'dired-do-isearch-regexp) ; Emacs 23+ (when (fboundp 'dired-do-isearch-regexp) ; Emacs 23+
(define-key diredp-multiple-search-menu [isearch-regexp] (define-key diredp-multiple-search-menu [isearch-regexp]
@@ -11420,7 +11420,7 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-operate-bookmarks-menu 'diredp-multiple-bookmarks-menu)) (defvaralias 'diredp-menu-bar-operate-bookmarks-menu 'diredp-multiple-bookmarks-menu))
(make-obsolete-variable 'diredp-menu-bar-operate-bookmarks-menu 'diredp-multiple-bookmarks-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-operate-bookmarks-menu 'diredp-multiple-bookmarks-menu "28.1") ; 2017-04-09
(when (require 'bookmark+ nil t) (when (require 'bookmark+ nil t)
(define-key diredp-multiple-bookmarks-menu [diredp-do-set-tag-value] (define-key diredp-multiple-bookmarks-menu [diredp-do-set-tag-value]
@@ -11481,7 +11481,7 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-operate-recursive-menu 'diredp-multiple-recursive-menu)) (defvaralias 'diredp-menu-bar-operate-recursive-menu 'diredp-multiple-recursive-menu))
(make-obsolete-variable 'diredp-menu-bar-operate-recursive-menu 'diredp-multiple-recursive-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-operate-recursive-menu 'diredp-multiple-recursive-menu "28.1") ; 2017-04-09
(when (fboundp 'diredp-do-chown-recursive) (when (fboundp 'diredp-do-chown-recursive)
(define-key diredp-multiple-recursive-menu [chown] (define-key diredp-multiple-recursive-menu [chown]
@@ -11605,11 +11605,11 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu)) (defvaralias 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu))
(make-obsolete-variable 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu "28.1") ; 2017-04-09
(when (boundp 'diredp-menu-bar-images-recursive-menu) (when (boundp 'diredp-menu-bar-images-recursive-menu)
(defalias 'diredp-menu-bar-images-recursive-menu diredp-menu-bar-images-recursive-menu)) (defalias 'diredp-menu-bar-images-recursive-menu diredp-menu-bar-images-recursive-menu))
(make-obsolete 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu) ; 2017-04-09 (make-obsolete 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu "28.1") ; 2017-04-09
(define-key diredp-multiple-recursive-menu [images] (define-key diredp-multiple-recursive-menu [images]
'(menu-item "Images" diredp-images-recursive-menu '(menu-item "Images" diredp-images-recursive-menu
@@ -11748,11 +11748,11 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu)) (defvaralias 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu))
(make-obsolete-variable 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu "28.1") ; 2017-04-09
(when (boundp 'diredp-menu-bar-regexp-recursive-menu) (when (boundp 'diredp-menu-bar-regexp-recursive-menu)
(defalias 'diredp-menu-bar-regexp-recursive-menu diredp-menu-bar-regexp-recursive-menu)) (defalias 'diredp-menu-bar-regexp-recursive-menu diredp-menu-bar-regexp-recursive-menu))
(make-obsolete 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu) ; 2017-04-09 (make-obsolete 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu "28.1") ; 2017-04-09
;; "Marks" menu. ;; "Marks" menu.
@@ -11766,7 +11766,7 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-mark-menu 'diredp-menu-bar-marks-menu)) (defvaralias 'diredp-menu-bar-mark-menu 'diredp-menu-bar-marks-menu))
(make-obsolete-variable 'diredp-menu-bar-mark-menu 'diredp-menu-bar-marks-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-mark-menu 'diredp-menu-bar-marks-menu "28.1") ; 2017-04-09
(define-key diredp-menu-bar-marks-menu [prev] (define-key diredp-menu-bar-marks-menu [prev]
'(menu-item "Previous Marked" dired-prev-marked-file :help "Move to previous marked file")) '(menu-item "Previous Marked" dired-prev-marked-file :help "Move to previous marked file"))
@@ -12000,11 +12000,11 @@ If no one is selected, symmetric encryption will be performed. "
;; works for newer Emacs too. ;; works for newer Emacs too.
(when (fboundp 'defvaralias) ; Emacs 22+ (when (fboundp 'defvaralias) ; Emacs 22+
(defvaralias 'diredp-menu-bar-subdir-menu 'diredp-dir-menu)) (defvaralias 'diredp-menu-bar-subdir-menu 'diredp-dir-menu))
(make-obsolete-variable 'diredp-menu-bar-subdir-menu 'diredp-dir-menu) ; 2017-04-09 (make-obsolete-variable 'diredp-menu-bar-subdir-menu 'diredp-dir-menu "28.1") ; 2017-04-09
(when (boundp 'diredp-menu-bar-subdir-menu) (when (boundp 'diredp-menu-bar-subdir-menu)
(defalias 'diredp-menu-bar-subdir-menu diredp-menu-bar-subdir-menu)) (defalias 'diredp-menu-bar-subdir-menu diredp-menu-bar-subdir-menu))
(make-obsolete 'diredp-menu-bar-subdir-menu 'diredp-dir-menu) ; 2017-04-09 (make-obsolete 'diredp-menu-bar-subdir-menu 'diredp-dir-menu "28.1") ; 2017-04-09
;; `Dir' > `Hide/Show' menu. ;; `Dir' > `Hide/Show' menu.