|
|
@@ -159,10 +159,10 @@ When BUFFER is `all', unregister VAR in all buffers."
|
|
|
(lambda (plist)
|
|
|
(when (and (memq var (plist-get plist :variable))
|
|
|
(or (eq buffer 'all)
|
|
|
- (eq (buffer-file-name
|
|
|
- (or (buffer-base-buffer buffer)
|
|
|
- buffer))
|
|
|
- (plist-get plist :path))))
|
|
|
+ (string= (buffer-file-name
|
|
|
+ (or (buffer-base-buffer buffer)
|
|
|
+ buffer))
|
|
|
+ (or (plist-get plist :path) ""))))
|
|
|
(if (> (length (plist-get plist :variable)) 1)
|
|
|
(progn
|
|
|
(setq plist
|